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

【问题标题】：How can I extract data from multiple files in a folder of excel如何从excel文件夹中的多个文件中提取数据
【发布时间】：2015-08-01 20:54:58
【问题描述】：

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

示例：C2 = 文件名、C3=名称、C4=父亲姓名、C5=年龄等...直到 C12

所有提取的信息都应该通过转置（逐行）粘贴到我的摘要表中

注意：在提取数据时，我已经知道它必须从中提取的路径，并且在我的摘要表“E1”中

如果能在此处为我指明正确的方向，我们将不胜感激

【问题讨论】：

如果您使用的是 Excel 2010 或 2013，您应该下载并启用 Power Query。它非常适合此类任务。
先生，您能详细说明一下吗？我第一次听说这个“权力查询”
这个链接有一个例子：databasejournal.com/sqletc/…。我鼓励你先用一张 Excel 表格进行转换....

标签： excel vba

【解决方案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

【讨论】：

先生，能否请您分享一下循环的剩余代码，以便我可以直接复制粘贴到我的摘要工作簿中
抱歉，没有。我不会做你的全部工作。这个网站是寻求帮助。不要外包你的工作。