怎么在delphi中读取Excel数据 转

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

原文来自http://www.cnblogs.com/azhqiang/p/3678832.html

1.如不雅只是想一次或几回将文本数据传入excel，完全不必编程，excel有这个功能。3。应用Dao/Ado也可做到。具体做法请查有关材料。2。如不雅要编程实现，去delphi窑洞找到xlsreadwrite1.35控件，可以知足你的请求。

方法如下：

使用函数xlsread读取单个文件。

num=xlsread(filename)

filename是单引号括起来的带路径的文件名，函数直接读取filename所指文件的sheet1中的数据区域存储到双精度矩阵num中；其中数据区域的选取规则是：对表格前几个含有非数值的行（列）直接忽略，不算入数据区域；另外如果在数据区域中含有非数值的单元，将其处理为nan。

num=xlsread(filename,-1)

输入后matlab将会打开相应的exel文件，用鼠标选择需要导入的数据区域，可以切换到想要的sheet。

num=xlsread(filename,sheet)

其中sheet用来指定读入excel文件的第几个sheet，此时的sheet取值大于1的整数。

num=xlsread(filename,sheet,'range')

其中range指定一个矩形的区域，用单引号括起来；例如：'D2:H4'代表以D2和H4为对角定点的矩形域

当excel中有合并单元格时，任何一个合并前的单元格的名字（比如D1）都会指代整个合并后的单元格，而将整个单元格读入，所以为了避免麻烦，尽量避免在需要读入的表格中合并单元格。

例如:

将读取D盘下的一个文件路径为：

D:/test/daxia.xls

num=xlsread('d:/test/daxia.xls',2,'D2:H4')读取sheet2的D2：H4区域数据

如果要进行交互式的选择用：num=xlsread('d:/test/daxia.xls',-1)

批量的文件要读取：

首先将多个文件进行批量重命名例如daxia1.xls,daxia2.xls,daxia3.xls,...

然后用循环的方式实现：

fori=1:100

filename=['d:/test/daxia',num2str(i),'.xls'] 

num=xlsread(filename)

end

---