文章来源：http://www.itnose.net/detail/6026772.html
更多文章：http://www.itnose.net/type/50.html
( 一 ) 使用动态创建的方法
首先创建 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 := '' 坐标轴说明 '' ;
相关推荐
Delphi 中读取 Excel 数据 Delphi 是一个功能强大的开发环境，它可以与许多其他应用程序集成，以实现复杂的自动化任务。其中， Delphi 中读取 Excel 数据是非常常见的一种应用场景。本文将详细介绍 Delphi 中读取 ...
"Delphi7 读取 Excel 文件" Delphi7 是一个功能强大的开发环境，它提供了多种方式来读取 Excel 文件。在本文中，我们将介绍使用 OLE 和 Excel Application 读取 Excel 文件的方法。 使用 OLE 读取 Excel 文件 ...
DELPHI ADO读取Excel文件范例，进行数据的转换和导入导出。要用DELPHI中的ADO系列控件访问Excel数据文件，首先应该建立一些基本概念。你需要将一个Excel数据文件想象为一个关系数据库，Excel文件中的每个工作表就对...
在使用Delphi XE10.3开发应用程序时，我们经常需要处理与Excel和图形相关的任务，例如读取Excel文件中的数据，根据这些数据生成图表，然后保存为新的文件。在这个场景中，开发者可能需要利用Microsoft Office的COM...
在Delphi编程环境中，从Excel导入数据是一项常见的需求，尤其在数据分析、报表处理或数据库集成等场景下。本文将详细探讨如何实现这个功能，并提供一个通用的方法。 首先，要完成这个任务，我们需要一个能与Excel...
以下是一个简单的Delphi读取Excel文件的源代码示例，基于JvExcel库： ```pascal unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, JvExcel; ...
在Delphi编程环境中，我们可以使用多种方法来读取Excel数据，其中最常见的是OLE自动化和ADO（ActiveX Data Objects）。本篇文章将深入探讨如何使用ADO在Delphi中高效地读取Excel数据，并对比OLE方法的优势。 标题...
在本文中，我们将深入探讨如何使用Delphi编程语言来读取Excel电子表格。Delphi是一个强大的Windows应用程序开发工具，它提供了丰富的组件库，使得与Microsoft Excel的交互变得相对简单。在本实例中，我们将主要利用...
Delphi程序读取Excel文件的数据 Delphi 作为一个出色的 RAD，强大的数据库功能是其最重要的特色之一，但是操纵困难的 QuickReport 控件常常不能满足数据库报表的需要。如果你的报表非常复杂，或者要求灵活地改变...
delphi 读取 Excel 到TMemo ，数据连接到Excel ，不错的
2. **读取Excel**：使用TJvExcelAppComp或者第三方库打开并读取Excel文件，将数据存入内存结构如数组或记录集。 3. **转化数据**：根据数据库表结构，将Excel数据转化为对应的字段值。 4. **插入数据**：通过...
用来读取Excel,Access的控件 读写任何单元值 数字型、字符型、布尔型以及错误型。但是你了解日期和时间型单元吗？在Excel中没有这样的单元。Excel是和Delphi一样的方式来存储日期和时间的，即浮点型。那是什么制造...
### Delphi读取Excel知识点详解 #### 一、Delphi简介 Delphi 是一款非常强大的集成开发环境（IDE），主要用于Windows平台的应用程序开发。它基于Object Pascal语言，并提供了丰富的类库支持，使得开发者能够快速地...
在Delphi中，获取Excel数据的行数和列数是一项常见的任务，这通常涉及到与Microsoft Office Automation接口的交互。为了实现这一功能，我们需要使用OLE自动化技术来操控Excel对象模型。以下是一个详细的步骤和知识点...
delphi 读取 Excel 到TMemo ，数据连接到Excel
从TDataSet派生的控件。它可以通过FlexCelVCL读取Excel的xls电子表文件。由于其从标准TDataSet派生，可用于任何TDataSet兼容控件，如TDBGrid，TDBGridEh等数据感知控件。带有demo.
在Delphi编程环境中操作Excel和WPS文档是一种常见的需求，尤其是在处理大量数据或自动化办公任务时。本文将详细介绍如何使用Delphi来操作这两种不同格式的电子表格，并指出它们之间的差异及共通之处。 #### 一、...
以上步骤提供了从Delphi读取Excel文件中特定单元格内容的方法。通过创建Excel应用程序对象、打开Excel文件、操作工作表以及读取单元格内容等步骤，可以实现这一目标。需要注意的是，在实际开发中还需要考虑错误处理...
### Delphi读取Excel知识点详解 #### 一、Delphi简介 Delphi是一种基于Object Pascal的集成开发环境（IDE），由Borland公司最初开发，后来由Embarcadero Technologies继续维护和发展。它广泛应用于Windows应用程序...
本示例将详细介绍如何读取Excel文件中的单个或多个Sheet，并将其数据转换为DataSet或DataTable对象。这在数据分析、数据导入导出或者报表生成等场景中非常有用。 首先，我们需要一个能够处理Excel文件的库。在.NET ...