var ExcelApp: Variant; ExcelApp := CreateOleObject( ’Excel.Application’ );
注意程序结束时释放变量 ExcelApp:=unassigned;
1 显示当前窗口: ExcelApp.Visible := True;
2 更改 Excel标题栏: ExcelApp.Caption := ’应用程序调用 Microsoft Excel’;
3 添加新工作簿: ExcelApp.WorkBooks.Add;
4 打开已存在的工作簿: ExcelApp.WorkBooks.Open( ’C:ExcelDemo.xls’ );
5 设置第2个工作表为活动工作表: ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ ’Sheet2’ ].Activate;
添加工作表 ExcelApp.WorkSheets.add;
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/