数据导出到excel的时候，如何除掉缺少的三个工作薄（sheet1,sheet2,sheet3）？

Question

我想把数据导出的excel的时候，想删除excel创建的时候的缺省的三个工作薄，如何操作，能够给出具体代码？

Answer 1

1。在遍历Sheet时，用i=1 to sheet.count-32。用名字判断，出现Sheet字样就跳过3。根据Sheet上某个位置是否有内容来判断，默认的Sheet肯定是全空的。

Answer 2

uses comobj;
var
  Excelapp :Variant;
begin
  ...   
ExcelApp.WorkSheets['Sheet1'].Delete ;
.....
end;

Answer 3

我定义ExcelApp : TExcelApplication;在执行ExcelApp.WorkSheets['Sheet1'].Delete ;的时候提示没有定义delete？

Answer 4

var ExcelApp: Variant;
beginExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.WorkBooks.Open( 'C:\1.xls' );