在调用VBA函数时,如何使用变量?(请不要灌水)(60分)

我用的是delphi7.0 与 office xp.
我的设想是在Excel表中每填入一行数据,就设定这一行的边界,不知如何使用变量来选定范围.

ExcelWorksheet1.Range['A1','D1'].Borders[3].Weight:=4;
ExcelWorksheet1.Range['B1','B1'].Borders[2].Weight:=2;
ExcelWorksheet1.Range['C1','C1'].Borders[2].Weight:=2;
ExcelWorksheet1.Range['D1','D1'].Borders[2].Weight:=4;
ExcelWorksheet1.Range['A1','A1'].Borders[1].Weight:=4;
ExcelWorksheet1.Range['A1','A1'].Borders[2].Weight:=2;
ExcelWorksheet1.Range['A1','D1'].Borders[4].Weight:=4;
上面是画第一行的边界.
从第二行开始,到最后一行,但是第后一行不确定,这用的是变量i来指定最后一行,那从第二生到最后一行的边界是如何画?
我用下面的方法行不通.请问我又错在哪里?
ExcelWorksheet1.Range['B1','B'+IntToStr(i)].Borders[2].Weight:=2;
ExcelWorksheet1.Range['C1','C'+IntToStr(i)].Borders[2].Weight:=2;
ExcelWorksheet1.Range['D1','D'+IntToStr(i)].Borders[2].Weight:=4;
ExcelWorksheet1.Range['A1','A'+IntToStr(i)].Borders[1].Weight:=4;
ExcelWorksheet1.Range['A1','A'+IntToStr(i)].Borders[2].Weight:=2;
ExcelWorksheet1.Range['A'+IntToStr(i),'D'+IntToStr(i)].Borders[4].Weight:=4;
另外还有一个问题就是:如何设定页眉和页尾的字体?

up

给你一点提示：
Cell1,Cell2,Cell3,Cell4,Range1,Range2:Variant

Sheet1.Cells.item[1,1]:='Excel Chart -范例';
Sheet1.Cells.item[2,1]:='星期';
Sheet1.Cells.item[2,2]:='星期一';
Sheet1.Cells.item[2,3]:='星期二';
Sheet1.Cells.item[2,4]:='星期三';
Sheet1.Cells.item[2,5]:='星期四';
Sheet1.Cells.item[2,6]:='星期五';
Sheet1.Cells.item[2,7]:='星期六';
Sheet1.Cells.item[2,8]:='星期日';
Sheet1.Cells.item[3,1]:='銷售量1';
Sheet1.Cells.item[3,2]:=115;
Sheet1.Cells.item[3,3]:=112;
Sheet1.Cells.item[3,4]:=156;
Sheet1.Cells.item[3,5]:=148;
Sheet1.Cells.item[3,6]:=132;
Sheet1.Cells.item[3,7]:=196;
Sheet1.Cells.item[3,8]:=162;
Sheet1.Cells.item[4,1]:='銷售量2';
Sheet1.Cells.item[4,2]:=123;
Sheet1.Cells.item[4,3]:=134;
Sheet1.Cells.item[4,4]:=111;
Sheet1.Cells.item[4,5]:=148;
Sheet1.Cells.item[4,6]:=152;
Sheet1.Cells.item[4,7]:=178;
Sheet1.Cells.item[4,8]:=180;
Cell1:=Sheet1.Cells.item[2,2];
Cell2:=Sheet1.Cells.item[2,8];
Cell3:=Sheet1.Cells.item[3,2];
Cell4:=Sheet1.Cells.item[3,8];
Cell5:=Sheet1.Cells.item[4,2];
Cell6:=Sheet1.Cells.item[4,8];
Range1:=sheet1.Range[cell1,cell2];
Range2:=sheet1.Range[cell3,cell4];
Range3:=sheet1.Range[cell5,cell6];
Range1.Borders.Color:=27;
Range2.Borders.Color:=6; //这是划边框的

如果要找vba的东西，个人觉得最好的方法是用VBA的帮助

接受答案了.