excel宏代码，如何引用其他工作簿的数据？

Question

求宏代码，有两个工作簿（总表.xlsx,表1.xlsx),让总表的sheet1的A1：D10=表1的sheet1的A1：D10。解决后另外加分，谢谢

Answer 1

Sub a()
Dim i, j As Variant
For i = 1 To 10
For j = 1 To 4
Application.Workbooks("总表.xlsx").Worksheets("Sheet1").Cells(i, j) = Application.Workbooks("表1.xlsx").Worksheets("Sheet1").Cells(i, j)
Next j
Next i
End Sub
注意两个工作表的存储位置应相同；或在文件名前加上路径； 俩工作表需同时打开追问

如果不同时打开，怎么修改？因为我子工作簿有30个

追答

Sub b()
Dim i, j, arr As Variant
For i = 1 To 10
For j = 1 To 4
arr = GetObject("文件存储路径\表1.xlsx").Sheets(1).Cells(i, j).CurrentRegion
Application.Workbooks("总表.xlsx").Worksheets("Sheet1").Cells(i, j) = arr(i, j)
Next j
Next i
End Sub
注意字表数据的位置