+ -
当前位置:首页 → 问答吧 → 如何用delphi操作Excel自动填充?

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

时间:2011-09-30

来源:互联网

Delphi(Pascal) code

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代码怎么写?
求指教

作者: w272107545   发布时间: 2011-09-30

自己录制个宏看看VBA代码

作者: m617105   发布时间: 2011-09-30

Range("A2").Select
  ActiveCell.FormulaR1C1 = "2"
  Selection.AutoFill Destination:=Range("A2:A59934")
  Range("A2:A59934").Select

这样还是不行。固定了最后一个列号59934。我是要处理多个EXCEL 它们的列长度不同

作者: w272107545   发布时间: 2011-09-30