TQuery的结果到入word

最新推荐文章于 2025-04-20 16:30:18 发布

todouwang

最新推荐文章于 2025-04-20 16:30:18 发布

阅读量889

点赞数

文章标签： integer string delphi button query forms

博客涉及Delphi编程相关内容，包含integer、string等数据类型，button控件以及query查询操作，还与forms表单有关。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

[Crystal Studio Web][DELPHI]TQuery的结果到入word

作者:chinawzw 推荐:chinawzw
--------------------------------------------------------------------------------

unit ExcelTest;

interface

uses
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;

implementation

uses 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.