老师,
以下复制出错,要把Data1 中sheet1 复制到 Data2 中sheet1 ,谢谢。
Dim path1 As String = "C:\Users\Desktop\改善项目\Project\Attachments\Data1.xlsx"
Dim path2 As String = "C:\Users\Desktop\改善项目\Project\Attachments\Data2.xlsx"
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.WorkSheets.Item(wb1.WorkSheets.Count))
wb1.Save
App.Quit
此主题相关图片如下:screenshot 2023-06-15 124419.jpg