如何在DELPHI实现保存excel的几个sheet到另外的excel文件中(100分)

O

oldfrog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-10

• #1

现在几个XLS文件，需要作为SHEET加入至一已存在的XLS文件中，请问各位大哥用DELPHI如何做啊，我对在DELPHI中EXCEL文件的保存问题不明白：（

 

B

bbface

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #2

先用一个adoquery把要加入的那个xls文件的数据取出,然后用adoquery的数据写入到目标XLS文件.

 

D

dcba

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #3

var
EA:variant;
i:integer;
begin
EA:=CreateOleObject('Excel.Application');
EA.workbooks.open('c:/excalfilename.xls');
EA.workbooks.open('c:/tagExcel.xls');
for i:=1 to EA.workbooks[1].worksheets.count do
begin
EA.workbooks[1].worksheets.copy(EA.workbooks[2].worksheets[1]);
end;
EA.workbooks[2].save;
EA.quit;

 

W

Wizard00

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-10

• #4

bbface:
>>先用一个adoquery把要加入的那个xls文件的数据取出,然后用adoquery的数据写入到目标XLS文件.

怎么用adoquery写出Excel？请指教。

 

W

wwwwb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-10

• #5

用CELLS进行COPY要好一点，格式不会有差异

 

O

oldfrog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-15

• #6

各位大哥，不好意思，我分实在太少，只能这么点了，谢谢各位啦