用DELPHI控制EXCEL，要在EXCEL中增加一列，要怎么写啊？

Question

在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet控件，我要在EXCEL中增加一列，我写了如下的代码， ExcelApplication1.ActiveSheet.Columns[1].Insert;但编译的时候就是编译不了，有提示：[Error] Unit1.pas(31): Undeclared identifier: 'Columns'，请问这个问题要怎么处理？谢谢

Answer 1

这是在Excel中执行这句话就可以增加一列
Worksheets("Sheet1").Columns.Insert shift:=xlToRight
你看看转为Delphi中的语句把。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var ExcelApp: Variant;
begin
  ExcelApp := CreateOleObject( 'Excel.Application' );
  ExcelApp.WorkBooks.Open( 'C:\bb.xls' );
  ExcelApp.ActiveSheet.Columns[1].Insert;
  ExcelApp.ActiveWorkBook.Save;
  ExcelApp.WorkBooks.Close;
  ExcelApp.Quit;
end;

Answer 3

to jinjazz(近身剪（充电中...）):谢谢你。如果我想用ExcelApplication, ExcelWorkbook和ExcelWorksheet控件的方法，而不是用动态创建对象的方法，可以实现增加一列的功能吗？（因为我前面写的一些代码都是用控件的方法，现在如果用动态创建对象的方法跟前面的程序比较不好衔接）