| 显示当前窗口 |
ExcelApp.Visible := True; |
| 更改 Excel 标题栏 |
ExcelApp.Caption:= '应用程序调用 Microsoft Excel'; |
| 添加新工作簿 |
ExcelApp.WorkBooks.Add; |
| 打开已存在的工作簿 |
ExcelApp.WorkBooks.Open('C:ExcelDemo.xls' ); |
| 设置第2个工作表为活动工作表 |
ExcelApp.WorkSheets[2].Activate; |
| 设置第2个工作表为活动工作表 |
ExcelApp.WorksSheets[ 'Sheet2' ].Activate; |
| 添加工作表 |
ExcelApp.WorkSheets.add; |
| 工作表重命名 |
ExcelApp.WorkSheets[1].Name:='工作表1'; |
| 工作表重命名 |
ExcelApp.WorkSheets['Sheet1'].Name:='工作表1'; |
| 工作表数目 |
ExcelApp.WorkSheets.Count |
| 给单元格赋值 |
ExcelApp.Cells[1,4].Value := '第一行第四列'; |
| 设置指定列的宽度(单位:字符个数) |
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5; |
| 设置指定行的高度(单位:磅)(1磅＝0.035厘米) |
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 |
| 在第8行之前插入分页符 |
ExcelApp.WorkSheets[1].Rows.PageBreak := 1; |
| 在第8列之前删除分页符 |
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0; |
| 指定边框线宽度 |
ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;{1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )} |
| 清除第一行第四列单元格公式 |
ExcelApp.ActiveSheet.Cells[1,4].ClearContents; |
| 设置第一行字体属性,字体 |
ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书'; |
| 设置第一行字体属性,字体颜色 |
ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue; |
| 设置第一行字体属性,字体粗体 |
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True; |
| 设置第一行字体属性,字体下划线 |
ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True; |
| 进行页面设置-页眉 |
ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示'; |
| 进行页面设置-页脚 |
ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页'; |
| 进行页面设置-页眉到顶端边距2cm |
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; |
| 进行页面设置-页脚到底端边距3cm |
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; |
| 进行页面设置-顶边距2cm |
ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035; |
| 进行页面设置-底边距2cm |
ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035; |
| 进行页面设置-左边距2cm |
ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035; |
| 进行页面设置-右边距2cm |
ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035; |
| 进行页面设置-页面水平居中 |
ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; |
| 进行页面设置-页面垂直居中 |
ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035; |
| 进行页面设置-打印单元格网线 |
ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True; |
| 拷贝操作-拷贝整个工作表 |
ExcelApp.ActiveSheet.Used.Range.Copy; |
| 拷贝操作-拷贝指定区域 |
ExcelApp.ActiveSheet.Range[ 'A1:E2' ].Copy; |
| 拷贝操作-从A1位置开始粘贴 |
ExcelApp.ActiveSheet.Range.[ 'A1' ].PasteSpecial; |
| 拷贝操作-从文件尾部开始粘贴 |
ExcelApp.ActiveSheet.Range.PasteSpecial; |
| 插入一行 |
ExcelApp.ActiveSheet.Rows[2].Insert; |
| 插入一列 |
ExcelApp.ActiveSheet.Columns[1].Insert; |
| 删除一行 |
ExcelApp.ActiveSheet.Rows[2].Delete; |
| 删除一列 |
ExcelApp.ActiveSheet.Columns[1].Delete; |
| 打印预览工作表 |
ExcelApp.ActiveSheet.PrintPreview; |
| 打印输出工作表 |
ExcelApp.ActiveSheet.PrintOut; |
| 工作表保存 |
if not ExcelApp.ActiveWorkBook.Saved then ExcelApp.ActiveSheet.PrintPreview; |
| 工作表另存为 |
ExcelApp.SaveAs( 'C:ExcelDemo1.xls' ); |
| 放弃存盘 |
ExcelApp.ActiveWorkBook.Saved := True; |
| 关闭工作簿 |
ExcelApp.WorkBooks.Close; |
| 退出 Excel |
ExcelApp.Quit; |