可能wb2只有一个sheet
重启电脑再试试。或者每次测试有看看有没有execl进程，关闭掉再做下一次测试
Dim path1 As String = "C:\Users\wj1087\Desktop\改善项目\Project\Attachments\Data1.xlsx"
Dim path2 As String = "C:\Users\wj1087\Desktop\改善项目\Project\Attachments\Data2.xlsx"
Dim app As New MSExcel.Application
try
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
wb1.close
wb2.close
App.Quit
catch ex as exception
App.Quit
msgbox(ex.message)
end try
加好友 
发短信
Post By：2023/6/15 13:35:00 [显示全部帖子]
