如何用delphi操作Excel自动填充？

Question

excel.cells[1,2].value := '2';
excel.cells[1,3].value := '2';
excel.cells[1,4].value := '2';
excel.cells[1,5].value := '2';
excel.cells[1,6].value := '2';
excel.cells[1,7].value := '2';
excel.cells[1,8].value := '2';
......
自动1，2和下面的所有列的值为2的delphi代码怎么写？
求指教

Answer 1

    Range("A2").Select
    ActiveCell.FormulaR1C1 = "2"
    Selection.AutoFill Destination:=Range("A2:A59934")
    Range("A2:A59934").Select这样还是不行。固定了最后一个列号59934。我是要处理多个EXCEL 它们的列长度不同

Answer 2

选择导入一个excel文件创建ole对象