delphi的控件板上有server,在里面找excel的控件,
实际上这些控件封庄了excel的自动化接口!
然后,你看msdn上对这些接口的介绍
具体看msdn和delphi\ocx这个目录下相关的pas原文件!
实际上这些控件封庄了excel的自动化接口!
然后,你看msdn上对这些接口的介绍
具体看msdn和delphi\ocx这个目录下相关的pas原文件!
解决方案 »
- EControl使用问题
- 高手请进!-- MSComm 控件能否实现在对方没有察觉的情况下得知对方是否开机?
- 报表打印问题(在线等待高手解决!)
- delphi中的"字符转义"该怎么用
- 如何直接将LISTVIEW中的内容打印出来!
- delphi6.0如何动态调用动态链接库,分数只给2个人,up者无分数
- 请问怎样编程查询一个字符串的五笔字型编码?
- 如何接收发往Tapplication的消息?注意,我写的是Service,不能用application.onmessage=XXX模块的方式,因为Service中根本没有此属性
- 有delphi能调用gif的第3方控件?
- 比如可以得到qq登录框的句柄,然后咋么继续得到框上控件的句炳
- 浏览器中图形显示问题,急
- 关于全局变量传到另外一个FORM无值的问题?急!!急!!急!!
将数据保存到Excel文件
经常看到有人问如何把Delphi中的数据集导入Excel中,这里提供了一个实现。
在做项目时,很多情况下,客户需要对程序中数据集再加工,再利用,如报表。
这时,就需要把DataSet导入到一个客户比较熟悉的格式中去。Excel是首选了。该程序在Delphi4,5下编译通过,已被用在多个项目中。还被集成在笔者所写的一个小组件TDBNavigateButton中 {-------------------------------------------------------------------------------------------------
单元:uExcelTools
作者: Bear
功能:保存数据集,如TTable,TQuery,TClientDataSet等为Excel文件,
包含标题,可以只将一部分字段导出
这一点通过设置DataSet中要不导出字段的Tag值大于某一个值来处理
原理:调用 Microsoft Excel Ole对象
调用方式:
Function DataSetToExcel(
DataSet:TDataSet;FieldTagMax:Integer;
Visible:Boolean;ExcelFileName:String=''): Boolean;
--------------------------------------------------------------------------------------------------}unit UExcelTools;interfaceuses
classes, comctrls, stdctrls, windows, Dialogs, controls, SysUtils,
Db,forms,DBClient,ComObj;//把数据集导入ExcelSheet的核心函数
function DataSetToExcelSheet
(
DataSet :TDataSet;
FieldTagMax :Integer; // 字段的Tag值如果大于这个值,就不导出到Excel
Sheet :OleVariant
): Boolean;//实际使用的函数,内部调用了DataSetToExcelSheet,在外面加入UI接口和错误处理
function DataSetToExcel
(
DataSet :TDataSet; // 要转换的数据集
FieldTagMax :Integer; // 字段的Tag值如果大于这个值,就不导出到Excel
Visible :Boolean; // 是否让做转换工作的Excel可见
ExcelFileName:String='' // Excel文件名,*.xls
): Boolean;implementationFunction DataSetToExcelSheet(DataSet:TDataSet;FieldTagMax:Integer;Sheet:OleVariant): Boolean;
var
Row,Col,FieldIndex :Integer;
BK:TBookMark;
begin
Result := False;
if not Dataset.Active then exit;
BK:=DataSet.GetBookMark;
DataSet.DisableControls; Sheet.Activate;
try // 列标题
Row:=1;
Col:=1;
for FieldIndex:=0 to DataSet.FieldCount-1 do
begin
if DataSet.Fields[FieldIndex].Tag <= FieldTagMax then
begin
Sheet.Cells(Row,Col) :=DataSet.Fields[FieldIndex].DisplayLabel;
Inc(Col);
end;
end;
// 表内容
DataSet.First;
while Not DataSet.Eof do
begin
Row:=Row+1;
Col:=1;
for FieldIndex:=0 to DataSet.FieldCount-1 do
begin
if DataSet.Fields[FieldIndex].Tag <= FieldTagMax then
begin
Sheet.Cells(Row,Col):=DataSet.Fields[FieldIndex].AsString;
Inc(Col);
end;
end;
DataSet.Next;
end; Result := True;
finally
DataSet.GotoBookMark(BK);
DataSet.EnableControls;
end;
end;
Function DataSetToExcel(
DataSet:TDataSet;FieldTagMax:Integer;
Visible:Boolean;ExcelFileName:String=''): Boolean;
var
ExcelObj, Excel, WorkBook, Sheet: OleVariant;
OldCursor:TCursor;
SaveDialog:TSaveDialog;
begin
Result := False;
if not Dataset.Active then exit; OldCursor:=Screen.Cursor;
Screen.Cursor:=crHourGlass; try
ExcelObj := CreateOleObject('Excel.Sheet');
Excel := ExcelObj.Application;
Excel.Visible := Visible ;
WorkBook := Excel.Workbooks.Add ;
Sheet:= WorkBook.Sheets[1];
except
MessageBox(GetActiveWindow,'无法调用Mircorsoft Excel! '+chr(13)+chr(10)+
'请检查是否安装了Mircorsoft Excel。','提示',MB_OK+MB_ICONINFORMATION);
Screen.Cursor:=OldCursor;
Exit;
end; Result:=DataSetToExcelSheet(DataSet,FieldTagMax,Sheet) ;
if Result then
if Not Visible then
begin
if ExcelFileName<>''
then WorkBook.SaveAs(FileName:=ExcelFileName)
else begin
SaveDialog:=TSaveDialog.Create(Nil);
SaveDialog.Filter := 'Microsoft Excel 文件|*.xls';
Result:=SaveDialog.Execute;
UpdateWindow(GetActiveWindow);
if Result then
WorkBook.SaveAs(FileName:=SaveDialog.FileName);
SaveDialog.Free;
end;
Excel.Quit;
end;
Screen.Cursor:=OldCursor;
end; end.
这样导出的速度比直接cells的速度差不多要快一半
Uses ComObjprocedure TForm1.EptBtnClick(Sender: TObject);
var Excel,MyWorkBook:Variant;
i:integer;
s:String;
begin
With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('SELECT*FROM users');
Prepared:=True;
Open;
First;
end;//With ADOQuery1 do
For i:=0 to ADOQuery1.FieldCount-1 do
begin
s:=s+ADOQuery1.Fields[i].DisplayLabel+#9;
end;//For i:=0
s:=s+#13;
ADOQuery1.First;
While not ADOQuery1.Eof do
begin
For i:=0 to ADOQuery1.FieldCount-1 do
begin
s:=s+ADOQuery1.Fields[i].AsString+#9;
end;//
s:=s+#13;
ADOQuery1.Next;
end;//
Try
Excel:=CreateOLEObject('Excel.Application');
MyWorkBook:=CreateOLEObject('Excel.Sheet');
Except
Application.MessageBox('请确认安装Excel','提示',48);
Abort;
end;
Excel.Visible:=True;
MyWorkBook:=Excel.WorkBooks.Add;
ClipBoard.Clear;
ClipBoard.AsText:=s;
Excel.Sheets[1].Paste;
end;
都可以用!