如何将dbgrid中的数据输出到excel或WORD?请教各位

Question

如题,最好能提供源代码!!

Answer 1

我到是没做过，但是我见过，你对ole操作过吗？很容易啊

Answer 2

TQuery的结果到入word,需要不？

Answer 3

unit ExcelTest;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls,db,DBTables, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Query1: TQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WriteDatasetToExcel(AQueryName: TQuery; AStrVar: String);
end;var
Form1: TForm1;implementationuses Comobj;{$R *.DFM}{ TForm1 }procedure TForm1.WriteDatasetToExcel(AQueryName: TQuery; AStrVar: String);
var
EclApp,WorkBook : Variant;
range,wordapp:Variant;
xlsFileName : String ;
I : Integer ;
column : Integer ;
Row : Integer ;
Fdate:TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
StrDate:String ;
StrDate1:String ;
Begin
wordapp := CreateOleObject('word.Application');
wordapp.visible:=true;wordapp.Documents.add;range:=wordapp.Documents.item(1).range;//这里是写入
range.Text:='this is a ;aklsdjfkljasd ';
//这里是保存
{ wordapp.Documents.item(1).saveas('c:\foo.doc');
word.options.sendmailattach:=true;
wordapp.Documents.item(1).sendmail;}
//这里是退出
wordapp.Documents.item(1).close ;
wordapp.quit;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
WriteDatasetToExcel(query1,'Excel文件测试');
end;end.

Answer 4

谢谢 Jurek(凹凸风云)，保存到word的也发给我学习一下