如何在delphi程序中将指定的数据写入excel文档指定的单元中，对象如何引用？(100分)

N

nancy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-15

• #1

如何在delphi程序中将指定的数据写入excel文档指定的单元中，对象如何引用。请给一段可执行的程式。
mail:zddan@163.net

 

Y

yifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-15

• #2

http://www.borland.com/delphi/papers/microexcel/

详细的没什么好说的,还有源码

 

Z

zhangc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-15

• #3

去delphi的站点看delphi的白皮书?

 

Y

yifeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-15

• #4

对了,white pages的东西值得一读

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #5

我发给你一个用Delphi用户化excel的范例程序, 请查收

 

G

gmp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-17

• #6

请使用Tolecontainer控件：见示例：

type
TForm1 = class(TForm)
ole: TOleContainer;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

vlevariant;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin
ole.DoVerb(ovopen);
v:=ole.OleObject;
v:=v.application.activeworkbook.activesheet;

v.cells(2,1):='hello';
v.range['A8'].font.size:=24;
v.range['A8']:='ggggg';
v.range['A3:B8'].cells(1,1):='hhhhhh';
edit1.text:=inttostr(v.range['B6'].left);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ole.Close;
end;

 

S

smilboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-06

• #7

I don't know

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-06

• #8

不了解的话，先看已答问题或实例，有具体问题时再提问。

 

M

merlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-22

• #9

创建一个FORM，上面加一个按钮Button1, 保存为MainFormExcel，然后将Unit MainFormExcel用以下程序替代：运行后再c:根目录下生成一个text.xls文件。

unit MainFormExcel;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses
ComObj;
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
V: Variant ;
begin
V := CreateOleObject('Excel.Application');
v.Workbooks.Add;
v.cells[1.1].value := 111;
v.ActiveWorkbook.SaveAs('c:/test.xls');
v.Workbooks.Close;

end;

end.

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-22

• #10

我发给你个例子!查收

 

T

thtfsyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-19

• #11

g

 

于

于小澜

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #12

ovExcel := CreateOleObject('Excel.Application');
ovExcel.WorkBooks.Add('D:/template/Fp.xlt');
ovExcel.ActiveSheet.Cells[7,1] := FindField('TABLE1_3').AsString;
ovExcel.ActiveSheet.Cells[7,4] := FindField('TABLE1_4').AsString;
ovExcel.ActiveSheet.Cells[7,5] := FindField('TABLE1_5').AsString;
ovExcel.ActiveSheet.Cells[7,6] := FindField('TABLE1_6').AsInteger;
ovExcel.ActiveSheet.Cells[7,7] := FindField('TABLE1_7').AsInteger;
ovExcel.ActiveSheet.Cells[7,8] := FindField('TABLE1_8').AsFloat;
vExcel.Visible := True;
ovExcel.Quit;

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-21

• #13

看我以前回答过的问题，很详细，调试通过的。

 

P

panjf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-05

• #14

huizhang给我一份好吗?

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-11

• #15

多人接受答案了。