vba复制sheet时有错误

答案:1 悬赏:60 手机版

解决时间 2021-03-18 02:51

提问者网友：美人性情
2021-03-17 02:55

Sub a()
Dim app_excel As Excel.Application
Dim book_excel As Excel.Workbook

Set app_excel = New Excel.Application

Set book_excel = app_excel.Workbooks.Open(ActiveWorkbook.Path & "\aaa.xlsx"
ThisWorkbook.Worksheets(1).Select
ThisWorkbook.Worksheets(1).Copy After:=book_excel.Sheets(book_excel.Sheets.Count)

book_excel.Close 1

End Sub
'老出现copy method of worksheet class failed错误
Sub a()
Dim app_excel As Excel.Application
Dim book_excel As Excel.Workbook

Set app_excel = New Excel.Application

Set book_excel = app_excel.Workbooks.Open(ActiveWorkbook.Path & "\aaa.xlsx")
ThisWorkbook.Worksheets(1).Select
ThisWorkbook.Worksheets(1).Copy After:=book_excel.Sheets(book_excel.Sheets.Count)

book_excel.Close 1

End Sub

最佳答案

五星知识达人网友：封刀令
2021-03-17 03:59

Sub a()
Dim app_excel As Excel.Application
Dim book_excel As Excel.Workbook

' Set app_excel = New Excel.Application 与错误无关，但没有必要再打开一个EXCEL实例

Set book_excel = Workbooks.Open(ActiveWorkbook.Path & "\aaa.xlsx")
' ThisWorkbook.Worksheets(1).Select 此句错误，且无必要。实在需要的话，可改为：ThisWorkbook.Worksheets(1).Activate
ThisWorkbook.Worksheets(1).Copy After:=book_excel.Sheets(book_excel.Sheets.Count)

book_excel.Close 1
End Sub

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！