Delphi中使用OLE方法操作Excel

原作者: [db:作者] 来自: [db:来源] 收藏邀请


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