ExcelApp := CreateOleObject('Excel.Application'); //生成Excel对象
ExcelApp.SheetsInNewWorkbook := 2; //设置新增工作簿包含的Sheet的数目
EWorkBook := ExcelApp.WorkBooks.Add; //新增工作簿
ExcelApp.DisplayAlerts := False; //屏蔽Excel警告信息
ExcelApp.WorkSheets[ 'Sheet2' ].Delete;