如何在excel2000中划底端边框(50分)

我用delphi6+excel2000做报表。我想在表格中画一个底端边框线程序如下
excel.worksheets[1].Range('C9:E12').Selection.Borders(xlEdgeBottom).LineStyle:= xlContinuous;
可程序总报错。说‘停用了，调用取消’,请问是为什么是这样，怎么在能画出底端边框了，谢谢各位帮助

V.ActiveSheet.Cells[Curline,CurCol].Value :=nlist.Get_item(i).Get_childNodes.Get_item(3).text;//GetNodeValue(nlist.Get_item(i).Get_childNodes,'CellContent');
V.ActiveSheet.cells[Curline,CurCol].HorizontalAlignment:=xlCenter
//水平对齐方式
// V.ActiveSheet.cells[Curline,CurCol].VerticalAlignment:=xlCenter
//垂直对齐方式
// V.ActiveSheet.cells[Curline,CurCol].Characters.Font.Name :='宋体';//'Dialog' //字体类型：如还可以是'隶书'，'宋体';
// V.ActiveSheet.cells[Curline,CurCol].Characters.Font.FontStyle:='加粗'
//字体外形
// V.ActiveSheet.cells[Curline,CurCol].Characters.Font.Size:=36
//字体大小
// V.ActiveSheet.cells[Curline,CurCol].Characters.Font.OutlineFont:=false;
// V.ActiveSheet.cells[Curline,CurCol].Characters.Font.UnderLine:=false;//是否有下划线
// V.ActiveSheet.cells[Curline,CurCol].Characters.Font.ColorIndex:=xlAutomatic;//字体颜色
// V.ActiveSheet.cells[[Curline,CurCol].Characters.Font.Color := clBlue
//字体颜色
// V.ActiveSheet.cells[Curline,CurCol].Characters.Font.italic:=false
//斜体
// V.ActiveSheet.cells[Curline,CurCol].Characters.Font.Bold := false
//加粗
V.ActiveSheet.cells[Curline,CurCol].Borders.LineStyle := 1;//加边框
{//设置边框线大小
//1-左 2-右 3-顶 4-底 5-斜( / ) 6-斜( / )
V.ActiveSheet.cells[9,6].Borders[1].Weight := 3;
V.ActiveSheet.cells[9,6].Borders[2].Weight := 3;
V.ActiveSheet.cells[9,6].Borders[3].Weight := 3;
V.ActiveSheet.cells[9,6].Borders[4].Weight := 3;}

热水:
V.ActiveSheet.cells[Curline,CurCol].Borders.LineStyle := 1 用这句话还是没办法画
出底端边框线，这句话是设置边框外观的

我已经解决了