delphi中如何读取Excel数据?delphi中读取Excel数据详解
发布时间:2023-05-17 17:58:20
今天小编要为大家带来的是delphi中读取Excel数据详解;希望对大家会有帮助,有需要的朋友一起去看看吧
( 一 ) 使用动态创建的方法
首先创建 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.ActiveWorkBook.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 := '' 坐标轴说明 '' ;
猜你喜欢
- 继上周发布 iOS 13.5.1 后,苹果在今天凌晨停止了 iOS 13.5 的验证,彻底阻止了用户降级到之前的操作系统,这也意味着只要升级
- 假设有两张员工加班超额完成任务的统计表,表1为原始数据,表2为修正后的数据。要对比两张表中哪些人的任务做过修正,该如何操作呢?首先,我们选中
- Word文章最后一页怎么压缩到其他页?word文档最后一页的内容很少,不值得浪费一张纸,怎么才能压缩到其他页减少一页呢?请看下文详细介绍,需
- 第1步,打开Word2013文档窗口,依次单击“文件”→“选项”命令。 2第2步,打开“Word选项”对话框,切换
- 这个问题初步判断为服务器上面缺少office的组件。我开发的环境安装了vs2005。vs2005安装完毕后,在GAC(路径为:C
- 脚注允许你引用文章、说明观点的来源,并在不转移正文话题内容的前提下详细地阐述某些概念。在Word文档中,添加的脚注会自动进行编号,同时脚注区
- Word是财务工作人员常用的办公软件之一,下面的一些和财务工作相关的Word技巧应该对大家有所帮助。一、运用"编辑--选择性粘贴&
- 我们在使用Word2010编辑文档的过程中,很多时候需要插入多级列表编号,以更清晰地标识出段落之间的层次关系。今天,小编就教大家在Excel
- 如何在Word 2007中定位图片?您可以轻松地在Word 2007文档中移动图片:只需使用鼠标单击并将图像拖到想要放置的位置即可。图形与文
- 在Word文档中编辑和处理文本内容时我们可以根据自己的实际需要对文档进行一定的样式设计,比如我们可以为文档设置个性化的背景效果等等。在设计时
- 方法一:1、首先,是一个word表格,里面的文字在表格内显示不全。2、选中需要调整的表格内容,然后选择工具栏中的“段落”工具。3、接下来在弹
- word设置上下页边距:步骤一:首先打开或编辑自己需要设置页边距的word文档,如图所示:步骤二:通过单击“页面布局”-“页边距”来加以设置
- 在Word中可以对插入在文档中的图片进行图片大小的调整,这样的调整图片大小后,使得图片与文章更加协调、美观。那么下面就由小编给大家分享下设置
- 在使用word进行文档编辑的时候我们经常会遇到需要对文章的每页行数与每行字数进行设定,但是却经常发现没有快速的方法进行调节,或者调节后显示效
- 我们在日常使用电脑办公的过程当中偶尔会出现一些小故障,今天小编想要给大家分享其中最常见的一个问题就是win10电脑出现一直重启的这个故障问题
- 下面小编就为大家介绍word把一列数据保留两位小数方法,对于不知道怎么操作的朋友可以参考本文,希望这篇文章能对大家有所帮助word想要保留两
- Excel为方便用户及时记录,提供了添加批注的功能,当你给单元格进行注释后,只需将鼠标停留在单元格上,就可看到相应的批注。添加批注的方法是:
- 快来看又是款小编很推荐的装机系统,可称得上是业界的良心作品,堪称精品系统。大家有兴趣的来试着安装雨林木风win10版本看看,今天为您介绍u盘
- Office Tool Plus是一款十分好用的office安装辅助工具,许多用户都使用这款软件对各个版本的office进行一些管理操作,但
- 有时候我们需要将文档加密,才能保证不被修改等。接下来由小编为大家推荐的Word文档设置密码的技巧,希望对你有所帮助!Word文档设置密码的技