Question

我正在尝试复制此工作簿中的工作表

WB.Sheets("WorkSheet").Copy ThisWorkbook.Sheets(Sheets(Sheets.Count).Select)

所以，我希望复制的工作表是我工作簿中的最后一个工作表。当我在最后一个括号中放置1时，它总是使用一个新工作表，但我希望它始终在同一工作表中复制工作表，因此会覆盖它。整个事情看起来像那样：

strPath = ThisWorkbook.Path & "\Subfolder\" 
strFile = "copyFile.xlsx"

Application.ScreenUpdating = False

Dim WB As Workbook
Dim Ret

Ret = IsWorkBookOpen(strPath & strFile)
If Ret = True Then
Else
    Set WB = Workbooks.Open(strPath & strFile)
End If

WB.Sheets("WorkSheet").Copy ThisWorkbook.Sheets(Sheets(Sheets.Count).Select)
WB.Close False
Application.ScreenUpdating = True

Answer 1

您可以使用

WB.Sheets("WorkSheet").Copy **after:=** ThisWorkbook.Sheets(Sheets(Sheets.Count).Select)

或者

WB.Sheets("WorkSheet").Copy ThisWorkbook.Sheets(Sheets(Sheets.Count **+1** ).Select)

最后一页中的Excel VBA宏副本

1 个答案: