[求助]导出excel - Delphi论坛 - 编程论坛档案馆

得分:0

在delphi中调用excel有四种方式，我们选取其中的一种用OleObject来装载excel工作表的方式来谈delphi控制excel的重要属性和方法。
首先给出通过OLE创建的一些主要代码步进行简单说明：
创建OLE对象：
Var olecon: TOleContainer;
Olecon:= TOleContainer.Create(self);
Olecon.oleobject:= Olecon.CreateObject('excel.sheet',false)；

或选择导入一个excel文件来创建OLE对象：

Olecon.oleobject:= Olecon.CreateObjectFromFile(xlsname,false)；

最好隐藏excel的几个工具条,这样就好象是嵌在你的程序中的一个表而已了：

Olecon.OleObject.application.CommandBars['Standard'].Visible:=false;
Olecon.OleObject.application.CommandBars['Formatting'].Visible:=false;
Olecon.OleObject.application.CommandBars['Reviewing'].Visible:=false;

然后显示并激活excel表,对TOleContainer定义的对象：

Olecon.show;
Olecon.doverb(0);

这样基本可以了，但TOleContainer有个不好的地方，就是当你一点击其它控件是就它就失去焦点，然后就自动退出，其实并没有真的退出，只是需要你再次激活它而已，关键是当它失去焦点的时候就excel对象就不见了，可以用Timage控件把TOleContainer所在的地方有EXCEL时候的区域图片截下来骗骗用户，我们这里主要不是讲这个，就不详述了。

下面我们就开始讲Excel_TLB中的接口的常用属性和方法，主要是针对导出和设定报表格式的一些接口元素。

单元格的读写属性：

olecon.OleObject.application.cells.item[1,1];
olecon.OleObject.application.cells(1,1);
olecon.OleObject.application.cells[1,1].Value;

上面三种都可以对工作表的‘A1’单元进行读写。

在delphi中对单元格(集)，区域，工作表等所有对象的操作都是要Variant来实现的。

自己的程序中选定区域赋给Range:

Var range,sheet:Variant;
Range:= olecon.OleObject.application.Range['A1:C3'];

或者：

Sheet:= olecon.OleObject.application.Activesheet;
Range:= olecon.OleObject.application.Range[sheet.cells[1,1],sheet.cells[3,3]];

对上面的Range合并单元格：

Range.merge;
Range. FormulaR1C1:='合并区';//合并后写入文本

注意以后要读合并的单元格里面的文本就是读合并区域的左上角的那个单元格的文本

在excel表中选定区域赋给range：

range:=excel_grid1.OleObject.application.selection;

拆分单元格：

Range.unmerge;

合并后设定单元格（集）的格式：

Range.HorizontalAlignment:= xlCenter;// 文本水平居中方式
Range.VerticalAlignment:= xlCenter//文本垂直居中方式
Range.WrapText:=true;//文本自动换行
Range.Borders.LineStyle:=1//加边框
Range.Interior.ColorIndex:=39;//填充颜色为淡紫色
Range.Font.name:='隶书';//字体
Range.Font.Color:=clBlue;//字体颜色

常用格式也就这些，以上这些对于单个单元格也适用。

在excel表中寻找前后上下的单元格：

Var u1,u2,u3,u4,u5:Variant;
U1:=olecon.oleobject.application.activecell;//获取当前格；
U2:=u1.previous;//非特殊情况就是u1左边的一格；
U3:=ui.next;//非特殊情况就是u2右边的一格；
U4:=olecon.oleobject.application.cells[u1.cells.row-1,u1.cells.column];//非特殊情况为上面一格
U5:=olecon.oleobject.application.cells[u1.cells.row+1,u1.cells.column];//非特殊情况为下面一格

删除和插入一行和一列：

Olecon.oleobject.application.rows[2].delete;
Olecon.oleobject.application.columns[2].delete;
Olecon.oleobject.application.rows[2].insert;
Olecon.oleobject.application.columns[2].insert;

复制指定区域：

Olecon.oleobject.application.range['A1:C3'].copy;

从指定单元格开始粘贴：

Olecon.oleobject.application.range['A4'].PasteSpecial;

常用的就这些了，对delphi中server面板下的EXEL控件和创建EXCEL.Application COM对象的方式都适用。

Excel.Workbooks.Add; //增加EXCEL表
Excel.Workbooks[1].WorkSheets[1].Name := '通讯录';

主　　题：请问如何把SQLServer下的表数据转换到EXCEL中，生成EXCEL文件

如何在Delphi中操作Excel
（作者：穆永）

　　在数据库应用软件的开发过程中，经常需要把数据转换成Excel文件,让用户作进一步的数据处理。而Delphi是开发数据库应用系统的常用工具，那么，如何在Delphi中操作Excel呢?

　　我们知道,在Microsoft Office软件中有一种内嵌的编程语言VBA,它是一种宏语言，利用它,你可以编写出功能强大的代码,如打开文件、修改数据、保存数据和设置字体等。另一方面,Microsoft Office软件中的宏能以VBA代码的形式记录下你的操作过程。因此借助宏操作,可以很轻松地实现某一功能,并把这些代码稍作修改嵌入到你的软件中。但是VBA也存在一个缺点,它必须有Microsoft Office作平台,在哪里编写,必须在哪里执行。例如在Excel下编写的一段VBA代码,则它只有在Excel下才能运行。因此,笔者的方法就是把VBA代码嵌入到Delphi中,从而实现用Delphi操作Excel。

　　下面,我们以Delphi程序为例,说明这种调用方法：

　　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 declarations }

　　public

　　{ Public declarations }

　　end;

　　var

　　Form1: TForm1;

　　implementation

　　{$R *.DFM}

　　procedure TForm1.Button1Click(Sender: TObject);

　　var

　　eclApp,WorkBook:Variant;

　　//声明为OLE Automation 对象

　　xlsFileName:string;begin

　　xlsFileName:='ex.xls';

　　try

　　//创建OLE对象Excel Application与 WorkBook

　　eclApp:=CreateOleObject('Excel.Application');

　　WorkBook:=CreateOleobject('Excel.Sheet');

　　except

　　ShowMessage('您的机器里未安装Microsoft Excel。');

　　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(2 , 1):='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.

　　经过上述操作过程后,我们就可以很放心地将数据库中的数据转换成Excel文件了。

Top

回复人： xang2001() ( ) 信誉：100 2001-12-10 20:36:22Z 得分:0

以前寫的﹐參考
try
Screen.Cursor:=crHourGlass;
LCID:=GetUserDefaultLCID;
ExcelApplication1.ConnectKind := ckNewInstance;
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Add(NULL, LCID);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
with ExcelWorksheet1.Cells do
begin
Y:=ComboBox1.Text;
F:=ComboBox2.Text;
Item[1,1]:='Deffecive Shoes Return Quantity/Amount List during '+Y;
Item[2,1]:=DatetoStr(Date);
ExcelWorksheet1.Range['a1','e1'].Font.Bold:=True;
ExcelWorksheet1.Range['a1','e1'].Font.Size:=12;
ExcelWorksheet1.Range['a1','o1'].Merge(True);
ExcelWorksheet1.Range['a2','o2'].Merge(True);
Item[3,1]:='Month';
Item[3,3]:='January';
Item[3,4]:='February';
Item[3,5]:='March';
Item[3,6]:='April';
Item[3,7]:='May';
Item[3,8]:='June';
Item[3,9]:='July';
Item[3,10]:='August';
Item[3,11]:='September';
Item[3,12]:='October';
Item[3,13]:='November';
Item[3,14]:='December';
Item[3,15]:='Total';

C:=0;
with adoStoredProc2 do
begin
Close;
Parameters.ParamByName('@Year').Value:=Y;
Parameters.ParamByName('@factory').Value:=F;
Open;
if Active and (RecordCount>0)then
while not eof do
begin
Item[4+2*C,1]:=FieldValues['Category'];
Item[4+2*C,2]:='$';
C:=C+1;
Next;
end;
K:=3;
M:='01';
B:=4;
C1:=0;
with adoStoredProc3 do
begin
Close;
Parameters.ParamByName('@year').Value:=Y;
Parameters.ParamByName('@factory').Value:=F;
Open;
if Active and (RecordCount>0)then
while True do
begin
IT:=Item[4+2*C1,1];
if Locate('Category;month',Vararrayof([IT,Y+'/'+M]),[])then
begin
Item[B,K]:=FieldValues['ReturnQty'];
Item[B+1,K]:=FieldValues['ReturnMoney'];
end;
C1:=C1+1;
if C1=C then
Break
else
B:=B+2;
C2:=GetColumnCharacters(K);
S1:='Sum(C4';
S2:='Sum(C5';
I:=1;
while I<C do
begin
S1:=S1+'.'+C2+InttoStr(4+2*i);
S2:=S2+'.'+C2+InttoStr(4+2*I);
I:=I+1;
end;
S1:=S1+')';
S2:=S2+')';
Item[4+2*C,K]:=S1;
Item[5+2*C,K]:=S2;
if K=14 then
break
else begin
K:=K+1;
if StrtoInt(M)<10 then
M:='0'+InttoStr(StrtoInt(M)+1)
else
M:=InttoStr(StrtoInt(M)+1);
end;
end;
end;
T:=4;
while True do
begin
Item[T,15]:='=Sum('+'C'+InttoStr(T)+':'+GetColumnCharacters(K)+InttoStr(T)+')';
if T=5+2*C then
break
else
T:=T+1;
end;
end;
end;
finally
adoStoredProc1.Close;
ExcelWorksheet1.Range['A3',GetColumnCharacters(15)+'3'].Interior.Color:=clSilver;
ExcelWorksheet1.Range['A3',GetColumnCharacters(15)+InttoStr(4+2*C)].Borders.Weight:=2;
ExcelApplication1.Visible[LCID]:=True;
ExcelWorksheet1.Disconnect;
ExcelWorkBook1.Disconnect;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
Screen.Cursor:=crDefault;
end;

============================================================================================

看看下面的这个：
一) 使用动态创建的方法
[補充]
<1> 控制列存儲格式:
Sheet.Columns[1].NumberFormat := '#'; //數字
Sheet.Columns[2].NumberFormat := 'yyyy/mm/dd hh:mm:ss'; //時間
Sheet.Columns[3].NumberFormat := '@'; //字符
Sheet.Columns[4].NumberFormat := '#,##0.0'; //數字

左側若有「0」被自動截取的問題

方法(一) 用字符形式来顕示数字、且一定要在付値前定義Format
Sheet.Columns[1].NumberFormat := '@';
Sheet.Cells[1,1].Value := '00023452624';

方法(二) 数字固定長形式、左側補「0」
Sheet.Cells[1,1].Value := '00023452624';
Sheet.Columns[1].NumberFormat := '000000000000';

首先创建 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;