Question

delphi 实现两个EXCEL表格间的复制该怎么写？

RT，就是想把表格一里的一行数据，复制到表格二里，想用COPY的方法，但是不知道怎么做。还有就是直接用个中间数组来赋值，但是不想这样做，用COPY，PASTE的方法能行吗？
2组控件是excelapplication,excelworkbook,excelworksheet要2组吗？
用控件的话，COPY的一些方法好像编译错误啊。

Answer 1

var ExcelApp1,ExcelApp2: Variant;
ExcelApp1 := CreateOleObject( 'Excel.Application' ); //打开excel
ExcelApp2 := CreateOleObject( 'Excel.Application' ); //打开excel
ExcelApp1.WorkBooks.Open( 'C:\Excel\Demo1.xls' );
ExcelApp2.WorkBooks.Open( 'C:\Excel\Demo2.xls' );
ExcelApp1.WorksSheets[ 'Sheet1' ].Activate;
ExcelApp2.WorksSheets[ 'Sheet1' ].Activate;
ExcelApp1.ActiveSheet.Rows[1 ].Copy;
ExcelApp2.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
ExcelApp1.WorkBooks.Close;
ExcelApp2.WorkBooks.Close;
ExcelApp1.quit;
ExcelApp2.quit;

追问

我用的是excel控件做的，那样是不是也要两个控件？

追答

是的