將數據從多個標准化工作簿列表復制到活動工作簿

Question

我想為表中的每個對象從第 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

我不斷收到下標超出范圍錯誤，請幫忙

Answer 1

不太清楚您要將提取的數據放在哪里，但是應該可以使用以下方法：

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