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

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

 我来答

1个回答

#热议# 应届生在签三方时要注意什么？

sean1190
2011-05-20 · 超过36用户采纳过TA的回答

知道答主

回答量：80

采纳率：0%

帮助的人：93.8万

我也去答题访问个人页

关注

展开全部

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
注意字表数据的位置