关于操作EXCEL的复杂问题,请各位帮忙!

[zhaofr1981]

现在有两个EXCEL文件,如booksheet1,booksheet2 ,我想把booksheet2中的sheet1$复制到booksheet1中,作为booksheet1的第二个工作表,请大家帮帮忙!!

[zhaofr1981]

怎么没人回答我,急死我了!!

[笨笨兔兔兔兔兔]

用帮你研究excel.application不??

[ytzz]

也可以用ado呵呵

[笨笨兔兔兔兔兔]

ado的话,你用的sql语句很可能出问题

[ytzz]

我用ADO的时候最困惑的就是不知道怎么读出表名...

很想知道!!!

[ytzz]

Excel也有系统表吗?是什么?还是有什么别的方法?

[zhaofr1981]

我的代码如下：
set objExcelApp1 = CreateObject("Excel.Application")

objExcelApp1.DisplayAlerts = false
objExcelApp1.Application.Visible = false
objExcelApp1.WorkBooks.Open(FileTmpPath)
set objExcelBook1 = objExcelApp1.ActiveWorkBook
set objExcelSheets1 = objExcelBook1.Worksheets
set objExcelSheet1= objExcelBook1.Sheets(1)

set objExcelApp2 = CreateObject("Excel.Application")
objExcelApp2.DisplayAlerts = false
objExcelApp2.Application.Visible = false
objExcelApp2.WorkBooks.Open("D:\DataFile_ca\excelTmp\bzj.xls")
set objExcelBook2 = objExcelApp2.ActiveWorkBook


set objExcelSheets2 = objExcelBook2.Worksheets
set objExcelSheet2= objExcelBook2.Sheets(1)
Set xlsheet = objExcelBook1.Worksheets.Add
objExcelBook1.Sheets(1).name="投标保证金"
objExcelSheet2.Copy
objExcelBook1.Sheets(1).paste
objExcelApp2.Quit
Set objExeclApp2=nothing set objExcelApp2 = CreateObject("Excel.Application")
objExcelApp2.DisplayAlerts = false
objExcelApp2.Application.Visible = false
objExcelApp2.WorkBooks.Open("D:\DataFile_ca\excelTmp\bzj.xls")
set objExcelBook2 = objExcelApp2.ActiveWorkBook


set objExcelSheets2 = objExcelBook2.Worksheets
set objExcelSheet2= objExcelBook2.Sheets(1)
Set xlsheet = objExcelBook1.Worksheets.Add
objExcelBook1.Sheets(1).name="投标保证金"
objExcelSheet2.Copy
objExcelBook1.Sheets(1).paste
objExcelApp2.Quit
Set objExeclApp2=nothing

结果运行时出现　“类 Worksheet 的 Paste 方法无效”，大家知道什么原因吗？