Delphi控制Excel2000心得

一 使用动态创建的方法

首先创建 Excel 对象 使用ComObj:var ExcelApp: VariantExcelApp := CreateOleObject( Excel Application )

) 显示当前窗口 ExcelApp Visible := True

) 更改 Excel 标题栏 ExcelApp Caption := 应用程序调用 Microsoft Excel

) 添加新工作簿 ExcelApp WorkBooks Add

) 打开已存在的工作簿 ExcelApp WorkBooks Open( C:\Excel\Demo xls )

) 设置第 个工作表为活动工作表 ExcelApp WorkSheets[ ] Activate或 ExcelApp WorksSheets[ Sheet ] Activate

) 给单元格赋值 ExcelApp Cells[ ] Value := 第一行第四列

) 设置指定列的宽度（单位 字符个数） 以第一列为例 ExcelApp ActiveSheet Columns[ ] ColumnsWidth :=

) 设置指定行的高度（单位 磅）（ 磅＝ 厘米） 以第二行为例 ExcelApp ActiveSheet Rows[ ] RowHeight := / // 厘米

) 在第 行之前插入分页符 ExcelApp WorkSheets[ ] Rows[ ] PageBreak :=

) 在第 列之前删除分页符 ExcelApp ActiveSheet Columns[ ] PageBreak :=

) 指定边框线宽度 ExcelApp ActiveSheet Range[ B :D ] Borders[ ] Weight := 左 右 顶 底 斜( \ ) 斜( / )

) 清除第一行第四列单元格公式 ExcelApp ActiveSheet Cells[ ] ClearContents

) 设置第一行字体属性 ExcelApp ActiveSheet Rows[ ] Font Name := 隶书 ExcelApp ActiveSheet Rows[ ] Font Color := clBlueExcelApp ActiveSheet Rows[ ] Font Bold := TrueExcelApp ActiveSheet Rows[ ] Font UnderLine := True

) 进行页面设置

a 页眉 ExcelApp ActiveSheet PageSetup CenterHeader := 报表演示 b 页脚 ExcelApp ActiveSheet PageSetup CenterFooter := 第&P页 c 页眉到顶端边距 cm ExcelApp ActiveSheet PageSetup HeaderMargin := / d 页脚到底端边距 cm ExcelApp ActiveSheet PageSetup HeaderMargin := / e 顶边距 cm ExcelApp ActiveSheet PageSetup TopMargin := / f 底边距 cm ExcelApp ActiveSheet PageSetup BottomMargin := / g 左边距 cm ExcelApp ActiveSheet PageSetup LeftMargin := / h 右边距 cm ExcelApp ActiveSheet PageSetup RightMargin := / i 页面水平居中 ExcelApp ActiveSheet PageSetup CenterHorizontally := / j 页面垂直居中 ExcelApp ActiveSheet PageSetup CenterVertically := / k 打印单元格网线 ExcelApp ActiveSheet PageSetup PrintGridLines := True

) 拷贝 *** 作

a 拷贝整个工作表 ExcelApp ActiveSheet Used Range Copyb 拷贝指定区域 ExcelApp ActiveSheet Range[ A :E ] Copyc 从A 位置开始粘贴 ExcelApp ActiveSheet Range [ A ] PasteSpeciald 从文件尾部开始粘贴 ExcelApp ActiveSheet Range PasteSpecial

) 插入一行或一列 a ExcelApp ActiveSheet Rows[ ] Insertb ExcelApp ActiveSheet Columns[ ] Insert

) 删除一行或一列 a ExcelApp ActiveSheet Rows[ ] Deleteb ExcelApp ActiveSheet Columns[ ] Delete

) 打印预览工作表 ExcelApp ActiveSheet PrintPreview

) 打印输出工作表 ExcelApp ActiveSheet PrintOut

) 工作表保存 if not ExcelApp ActiveWorkBook Saved then ExcelApp ActiveSheet PrintPreview

) 工作表另存为 ExcelApp SaveAs( C:\Excel\Demo xls )

) 放弃存盘 ExcelApp ActiveWorkBook Saved := True

) 关闭工作簿 ExcelApp WorkBooks Close

) 退出 Excel ExcelApp Quit

二 使用Delphi 控件方法 在Form中分别放入ExcelApplication ExcelWorkbook和ExcelWorksheet

） 打开Excel ExcelApplication Connect

) 显示当前窗口 ExcelApplication Visible[ ]:=True

) 更改 Excel 标题栏 ExcelApplication Caption := 应用程序调用 Microsoft Excel

) 添加新工作簿 ExcelWorkbook ConnectTo(ExcelApplication Workbooks Add(EmptyParam ))) 添加新工作表 var Temp_Worksheet: _WorkSheet　begin　Temp_Worksheet:=ExcelWorkbook 　WorkSheets Add(EmptyParam EmptyParam EmptyParam EmptyParam ) as _WorkSheet　ExcelWorkSheet ConnectTo(Temp_WorkSheet)　End) 打开已存在的工作簿 ExcelApplication Workbooks Open (c:\a xls EmptyParam EmptyParam EmptyParam EmptyParam EmptyParam EmptyParam EmptyParam EmptyParam EmptyParam EmptyParam EmptyParam EmptyParam )

) 设置第 个工作表为活动工作表 ExcelApplication WorkSheets[ ] Activate或 ExcelApplication WorksSheets[ Sheet ] Activate

) 给单元格赋值 ExcelApplication Cells[ ] Value := 第一行第四列

) 设置指定列的宽度（单位 字符个数） 以第一列为例 ExcelApplication ActiveSheet Columns[ ] ColumnsWidth :=

) 设置指定行的高度（单位 磅）（ 磅＝ 厘米） 以第二行为例 ExcelApplication ActiveSheet Rows[ ] RowHeight := / // 厘米

) 在第 行之前插入分页符 ExcelApplication WorkSheets[ ] Rows[ ] PageBreak :=

) 在第 列之前删除分页符 ExcelApplication ActiveSheet Columns[ ] PageBreak :=

) 指定边框线宽度 ExcelApplication ActiveSheet Range[ B :D ] Borders[ ] Weight := 左 右 顶 底 斜( \ ) 斜( / )

) 清除第一行第四列单元格公式 ExcelApplication ActiveSheet Cells[ ] ClearContents

) 设置第一行字体属性 ExcelApplication ActiveSheet Rows[ ] Font Name := 隶书 ExcelApplication ActiveSheet Rows[ ] Font Color := clBlueExcelApplication ActiveSheet Rows[ ] Font Bold := TrueExcelApplication ActiveSheet Rows[ ] Font UnderLine := True

) 进行页面设置 a 页眉 ExcelApplication ActiveSheet PageSetup CenterHeader := 报表演示 b 页脚 ExcelApplication ActiveSheet PageSetup CenterFooter := 第&P页 c 页眉到顶端边距 cm ExcelApplication ActiveSheet PageSetup HeaderMargin := / d 页脚到底端边距 cm ExcelApplication ActiveSheet PageSetup HeaderMargin := / e 顶边距 cm ExcelApplication ActiveSheet PageSetup TopMargin := / f 底边距 cm ExcelApplication ActiveSheet PageSetup BottomMargin := / g 左边距 cm ExcelApplication ActiveSheet PageSetup LeftMargin := / h 右边距 cm ExcelApplication ActiveSheet PageSetup RightMargin := / i 页面水平居中 ExcelApplication ActiveSheet PageSetup CenterHorizontally := / j 页面垂直居中 ExcelApplication ActiveSheet PageSetup CenterVertically := / k 打印单元格网线 ExcelApplication ActiveSheet PageSetup PrintGridLines := True

) 拷贝 *** 作

a 拷贝整个工作表 ExcelApplication ActiveSheet Used Range Copy

b 拷贝指定区域 ExcelApplication ActiveSheet Range[ A :E ] Copy

c 从A 位置开始粘贴 ExcelApplication ActiveSheet Range [ A ] PasteSpecial

d 从文件尾部开始粘贴 ExcelApplication ActiveSheet Range PasteSpecial

) 插入一行或一列 a ExcelApplication ActiveSheet Rows[ ] Insertb ExcelApplication ActiveSheet Columns[ ] Insert

) 删除一行或一列 a ExcelApplication ActiveSheet Rows[ ] Deleteb ExcelApplication ActiveSheet Columns[ ] Delete

) 打印预览工作表 ExcelApplication ActiveSheet PrintPreview

) 打印输出工作表 ExcelApplication ActiveSheet PrintOut

) 工作表保存 if not ExcelApplication ActiveWorkBook Saved then ExcelApplication ActiveSheet PrintPreview

) 工作表另存为 ExcelApplication SaveAs( C:\Excel\Demo xls )

) 放弃存盘 ExcelApplication ActiveWorkBook Saved := True

) 关闭工作簿 ExcelApplication WorkBooks Close

) 退出 Excel ExcelApplication QuitExcelApplication Disconnect

三 使用Delphi 控制Excle二维图 在Form中分别放入ExcelApplication ExcelWorkbook和ExcelWorksheet var asheet achart range:variant

）选择当第一个工作薄第一个工作表asheet :=ExcelApplication Workbooks[ ] Worksheets[ ]

）增加一个二维图achart:=asheet chartobjects add( )

）选择二维图的形态achart chart charttype:=

）给二维图赋值series:=achart chart seriescollectionrange:=sheet !r c :r c series add(range true)）加上二维图的标题achart Chart HasTitle:=Trueachart Chart ChartTitle Characters Text:= Excle二维图

）改变二维图的标题字体大小achart Chart ChartTitle Font size:=

）给二维图加下标说明achart Chart Axes(xlCategory xlPrimary) HasTitle := Trueachart Chart Axes(xlCategory xlPrimary) AxisTitle Characters Text := 下标说明

）给二维图加左标说明achart Chart Axes(xlValue xlPrimary) HasTitle := Trueachart Chart Axes(xlValue xlPrimary) AxisTitle Characters Text := 左标说明

）给二维图加右标说明achart Chart Axes(xlValue xlSecondary) HasTitle := Trueachart Chart Axes(xlValue xlSecondary) AxisTitle Characters Text := 右标说明

）改变二维图的显示区大小achart Chart PlotArea Left := achart Chart PlotArea Width := achart Chart PlotArea Height :=

lishixinzhi/Article/program/Delphi/201311/25063

这个可以通过编写一个EXCEL 的宏命令来实现，

我试验了一下，已通过测试，

假定你的EXCEL有2500多行，从第0行到第2500行，每隔5行插入一行, 其内容为"内容试验"，则代码如下：

Sub a()

For i = 2500 To 0 Step -5

StrRowName = CStr(i) &":" &CStr(i)

Rows(StrRowName).Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A" &CStr(i)).Value = "内容试验"

Next i

End Sub

在你的Excel中按Alt+F11,

Copy 上面的代码到窗口

再按F5执行这个宏，效果马上出来，你可试试

如若仍不清楚，请在百度上发短信问我，或发到我的邮箱pebsi@qq.com

看看这个

http://support.microsoft.com/default.aspx?scid=kbzh-cn220780安装 Microsoft Office 2000 时，可能会出现以下错误信息：

内部错误 2755：请与产品支持联系获得帮助。

而且，当您查看安装日志文件（如 Office 2000 Premium Setup(0002)_MsiExec.txt）时，会在 2755 错误上方看到与类似于以下的文字：

异常代码：C0000005 ACCESS_VIOLATION

模块：C:\WINNT\System32\ntdll.dll

函数：0x77f7bdd3

原因

如果以下条件都成立时，会出现此错误信息： • 您通过网络安装过较早版本的 Office。 -以及-

• -以及- 您有一个映射驱动器号指向该 Office 在网络上的位置。

-以及-

• -以及- 满足以下两个条件中的任何一个：

网络位置在 Office\XLStart 文件夹中没有任何文件。

-或-

您对 Office\XLStart 文件夹只有只读权限。

替代方法

要解决这一问题，请按以下步骤 *** 作： 1. 双击我的电脑。

2. 用鼠标右键单击安装较早版本 Office 时使用的驱动器。

3. 然后，单击快捷菜单上的断开。

4. 运行 Office 2000 安装程序。

状态

Microsoft 已经确认这是本文开头所列出的 Microsoft 产品本身的问题。

参考

有关如何解决 Office 安装过程中的具体错误的更多文章，请单击以下的链接：

Office 2000 的 Windows 安装服务错误 (http://search.support.microsoft.com/kb/canned.asp?R=d&H=Windows+Installer+Errors+for+Office+2000&LL=of20+or+xl2000kb&Sz=xlwinsetup+and+kberrmsg)

有关如何解决 Office 错误的一般性信息的更多文章，请单击以下的链接：

Office 2000 故障排除 (http://support.microsoft.com/common/canned.aspx?r=d&h=troubleshoooting+office+2000&ll=of20+or+xl2000kb&sz=kbdtatshoot)

---