Delphi生成多Sheet的Excel文件===.docxVIP

Delphi 生成多 Sheet 的Excel 文件 uses ComObj; //生成 Excel 表格头信息。//by JRQprocedure CreatExcelTitle(ExlApp: OleVariant; SheetName: string); var Range: OleVariant; begin ExlApp.Cells[1, 1].Value := 序号; //第一行第 1 列ExlApp.Cells[1, 2].Value := 档号; //第一行第 2 列ExlApp.Cells[1, 3].Value := 题名; ExlApp.Cells[1, 4].Value := 起始日期; ExlApp.Cells[1, 5].Value := 终止日期; ExlApp.Cells[1, 6].Value := 保管期限; ExlApp.Cells[1, 7].Value := 密级; Range := ExlApp.WorkSheets[SheetName].Range[A1:G1]; // 单元格从 A2 到 M2 Range.Merge; // 合并单元格Range.Rows.RowHeight := 25; // 设置行高 Range.HorizontalAlignment := 3; // 水平对齐方式 Range.Columns