请教：（Delphi & Excel & OLE & 速度）问题！

[g961681]

要做一函数实现Delphi把cxGrid导出到Excel，并直接调用打印预缆功能。
功能先已经实现，但有一问题：速度。
每次调用该Excel，都得打开一次Excel，速度奇慢，不知道有什么方法可以加速！

（由于害怕该贴会石沉海底，先放88分。完成效果，再加200）

[g961681]

贴出代码，望高手指点。
//打印数据表格
function PrintCxGrid(AGrid: TcxGrid): String;
var
sTmpFile: String;
eclApp, srcWorkBook: Variant;
begin
//生成临时文件的文件名
sTmpFile := ExtractFilePath(Application.ExeName) + 'E' + FormatDateTime('YYMMDDHHMMSS', Date + Time) + '.tmp';

//
try
Screen.Cursor := crHourGlass;

//
try
eclApp := CreateOleObject('Excel.Application');
srcWorkBook := CreateOleobject('Excel.Sheet');
except
Result := 'Microsoft Excel Not Support In Your System!';
Exit;
end;

//生成并打开临时文件
ExportGrid4ToExcel(sTmpFile, AGrid, True, True, False, 'tmp');
srcWorkBook := eclApp.WorkBooks.Open(sTmpFile);

//开始打印
srcWorkBook.ActiveSheet.PageSetup.Orientation := 2;
srcWorkBook.ActiveSheet.PageSetup.CenterHeader := '表头';
srcWorkBook.ActiveSheet.PageSetup.CenterFooter := '表尾';
eclApp.Visible := True;
srcWorkBook.ActiveSheet.PrintPreview;
finally
//退出Excel Application
eclApp.Quit;
eclApp := Unassigned;

//删除临时文件
if FileExists(sTmpFile) then
while FileExists(sTmpFile) do
DeleteFile(PChar(sTmpFile));

//
Screen.Cursor := crDefault;
end;
end;

[g961681]

其中的ExportGrid4ToExcel(sTmpFile, AGrid, True, True, False, 'tmp');是cx控件自带的。
调试的时候可以直接用一个现成的excel打开就可以了。

[g961681]

顶~~~~~~~~~~~~~~~

[g961681]

哎，又要石沉海底了吗？？？？？？？？？

[g961681]

ding.............

[yangyi800827]

最近我也在用这个 导出Excel表的。
你用的是自带的servers控件 中的控件吗？
你的问题 太难了 ，我去请高手给你 看看吧。
等有结果了 一定来这里 回复你的。

[g961681]

呵呵，谢谢！
顶~~~~

[g961681]

没法顶了！！

[paranoia190]

ExportGrid4ToExcel：这个东西好象本来就很慢！！
上千条就不怎么样了。

[亮剑_]

你怎么可以连续回复4次，不是不能超过3次吗

导EXCEL，OLE方式总归不可能有直接写文件快的，下面这个使用了Excel内置的取数据集功能，速度快一些，供您参考：）

procedure RsToExcel(AdoQuery1: TAdoQuery; ExcelFileName: string);
var
ExcelApp, Book, Sheet, Range, xlQuery: OleVariant;
begin
if not ADOQuery1.Active then
ADOQuery1.Open;

ExcelApp := CreateOleObject( 'Excel.Application' ); //创建
try
if ExcelApp.Workbooks.count < 1 then
ExcelApp.WorkBooks.Add;
Book := ExcelApp.Workbooks[1];
if Book.Worksheets.Count < 1 then
Book.Worksheets.Add;
Sheet := Book.Worksheets[1];

xlQuery := Sheet.QueryTables.Add(ADOQuery1.Recordset, Sheet.Range['A3']);
//xlQuery.FieldNames := false;
xlQuery.Refresh;

Sheet.SaveAs(ExcelFileName);
finally
Sheet := Unassigned;
Book := Unassigned;
if not VarIsEmpty(ExcelApp) then
ExcelApp.Quit;
ExcelApp := Unassigned;
if ADOQuery1.Active then ADOQuery1.Close;
end;
end;

[亮剑_]

还有用OLE时如果要设置格式的话，速度也会大受影响，所以除非十分必要，要快就不要设格式了

[g961681]

这两天也看过些文章，的确都说如果用OLE方式的话，速度是肯定提不上去的。
而且，这样的方式一定要保证客户机器上一定已经装了excel才行啊！

[亮剑_]

最快的肯定是直接写二进制文件了
Excel文件格式是一种BIFF格式（Binary File Format）

进一步的说明：
http://www.moon-soft.com/program/FORMAT/data/xls.txt