使用控件操作Excel,插入分页符、拷贝单元格的问题。
使用控件法连接excel。
连接的方法:
with ExcelApplication1 do
begin
Disconnect;
Visible[0] := false;
Workbooks.Open('c:\aa.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
//完成ExcelWorkbook1的连接
ExcelWorkBook1.ConnectTo(Workbooks[Workbooks.Count] as _Workbook);
end;
Excelworksheet1.ConnectTo(ExcelWorkBook1.Sheets['表一] as _Worksheet);
//连接结束。
单元格赋值用:
ExcelWorkSheet1.Cells.Item[12,24]:= 正常
但是插入分页符 和 拷贝单元格 用以下 方法不行
a.在第8行插入分页符
ExcelApplication1.WorkSheets[1].Rows[8].PageBreak := 1;
b.拷贝指定区域:
ExcelApplication1.ActiveSheet.Range[ 'A1:E2 ' ].Copy;
c.从A1位置开始粘贴:
ExcelApplication1.ActiveSheet.Range.[ 'A1 ' ].PasteSpecial;
会显示:
Undeclared identifier: 'Range'
求正确的方法~