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

我想问你，我怎样才能从很多Excel的.xls文件确定（总是相同）单元格的数据，即我有一个文件夹中的.xls文件的列表，每个文件有相同的表内，但具有不同的价值。 我想从文件夹中的所有文件中获取来自A1 ， C2 ， E3的数据，并将它们放在新的Excel文件中的新表中。

有没有办法怎么做？ ：） 谢谢！ ;）

Answer 1

我检索外部数据如下：

创build一个名为“x”的工作表，为我想获得的每个数据项指定以下信息：

所以我有文件夹名称，文件名称，工作表名称和列A，B，C，D中项目的单元格引用

然后运行下面的macros：

 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 

macros将填充列E的数据。

在你的情况下，列A将填充重复值，因为你的文件都在一个文件夹中。