以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于狐表中使用vba的一个问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175599)
--  作者：benben325
--  发布时间：2022/3/11 8:52:00
--  关于狐表中使用vba的一个问题
rt，我想将一个excel里面的sheet表复制到另外一个excel里面，我的代码如下：
Dim path1 As String = "C:\\Users\\Administrator\\Desktop\\11\\11.xls"
Dim path2 As String = "C:\\Users\\Administrator\\Desktop\\11\\12.xls"
Dim app As New MSExcel.Application
Dim wb1 As MSExcel.WorkBook = app.WorkBooks.Open(path1)
Dim wb2 As MSExcel.WorkBook = app.WorkBooks.Open(path2)
wb2.Sheets(1).Copy(After:=wb1.WorkSheets.Item(wb1.WorkSheets.Count))
wb1.Save
App.Quit

复制不上去

请问我该怎么改？
[此贴子已经被作者于2022/3/11 8:59:42编辑过]
--  作者：benben325
--  发布时间：2022/3/11 9:07:00
--  
晕，又可以了，好了！
--  作者：有点蓝
--  发布时间：2022/3/11 9:20:00
--  
……
Dim app As New MSExcel.Application
Dim wb1 As MSExcel.WorkBook = app.WorkBooks.Open(path1)
Dim wb2 As MSExcel.WorkBook = app.WorkBooks.Open(path2)
wb2.Sheets(2).Copy(After:=  wb1.Sheets(wb1.Sheets.Count))
wb1.Save
App.Quit