如何從500個.xls Excel文件中的單元格中獲取數據？

Question

我想問你如何從許多Excel .xls文件中的幾個確定的（且始終相同）的單元格中獲取數據，即我在一個文件夾中有一個.xls文件列表，並且每個文件內部都有相同的表，但值不同。 我想從文件夾中的所有文件中獲取A1 ， C2 ， E3的數據，並將它們放到新的Excel文件中的新表中。

請問有什么方法嗎？ ：） 謝謝！ ;）

Answer 1

我按如下方式檢索外部數據：

創建一個名為“ x”的工作表，該工作表為我要獲取的每一項數據指定以下信息：

所以我在A，B，C，D列中都有文件夾名稱，文件名，工作表名稱以及單元格引用

然后運行以下宏：

Sub GetExternalData()

    Dim wbPath As String, WorkbookName As String
    Dim WorksheetName As String, CellRef As String
    Dim Ret As String, i As Long, N As Long

    For i = 1 To Sheets("x").Cells(Rows.Count, 1).End(xlUp).Row

        wbPath = Sheets("x").Cells(i, 1).Value
        WorkbookName = Sheets("x").Cells(i, 2).Value
        WorksheetName = Sheets("x").Cells(i, 3).Value
        CellRef = Sheets("x").Cells(i, 4).Value

        Ret = "'" & wbPath & "[" & WorkbookName & "]" & _
              WorksheetName & "'!" & Range(CellRef).Address(True, True, -4150)

        Sheets("x").Cells(i, 5).Value = ExecuteExcel4Macro(Ret)
    Next i
End Sub

宏將用數據填充E列。

在您的情況下，列A將填充有重復值，因為您的文件都在單個文件夾中。