vb如何将多个EXCEL文件的Sheet纳入重新生成一个EXCEL的文件的多个Sheet

Question

如：
文件1.xls 包含表 (Sheet1,Sheet2,Sheet3)
文件2.xls 包含表 (Sheet1,Sheet2,Sheet3)
文件3.xls 包含表 (Sheet1,Sheet2,Sheet3)
文件4.xls 包含表 (Sheet1,Sheet2,Sheet3)
如何重新生成：
文件.xls 包含表 (文件1.Sheet1,文件2.Sheet1,文件3.Sheet1,文件4.Sheet1)

Answer 1

假如引用 DAO:dim db as dao.database, rs as dao.recordset set db = opendatabase(strPath & "\1.xls", True, False, "Excel 5.0")
db.execute "insert into [EXCEL 5.0;DATABASE=" & strPath & "\文件.xls" & "].[Sheet1_1] select * from [Sheet1$]"set db = opendatabase(strPath & "\文件.xls", True, False, "Excel 5.0")
db.execute "insert into [Sheet2_1] select * from [EXCEL 5.0;DATABASE=" & strPath & "\2.xls" & "].[Sheet1$]"
db.execute "insert into [Sheet3_1] select * from [EXCEL 5.0;DATABASE=" & strPath & "\3.xls" & "].[Sheet1$]"
db.execute "insert into [Sheet4_1] select * from [EXCEL 5.0;DATABASE=" & strPath & "\4.xls" & "].[Sheet1$]"db.close
set db= nothing

Answer 2

试试这样：
db.execute "insert into [Sheet2_1] select * from [EXCEL 5.0;HDR=No;DATABASE=" & strPath & "\2.xls" & "].[Sheet1$]"