怎么在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.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 := '' 坐标轴说明 '' ;

转载于:https://www.cnblogs.com/awei0611/archive/2011/02/28/1967080.html

相关资源:Excel嵌入窗体上
已标记关键词 清除标记
通过实训要求学生利用网页开发工具、ASP.NET动态网页设计,结合企业网站的一些要求,学生能建立一个动态的企业或商业网站,使学生从网站规划、功能设计、数据库设计、界面设计、广告设计等方面得以提高。 培养学生从网站需要实现的功能角度考虑问题。考虑诸如网站定位、功能、主题、结构、风格、网络广告形式、创意以及开发工具、数据库和程序设计等技术的应用等综合能力。 1.完成商务网站——设计一个小型企业网站(企业介绍、售后服务支持、问题提交和解答等)或网上商店(书店、花店、百货店、网上产品销售等)。 2.完成企业网络营销方案的规划方案文档。 3.完成网站需求分析与规划书。 4.完成网站设计说明书。 5.网站要求有自己做的flash动画;包含弹出式在内的两种以上形式的网络广告(弹出广告要求:主题自定;尺寸360*360 pix;色彩协调统一;设计意念新颖)。 6.网站前台页面至少五页,可有最新信息、用户注册功能,同时可以对网站新产品、畅销产品、优惠产品等所有产品及详细资料的浏览功能和商品查询功能(应具有强大的搜索功能,可以按各个字段进行不同方式的高级搜索。),商品选择、商品定单提交和确认。 7.后台管理功能(对商品管理):只对管理员开放,管理员可以对商品进行增加、删除、修改,同时支持批量处理。也可以对订单进行审核处理、还可以对图书分类的类别进行管理,商品分类,可分为“商品名、产地、规格”等等,还可以上传商品的外观图片,用户可自行决定所要上传的图片大小,建议图片大小不要超过3-5K。 8.后台管理功能(对客户管理):会员分VIP会员和一般会员,并提供不同的优惠,对各种不同客户的管理。 系统测试用户: 管理员:admin 123456 会 员:xiaoshan 123456
表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
©️2020 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页