从子文件夹导入工作表

Question

我正在尝试从工作簿中获取一个工作表，该工作簿是一个子文件夹，并将其导入我当前的工作簿中，在那里我编写宏。 路径和文件如下所示

strPath = Application.ActiveWorkbook.Path & "\Subfolder"
strFile = "myExcel.xlsx"

使用名为myWorkbook的工作簿。 如何导入它，我当前的工作簿中是否需要空白页？

Answer 1

您需要打开源工作簿，然后复制工作表，然后关闭工作簿。您不需要在当前工作簿中有一张空白的工作表（但您必须至少有一张工作表）。像下面这样的东西会起作用：

Dim strPath As String, strFile As String    

strPath = Thisworkbook.Path & "\Subfolder\" ' take note of the extra "\"
strFile = "myExcel.xlsx"

Application.ScreenUpdating = False
Dim wb As Workbook
Set wb = Workbooks.Open(strPath & strFile)

wb.Sheets("SheetName").Copy Thisworkbook.Sheets(1) ' copies before the first sheet
wb.Close False ' close without saving
Application.ScreenUpdating = True