显示当前窗口 | 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; |