在delphi中如何把一个表的字段也导入到EXCEL中？(50分)

J

Jesse_xhl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-21

• #1

with query1 do
begin
i := 2;
first;
while not Eof do
begin
MsExcel.Worksheets['sheet1'].Range[Chr(65)+IntToStr(i)].Value := fields[0].AsString ;
......
......
......
这样导出的只有资料没有字段，如何才能把字段名也导出到Excel呢？

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-21

• #2

这种例子很多了,搜索一下,
用DBGirdEH也可以的

 

M

myid0602

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-22

• #3

MsExcel.Worksheets['sheet1'].Range['A1'].Value := fields[0].fieldname;

 

J

Jesse_xhl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-10

• #4

thank you