表在不活动的表上

我希望我的macrosselect非活动工作簿“WbCopy”的最后一个工作表，但只有在工作簿“WbCopy”处于活动状态时，Sheets.Count才起作用。 当“WbPaste”激活时，你有什么build议可以使它工作吗？ 代码驻留在工作簿“WbPaste”中：

Sub CopyPaste() Dim WbCopy As Workbook Dim WbPaste As Workbook Set WbCopy = Workbooks("copy.xlsm") Set WbPaste = Workbooks("paste.xlsx") WbCopy.Worksheets(Sheets.Count).Activate End Sub 

Answer 1

更改：

 WbCopy.Worksheets(Sheets.Count).Activate 

至：

 WbCopy.Worksheets(WbCopy.Sheets.Count).Activate 

注意 ：如果您在WbPaste有代码，则需要扩展名为.xlsm 。