从使用activeworkbook.path打开的工作簿复制工作表时出现excel VBA错误答案

【问题标题】：excel VBA error when copying a worksheet from workbook opened using activeworkbook.path从使用activeworkbook.path打开的工作簿复制工作表时出现excel VBA错误
【发布时间】：2019-01-15 01:04:05
【问题描述】：

我需要将 12 个不同工作簿中的摘要工作表复制到区域工作簿中。我在应该将工作表复制到区域工作簿中的行上遇到调试错误。我尝试在源工作簿和当前工作簿上同时使用名称和工作表编号。代码如下。

Sub copyfc()

Dim sourceworkbook As Workbook
Dim currentworkbook As Workbook

Set currentworkbook = ThisWorkbook

Set sourceworkbook = Workbooks.Open("C:\Country Files\BE FC12 BU19.xlsx")

sourceworkbook.Sheets("BE").Copy after:=currentworkbook.Sheets("End")

sourceworkbook.Close


End Sub

【问题讨论】：

标签： excel vba

【解决方案1】：

下面的行会将工作表放在末尾：

sourceworkbook.Sheets("BE").Copy After:=currentworkbook.Sheets(currentworkbook.Sheets.Count)

【讨论】：