delphi 控制 excel，创建报表

最新推荐文章于 2023-03-04 07:13:27 发布
最新推荐文章于 2023-03-04 07:13:27 发布
阅读量3.1k 收藏 4
点赞数
分类专栏： Delphi 文章标签： delphi excel 报表 工作 microsoft application 
http://www.delphibbs.com/keylife/iblog_show.asp?xid=11659

一) 使用动态创建的方法

首先创建 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.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.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：
    ExcelApplication1.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二维图’
 
http://topic.csdn.net/t/20020514/16/721450.html

//   转贴  
   
  Delphi   5   控制Excel  
   
                          作者：吴晓勇，孙唏瑜  
                          时间：2001年11月20日  
   
  (一)   使用动态创建的方法  
   
  首先创建   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;Top

2 楼dancemaple（枫之舞）回复于 2002-05-14 16:54:14 得分 0

二)   使用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：  
          ExcelApplication1.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);  
  Top

3 楼Deepsea2000（深海）回复于 2002-05-14 17:17:12 得分 0

多谢了！那还有word的方法呢？呵呵，我很菜的！能否一并提供他们的出处，让我能够了解得更加详细。Top

4 楼cg1120（代码最优化－§惟坚韧者始能遂其志§）回复于 2002-05-14 17:31:12 得分 60

在DELPHI中操作Excel：  
  Unit   excel;  
   
  Interface  
   
  Uses  
   
      Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj,  
   
      {   ComObj是操作OLE对象的函数集}  
   
  Type  
   
      TForm1=class(TForm)  
   
  Button1:TButton;  
   
  Procedure   Button1Click(Sender:Tobject);  
   
      Private    
   
  {   Private   declaration}  
   
      Public    
   
  {   Public   declaration   }  
   
      end;  
   
     
   
  var  
   
      Form1:Tform1;    
   
  Implementation  
   
  {$R   *.DFM}  
   
  procedure   TForm1.Button1Click(sender:Tobject);  
   
  var  
   
      eclApp,WordBook:Variant;     {声明为OLE   Automation对象}  
   
      xlsFileName:string;  
   
  begin  
   
      xlsFileName:=’ex.xls’;  
   
      try  
   
          {创建OLE对象：Excel   Application与WordBook}  
   
  eclApp:=CreateOleObject(‘Excel.Application’);  
   
  WorkBook:=CreateOleObject(Excel.Sheet’);  
   
      Except  
   
  Application.MessageBox(‘你的机器没有安装Microsoft   Excel’,  
   
  ’使用Microsoft   Excel’,MB_OK+MB_ICONWarning);  
   
  Exit;  
   
      End;  
   
      Try  
   
  ShowMessage(‘下面演示：新建一个XLS文件，并写入数据，并关闭它。’);  
   
  WorkBook:=eclApp.workbooks.Add;  
   
  EclApp.Cells(1,1):=’字符型’;  
   
  EclApp.Cells(2,1):=’Excel文件’;  
   
  EclApp.Cells(1,2):=’Money’;  
   
  EclApp.Cells(2,2):=10.01;  
   
  EclApp.Cells(1,3):=’日期型’;  
   
  EclApp.Cells(2,3):=Date;  
   
  WorkBook.SaveAS(xlsFileName);  
   
  WorkBook.close;  
   
  ShowMessage(‘下面演示：打开刚创建的XLS文件，并修改其中的内容，然后，由用户决定是否保存。’);  
   
  Workbook:=eclApp.WorkBooks.Open(xlsFileName);  
   
  EclApp.Cells(1,4):=’Excel文件类型’;  
   
  If   MessageDlg(xlsFileName+’已经被修改，是否保存？’,  
   
  mtConfirmation,[mbYes,mbNo],0)=mrYes   then  
   
      WorkBook.Save  
   
  Else  
   
      WorkBook.Saved:=True;     {放弃保存}  
   
  Workbook.Close;  
   
  EclApp.Quit;       //退出Excel   Application  
   
  {释放Variant变量}  
   
  eclApp:=Unassigned;  
   
      except  
   
  ShowMessage(‘不能正确操作Excel文件。可能是该文件已被其他程序打开，或系统错误。’);  
   
  WorkBook.close;  
   
  EclApp.Quit;  
   
  {释放Variant变量}  
   
  eclApp:=Unassigned;  
   
      end;  
   
  end;  
   
  end.  
   
     
   
        了解了上述操作过程后，我们就可以很容易地将数据库中的数据转换成Excel文件。


http://www.yesky.com/275/1801775.shtml
Delphi控制Excel自动生成报表

作者：赵中凯 梅国建 出处：论坛 责任编辑： 方舟 [ 2004-05-27 11:35 ]
本文介绍如何使用Delphi来控制Excel完成数据库与报表之间的数据交换
<script language="JavaScript" type="text/javascript"> document.write("
yethyeth
关注
  • 0
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
Delphi自定义报表
02-23
DELPHI 自定义报表控件，可以自己设计报表，绑定数据的报表
基于Delphi的Excel动态报表技术
06-26 1616
摘  要  本文针对在Delphi中设计输出报表所遇到的问题，引用编程环境中提供的Excel对象，编程控制Access中的数据输出到Excel对象中，使基于任意数据表或查询的各种复杂报表的制作问题得到了解决。并通过具体项目开发实例详细阐述了基于Delphi的Excel动态报表制作技术。    关键词  Delphi；Access；Excel；动态报表  1  引言     在管
delphi 运用EXCEL报表统计
09-26
delphi 运用EXCEL报表统计,delphi 运用EXCEL报表统计
Delphi程序执行时实时生成报表
ljhsoft的专栏
12-03 1565
 作者：刘建华      Delphi程序执行时实时生成报表当前，在软件开发工具中，Delphi以其控件多、面向对象编程功能强、代码执行速度快和简单易用等特点，结合可视化开发环境和当前最快的编译器技术，已成为全球公认的快速应用开发工具，正被愈来愈多的编程人员所采用。使用Delphi可以编写各种Windows应用程序，尤其是开发数据库信息管理系统有其独特的优势。在数据库信息管理系统的开发
用于DELPHI中的Excel报表控件
07-19
很实用的Excel安装控件,在DELPHI中使用,非常方便,可视介面.
Delphi 操作Excel方法大全
xiaobin_zb的博客
09-04 6071
Delphi操作Excel大全 原文地址：http://blog.csdn.net/lailai186/article/details/6664110 Delphi 控制Excel (一) 使用动态创建的方法 首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( ‘Excel.Application’ ); 显示当前窗口： ExcelApp.Visible := True; 更改 Excel 标题栏： Ex
Delphi控制Excel的重要属性和方法.rar_delphi excel_excel
09-23
在Delphi中控制Excel主要涉及使用Microsoft Office自动化接口，这允许开发者通过编程方式与Excel交互，创建、修改、读取和处理Excel工作簿。本文将深入探讨Delphi中控制Excel的一些关键属性和方法。 首先，我们需要...
Delphi结合Excel打印报表实例代码..rar
04-26
本实例涉及的是如何在Delphi项目中利用Excel进行报表打印，这在企业管理、数据分析等领域十分常见。通过理解并应用这个实例代码，开发者可以学习到如何在Delphi程序中与Microsoft Excel进行交互，实现数据的读取、...
Delphi控制Excel
08-18
通过以上信息，你可以创建一个 Delphi 应用来生成 Excel 报表和图表，例如，展示月份销售情况。你可以使用 `Worksheets`、`Range`、`Charts` 等对象，设置单元格的值、插入公式，以及创建图表。 总的来说，Delphi ...
delphi对excel的控制操作
02-22
1. **创建Excel实例**：在Delphi程序中，我们首先需要创建一个Excel Application对象，这样就可以访问Excel的功能。例如： ```delphi var ExcelApp: Variant; begin ExcelApp := CreateOleObject('Excel....
delphi EXCEL 复杂报表开发
09-05
这是电脑编程技巧与维护中的关于delphi开发excel类的复杂报表的列子，共享一下。
delphi导入电子表格
09-23
用delphi导入电子表格数据,导出电表格数据
delphi编写向表格写数据和读数据
01-16
delphi编写向表格写数据和读数据，可以设定表格高度，宽度，写入数据，对应读出每一位数据。
Delphi 新建、生成Excel源码实例.rar
07-10
Delphi 新建、生成Excel源码实例，演示了Excel启动和关闭、Excel与数据库相关操作、Excel工作簿多种操作演示等。比如新建EXCEL，读取Excel内容，向Excel中写入内容，打印Excel表格等功能，这些都是很实用的excel操作。
Delphi 生成Excel表的简单实现.rar
07-10
Delphi 生成Excel表的简单实现，貌似类似的源码有很多，这个觉得过于简单了，调用的是Excel.Application，需要生成一个新的CreateOleObject对象，下面来看看代码： 　　begin 　　 ExcelID:=CreateOleObject('Excel.Application' ); //添加ComObj单元 　　 ExcelID.Visible := True; 　　 ExcelID.Caption := Trim(Edit1.Text); 　　 ExcelID.WorkBooks.Add; //添加ComObj单元 　　end; 　　完整源码请下载吧。
delphi控制excel大全
11-11
在 Delphi 开发环境中，控制 Excel 文件是一项常见的需求，特别是在数据处理、报表生成等应用场景中。通过 Delphi 编程可以实现对 Excel 文件的各种操作，比如读取数据、写入数据、格式化表格、生成报表等。本文档将...
Delphi应用程序中中国式报表的制作
最新发布
s13166803785的博客
03-04 357
在众多可视化数据库开发工具中, Delphi以其真正的面向对象、高效率、支持多层结构应用开发、支持多层 B/S结构开发等优良特性脱颖而出，成为广大编程人员的首选开发工具。 ---- 在数据库应用程序开发中，系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表， 在Delphi中我们可以采用多种方案来解决这一问题，如运用OLE自动化技术将数据输出到MS-WORD、MS-EXCEL 中等，但其中最直接、最本地化的还是使用Delphi3.0/40中的QuickReport报表组件，它是挪威QuS
用Delphi实现自己的Excel报表
再见理想
07-29 2621
Excel是大家都比较熟悉的表格处理软件，用它来做自由报表载体其好处有：l          从用户角度：载体本身具有脚本支持，公式编辑，模板支持，格式、版式设计等诸多功能，而这些功能对于大部分用户是比较熟悉的。省去了用户培训环节；多数办公用电脑都装有Office软件，所以，其输出的报表可以被任何装有Office软件的计算机浏览；l          从开发者角度：可以通过OLE访
Delphi编程：自动化控制Excel创建报表与图表
"本文主要介绍了如何使用Delphi来控制Excel，包括建立连接、创建报表和图表的方法。Delphi提供了一组用于控制Office的控件，虽然没有官方的帮助文档，但通过Office的帮助可以了解到如何使用。文章中展示了如何通过...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值