Vba复制其他路径下的excel表内容到这个表中

以下是实现此操作的VBA代码示例：

Sub CopyDataFromOtherExcel()
' 打开另一个Excel文件
Dim otherExcel As Workbook
Set otherExcel = Workbooks.Open("C:\其他文件的路径\其他文件名.xlsx")

' 选择其他Excel文件中的某个工作表
Dim otherSheet As Worksheet
Set otherSheet = otherExcel.Sheets("Sheet1")

' 选择本Excel文件中的某个工作表
Dim thisSheet As Worksheet
Set thisSheet = ThisWorkbook.Sheets("Sheet2")

' 复制其他Excel文件中的工作表内容到本Excel文件中的工作表中
otherSheet.UsedRange.Copy thisSheet.Range("A1")

' 关闭其他Excel文件
otherExcel.Close SaveChanges:=False
End Sub

在这个示例中，我们首先使用Workbooks.Open()方法打开了位于其他路径下的Excel文件。然后我们选择该文件中的一个工作表，以及我们想要将数据复制到的本Excel文件中的工作表。最后，我们使用Copy方法将其他工作表中的数据复制到本Excel文件中的工作表中，使用Range属性指定数据放置的位置。我们还使用了Close方法关闭了其他Excel文件。

请注意，你需要将代码中的路径替换为实际的路径。如果你需要复制多个工作表，只需重复运行相应代码即可。