如何将stringgrid的内容弄到word里面去

[newair]

如何将stringgrid的内容弄到word里面去

[newair]

..............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................

[newair]

........................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................

[newair]

我要用word打印stringgrid啊

[blueshrimp]

unit UnitMain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, Word2000,
OleServer;

type
TForm_Main = class(TForm)
ADOCon_Sample: TADOConnection;
ADOD_Sample: TADODataSet;
DataS_Sample: TDataSource;
DBG_Sample: TDBGrid;
BitBtn1: TBitBtn;
Label1: TLabel;
WordApp: TWordApplication;
WordDoc: TWordDocument;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form_Main: TForm_Main;

implementation

{$R *.dfm}

procedure TForm_Main.FormCreate(Sender: TObject);
begin
//指向数据库
ADOCon_Sample.Connected := False;
ADOCon_Sample.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFileDir(Application.Exename) + '\' + 'Sample.mdb;Persist Security Info=False';
ADOCon_Sample.Connected := True;
ADOD_Sample.Active := True;
end;

procedure TForm_Main.BitBtn1Click(Sender: TObject);
var
FindText, ReplaceWith : array[0..14] of OleVariant;
StartPos, FileName : OleVariant;
ReplaceCount : integer;
begin
if DBG_Sample.Fields[0] = nil then exit;
//连接
WordApp.Disconnect;
WordApp.Connect;
WordApp.Visible := True;
Filename := ExtractFileDir(Application.Exename) + '\' + 'Sample.doc';
WordApp.Documents.Open(Filename,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordDoc.Disconnect;
WordDoc.ConnectTo(WordApp.ActiveDocument);
WordDoc.Activate;

//编号
FindText[0] := 'bianhao';
ReplaceWith[0] := DBG_Sample.Fields[0].AsString;
//采样日期
FindText[1] := 'caiyangriqi';
ReplaceWith[1] := DBG_Sample.Fields[1].AsString;
//送样日期
FindText[2] := 'songyangriqi';
ReplaceWith[2] := DBG_Sample.Fields[2].AsString;
//样品来源
FindText[3] := 'yangpinlaiyuan';
ReplaceWith[3] := DBG_Sample.Fields[3].AsString;
//样品名称
FindText[4] := 'yangpinmingcheng';
ReplaceWith[4] := DBG_Sample.Fields[4].AsString;

//商标
FindText[5] := 'shangbiao';
ReplaceWith[5] := DBG_Sample.Fields[5].AsString;
//样品数量
FindText[6] := 'yangpinshuliang';
ReplaceWith[6] := DBG_Sample.Fields[6].AsString;
//样品批号
FindText[7] := 'yangpinpihao';
ReplaceWith[7] := DBG_Sample.Fields[7].AsString;
//包装
FindText[8] := 'baozhuang';
ReplaceWith[8] := DBG_Sample.Fields[8].AsString;
//样品阶段
FindText[9] := 'yangpinjieduan';
ReplaceWith[9] := DBG_Sample.Fields[9].AsString;

//采样人
FindText[10] := 'caiyangren';
ReplaceWith[10] := DBG_Sample.Fields[10].AsString;
//记录人
FindText[11] := 'jiluren';
ReplaceWith[11] := DBG_Sample.Fields[11].AsString;
//状态
FindText[12] := 'zhuangtai';
ReplaceWith[12] := DBG_Sample.Fields[12].AsString;
//检验项目
FindText[13] := 'jianyanxiangmu';
ReplaceWith[13] := DBG_Sample.Fields[13].AsString;
//合同编号
FindText[14] := 'hetongbianhao';
ReplaceWith[14] := DBG_Sample.Fields[14].AsString;
//替换开始处
StartPos := 0;
for ReplaceCount := 0 to 14 do
begin
WordDoc.range(StartPos).find.execute(FindText[ReplaceCount], EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, ReplaceWith[ReplaceCount], EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;
//WordDoc.PrintOut;
end;

end.

[Kingron]

http://kingron.delphibbs.com 上面有一个支持Grid的导出Word的控件

[DelphiBoy2003]

blueshrimp(下着沙-软件民工) 怎么连ADOConnection都出来了

[fhuibo]

study

[fansnaf]

循环导入即可。

[things]

gz

[newair]

............................

[bxh2dai]

： Kingron(单身走我路……) 你说的这个网站怎么打不开啊

[xjlqlqlq]

用粘贴板操作。。。

[cxz7531]

这是个完整的把TStringGrid的数据导入word的程序，测试正确

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, OleServer, Word97,ComObj;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
V: OleVariant;
str: string;
i, j: Integer;
begin
// 打开OLE服务器
V := CreateOleObject('Word.Basic.9');
// 调用OLE服务器包含的方法
V.FileNew('Normal');
for I := 0 to StringGrid1.RowCount - 1 do
begin
str := '';
for J := 0 to StringGrid1.ColCount - 1 do
begin
str := str + StringGrid1.Cells[j, I] + ' ';
V.Insert(str + #13#10);
end;
end;
// 将Word文件保存，文件名是C:\test.doc
V.FileSaveAs('C:\test.doc', , , );
BitBtn1.Caption := '保存完毕!!';
end;

end.

[cxz7531]

上面的程序有点小问题，应该把V.Insert(str + #13#10);下移一行
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, OleServer, Word97, ComObj;

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
V: OleVariant;
str: string;
i, j: Integer;
begin
// 打开OLE服务器
V := CreateOleObject('Word.Basic.9');
// 调用OLE服务器包含的方法
V.FileNew('Normal');
for I := 0 to StringGrid1.RowCount - 1 do
begin
str := '';
for J := 0 to StringGrid1.ColCount - 1 do
begin
str := str + StringGrid1.Cells[j, I] + ' ';
end;
V.Insert(str + #13#10);
end;
// 将Word文件保存，文件名是C:\test.doc
V.FileSaveAs('C:\test2.doc', , , );
BitBtn1.Caption := '保存完毕!!';
end;

end.

[pressman]

up

[fhuibo]

study