Question

我在文件夹中有140个excel文件具有相同的格式，并且在每个文件中都有一个名为“data”（隐藏）的工作表名称，其中我的信息范围为c2：c12。我需要一个宏来从文件夹中的这140个excel文件中提取所有数据，并且应该以行方式粘贴在我的摘要表中。（从C2toC12中提取的信息，必须进行转置）每个文件信息应该按行方式粘贴。

示例：C2 =文件名，C3 =姓名，C4 =父亲姓名，C5 =年龄等......最高为C12

应将所有提取的信息粘贴到我的摘要表中，并使用转置（行方式）

注意：在提取数据的过程中，我已经有了从中提取数据的路径，这在我的摘要表“E1”中

在此向我指出正确方向的任何帮助都将非常感激

Answer 1

您可以使用FileSystemObject获取所需文件的所有名称。然后想要你想要一个循环

Dim fso As Object
Dim folder As Object
Dim file As Object
Dim xlWb As Workbook

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("your\folder")

for each file in folder.files
  Set xlWb = Workbooks.Open(file.Path & "\" & file.Name)
  'your code here
  xlWb.Close
next

如何从excel文件夹中的多个文件中提取数据

1 个答案: