如何将多个excel表中的第一个工作表合并到新的Excel表中的第一个工具表

在同一工作簿中新建一个文档，在VB中输入以下宏代码并运行该宏： Sub 合并() '将同一路径下的多个工作簿的第一个工作表的内容合并到有此代码的工作簿的第一个工作表中 Dim MyPath$, MyName$, sh As Worksheet,AbRcou% Application.ScreenUpdating = FalseSet Set sh = ThisWorkbook.Sheets(1) MyPath = ThisWorkbook.Path & "\&quo