如何从 500 个 .xls Excel 文件中获取单元格中的数据？答案

【问题标题】：How to obtain the data from cell from 500 .xls Excel files?如何从 500 个 .xls Excel 文件中获取单元格中的数据？
【发布时间】：2014-08-02 11:49:54
【问题描述】：

我想问你如何从许多 Excel .xls 文件的几个确定（并且始终相同）的单元格中获取数据，即我在一个文件夹中有一个.xls 文件列表，每个文件内部都有相同的表，但值不同。我想从文件夹中的所有文件中获取来自A1、C2、E3 的数据，并将它们放在新的 Excel 文件中的新表中。

请问有什么办法吗？：）谢谢！ ;)

【问题讨论】：

是的，有办法。看看这个循环遍历文件夹中的文件：stackoverflow.com/questions/24354315/…。然后录制一个宏，看看如何从特定单元格中获取值。

标签： vba excel xls

【解决方案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 将填充复制值，因为您的文件都在一个文件夹中。

【讨论】：