怎么在delphi中读取Excel数据（各种详细操作）

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

( 一 ) 使用动态创建的方法

首先创建 Excel 对象，使用ComObj :
Var
  ExcelApp : Variant ;
  ExcelApp := CreateOleObject ( '' Excel.Application '' ) ;

  1 ) 显示当前窗口：
  ExcelApp.Visible := True ;

  2 ) 更改 Excel 标题栏：
ExcelApp.Caption := '' 应用程序调用 Microsoft Excel '' ;

3 ) 添加新工作簿：
ExcelApp.WorkBooks.Add ;

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

5 ) 设置第2个工作表为活动工作表：
ExcelApp.WorkSheets [ 2 ] .Activate ;
或
ExcelApp.WorksSheets [ '' Sheet2 '' ] .Activate ;

6 ) 给单元格赋值：
ExcelApp.Cells [ 1 , 4 ] .Value := '' 第一行第四列 '' ;

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

8 ) 设置指定行的高度（单位：磅）（1磅＝0.035 厘米），以第二行为例：
ExcelApp.ActiveSheet.Rows [ 2 ] .RowHeight := 1 / 0.035 ; // 1厘米

9 ) 在第8行之前插入分页符：
ExcelApp.WorkSheets [ 1 ] .Rows [ 8 ] .PageBreak := 1 ;

10 ) 在第8列之前删除分页符：
ExcelApp.ActiveSheet.Columns [ 4 ] .PageBreak := 0 ;

11 ) 指定边框线宽度：
ExcelApp.ActiveSheet.Range [ '' B3 : D4 '' ] .Borders [ 2 ] .Weight := 3 ;
1 - 左 2 - 右 3 - 顶 4 - 底 5 - 斜 ( \ ) 6 - 斜 ( / )

12 ) 清除第一行第四列单元格公式：
ExcelApp.ActiveSheet.Cells [ 1 , 4 ] .ClearContents ;

13 ) 设置第一行字体属性：
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 ;

14 ) 进行页面设置：

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

15 ) 拷贝操作：

a.拷贝整个工作表：
ExcelApp.ActiveSheet.Used.Range.Copy ;
b.拷贝指定区域：
ExcelApp.ActiveSheet.Range [ '' A1 : E2 '' ] .Copy ;
c.从A1位置开始粘贴：
ExcelApp.ActiveSheet.Range. [ '' A1 '' ] .PasteSpecial ;
d.从文件尾部开始粘贴：
ExcelApp.ActiveSheet.Range.PasteSpecial ;

16 ) 插入一行或一列：
a.ExcelApp.ActiveSheet.Rows [ 2 ] .Insert ;
b.ExcelApp.ActiveSheet.Columns [ 1 ] .Insert ;

17 ) 删除一行或一列：
a.ExcelApp.ActiveSheet.Rows [ 2 ] .Delete ;
b.ExcelApp.ActiveSheet.Columns [ 1 ] .Delete ;

18 ) 打印预览工作表：
ExcelApp.ActiveSheet.PrintPreview ;

19 ) 打印输出工作表：
ExcelApp.ActiveSheet.PrintOut ;

20 ) 工作表保存：
If Not ExcelApp.ActiveWorkBook.Saved Then
  ExcelApp.ActiveSheet.PrintPreview ;

21 ) 工作表另存为：
ExcelApp.SaveAs ( '' C : \Excel\Demo1.xls '' ) ;

22 ) 放弃存盘：
ExcelApp.ActiveWorkBook.Saved := True ;

23 ) 关闭工作簿：
ExcelApp.WorkBooks.Close ;

24 ) 退出 Excel：
ExcelApp.Quit ;

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

1 ）打开Excel
ExcelApplication1.Connect ;

2 ) 显示当前窗口：
ExcelApplication1.Visible [ 0 ] := True ;

3 ) 更改 Excel 标题栏：
ExcelApplication1.Caption := '' 应用程序调用 Microsoft Excel '' ;

4 ) 添加新工作簿：
ExcelWorkbook1.ConnectTo ( ExcelApplication1.Workbooks.Add ( EmptyParam , 0 ) ) ;

5 ) 添加新工作表：
Var
  Temp_Worksheet : _WorkSheet ;
Begin
  Temp_Worksheet := ExcelWorkbook1.
    WorkSheets.Add ( EmptyParam , EmptyParam , EmptyParam , EmptyParam , 0 ) As _WorkSheet ;
  ExcelWorkSheet1.ConnectTo ( Temp_WorkSheet ) ;
End ;

6 ) 打开已存在的工作簿：
ExcelApplication1.Workbooks.Open ( c : \a.xls
  EmptyParam , EmptyParam , EmptyParam , EmptyParam ,
  EmptyParam , EmptyParam , EmptyParam , EmptyParam ,
  EmptyParam , EmptyParam , EmptyParam , EmptyParam , 0 )

7 ) 设置第2个工作表为活动工作表：
ExcelApplication1.WorkSheets [ 2 ] .Activate ;
或
ExcelApplication1.WorksSheets [ '' Sheet2 '' ] .Activate ;

8 ) 给单元格赋值：
ExcelApplication1.Cells [ 1 , 4 ] .Value := '' 第一行第四列 '' ;

9 ) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelApplication1.ActiveSheet.Columns [ 1 ] .ColumnsWidth := 5 ;

10 ) 设置指定行的高度（单位：磅）（1磅＝0.035 厘米），以第二行为例：
ExcelApplication1.ActiveSheet.Rows [ 2 ] .RowHeight := 1 / 0.035 ; // 1厘米

11 ) 在第8行之前插入分页符：
ExcelApplication1.WorkSheets [ 1 ] .Rows [ 8 ] .PageBreak := 1 ;

12 ) 在第8列之前删除分页符：
ExcelApplication1.ActiveSheet.Columns [ 4 ] .PageBreak := 0 ;

13 ) 指定边框线宽度：
ExcelApplication1.ActiveSheet.Range [ '' B3 : D4 '' ] .Borders [ 2 ] .Weight := 3 ;
1 - 左 2 - 右 3 - 顶 4 - 底 5 - 斜 ( \ ) 6 - 斜 ( / )

14 ) 清除第一行第四列单元格公式：
ExcelApplication1.ActiveSheet.Cells [ 1 , 4 ] .ClearContents ;

15 ) 设置第一行字体属性：
ExcelApplication1.ActiveSheet.Rows [ 1 ] .Font.Name := '' 隶书 '' ;
ExcelApplication1.ActiveSheet.Rows [ 1 ] .Font.Color := clBlue ;
ExcelApplication1.ActiveSheet.Rows [ 1 ] .Font.Bold := True ;
ExcelApplication1.ActiveSheet.Rows [ 1 ] .Font.UnderLine := True ;

16 ) 进行页面设置：
a.页眉：
ExcelApplication1.ActiveSheet.PageSetup.CenterHeader := '' 报表演示 '' ;
b.页脚：
ExcelApplication1.ActiveSheet.PageSetup.CenterFooter := '' 第&P页 '' ;
c.页眉到顶端边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 2 / 0.035 ;
d.页脚到底端边距3cm：
ExcelApplication1.ActiveSheet.PageSetup.HeaderMargin := 3 / 0.035 ;
e.顶边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.TopMargin := 2 / 0.035 ;
f.底边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.BottomMargin := 2 / 0.035 ;
g.左边距2cm：
ExcelAppli

cation1.ActiveSheet.PageSetup.LeftMargin := 2 / 0.035 ;
h.右边距2cm：
ExcelApplication1.ActiveSheet.PageSetup.RightMargin := 2 / 0.035 ;
i.页面水平居中：
ExcelApplication1.ActiveSheet.PageSetup.CenterHorizontally := 2 / 0.035 ;
j.页面垂直居中：
ExcelApplication1.ActiveSheet.PageSetup.CenterVertically := 2 / 0.035 ;
k.打印单元格网线：
ExcelApplication1.ActiveSheet.PageSetup.PrintGridLines := True ;

17 ) 拷贝操作：

a.拷贝整个工作表：
ExcelApplication1.ActiveSheet.Used.Range.Copy ;

b.拷贝指定区域：
ExcelApplication1.ActiveSheet.Range [ '' A1 : E2 '' ] .Copy ;

c.从A1位置开始粘贴：
ExcelApplication1.ActiveSheet.Range. [ '' A1 '' ] .PasteSpecial ;

d.从文件尾部开始粘贴：
ExcelApplication1.ActiveSheet.Range.PasteSpecial ;

18 ) 插入一行或一列：
a.ExcelApplication1.ActiveSheet.Rows [ 2 ] .Insert ;
b.ExcelApplication1.ActiveSheet.Columns [ 1 ] .Insert ;

19 ) 删除一行或一列：
a.ExcelApplication1.ActiveSheet.Rows [ 2 ] .Delete ;
b.ExcelApplication1.ActiveSheet.Columns [ 1 ] .Delete ;

20 ) 打印预览工作表：
ExcelApplication1.ActiveSheet.PrintPreview ;

21 ) 打印输出工作表：
ExcelApplication1.ActiveSheet.PrintOut ;

22 ) 工作表保存：
If Not ExcelApplication1.ActiveWorkBook.Saved Then
  ExcelApplication1.ActiveSheet.PrintPreview ;

23 ) 工作表另存为：
ExcelApplication1.SaveAs ( '' C : \Excel\Demo1.xls '' ) ;

24 ) 放弃存盘：
ExcelApplication1.ActiveWorkBook.Saved := True ;

25 ) 关闭工作簿：
ExcelApplication1.WorkBooks.Close ;

26 ) 退出 Excel：
ExcelApplication1.Quit ;
ExcelApplication1.Disconnect ;

( 三 ) 使用Delphi 控制Excle二维图
在Form中分别放入ExcelApplication , ExcelWorkbook和ExcelWorksheet
Var
  asheet1 , achart , range : variant ;

  1 ）选择当第一个工作薄第一个工作表
    asheet1 := ExcelApplication1.Workbooks [ 1 ] .Worksheets [ 1 ] ;

  2 ）增加一个二维图
    achart := asheet1.chartobjects.add ( 100 , 100 , 200 , 200 ) ;

  3 ）选择二维图的形态
    achart.chart.charttype := 4 ;

  4 ）给二维图赋值
    series := achart.chart.seriescollection ;
  range := sheet1!r2c3 : r3c9 ;
  series.add ( range , true ) ;

  5 ）加上二维图的标题
    achart.Chart.HasTitle := True ;
  achart.Chart.ChartTitle.Characters.Text := ’ Excle二维图’

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

  7 ）给二维图加下标说明
    achart.Chart.Axes ( xlCategory , xlPrimary ) .HasTitle := True ;
  achart.Chart.Axes ( xlCategory , xlPrimary ) .AxisTitle.Characters.Text := '' 下标说明 '' ;

  8 ）给二维图加左标说明
    achart.Chart.Axes ( xlValue , xlPrimary ) .HasTitle := True ;
  achart.Chart.Axes ( xlValue , xlPrimary ) .AxisTitle.Characters.Text := '' 左标说明 '' ;

  9 ）给二维图加右标说明
    achart.Chart.Axes ( xlValue , xlSecondary ) .HasTitle := True ;
  achart.Chart.Axes ( xlValue , xlSecondary ) .AxisTitle.Characters.Text := '' 右标说明 '' ;

  10 ）改变二维图的显示区大小
    achart.Chart.PlotArea.Left := 5 ;
  achart.Chart.PlotArea.Width := 223 ;
  achart.Chart.PlotArea.Height := 108 ;

  11 ）给二维图坐标轴加上说明
    achart.chart.seriescollection [ 1 ] .NAME := '' 坐标轴说明 '' ;

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

delphixe2下载地址发布时间：2022-07-18

Delphi中的颜色发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：19231|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9996|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8331|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8700|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8645|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9667|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8630|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：8004|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8664|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7540|2022-11-06

客服电话

电子邮件

怎么在delphi中读取Excel数据（各种详细操作）

请发表评论

全部评论

上一篇：

下一篇：

krishnaik06/Machine-Learning-in-90-days

谈谈matlab中的uint8和double（转） - Rege

armancodv/building-energy-model-matlab:

美元符号为什么是“$”

FGRibreau/import-tweets-to-mastodon: How

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053