如何导出EXCEL多sheet(100)

实现把多个表导出EXCEL每个表导成一个sheet如何实现

没人答，我自己来答吧。var ExcelApplication1: TExcelApplication; ExcelWorksheet1: TExcelWorksheet; ExcelWorkbook1: TExcelWorkbook;try ExcelApplication1 := TExcelApplication.Create(Application); ExcelWorksheet1 := TExcelWorksheet.Create(Application); ExcelWorkbook1 := TExcelWorkbook.Create(Application); ExcelApplication1.Connect; except Application.messagebox('Excel 没有安装!', 'Hello', MB_ICONERROR + mb_Ok); Abort; end; //第一个工作簿 try ExcelApplication1.Workbooks.Add(EmptyParam, 0); ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]); ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet); //--------- 保存的代码 //---------- finally end; //第二个工作簿 try ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]); ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[2] as _worksheet); //--------- 保存的代码 //---------- finally end; 以次类推

既然已经解决了，就把分散了吧。

可以自己給自己散分嗎

再加一個 for控制更好，呵呵

不知道这个命令能不能执行ExcelApplication1.Workbooks[1].active;

我也有点疑问。