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控件做的,那样是不是也要两个控件?
追答是的