将多个标准化工作簿列表中的数据复制到活动工作簿中

如何解决将多个标准化工作簿列表中的数据复制到活动工作簿中

我想为表中的每个对象，从第4列的文件路径中打开工作簿，然后将大约52个单元格（每个工作簿中的相同位置）复制到活动电子表格中。

表看起来像这样

代码是基本的，因为我认为如果我能解决第一个副本，就可以进一步复制它

        Set tbl = Sheet1.ListObjects("OTJ")  
        For Each cell In tbl.DataBodyRange.Columns(4).Cells
        WB = cell.Value
        Workbooks.Open Filename:=WB
    Set x = Workbooks.Open(WB)
    Set y = ActiveWorkbook
    v = x.Sheets("Sheet2").cell("D70")
Cells(2,5) = v
    x.Close

我的下标超出范围错误，请帮忙

解决方法

目前尚不清楚您要将提取的数据放在何处，但是应该遵循以下原则：

Dim tbl As ListObject,cell As Range,wb As Workbook
Dim wsData As Worksheet

Set wsData = ThisWorkbook.Worksheets("Data")  'or wherever...

Set tbl = Sheet1.ListObjects("OTJ")

For Each cell In tbl.DataBodyRange.Columns(4).Cells

    Set wb = Workbooks.Open(cell.Value)
    wsData.Cells(2,5).Value = wb.Sheets("Sheet2").Range("D70").Value
    wb.Close False 'no save
    
Next cell