vba - 宏将数据从一个文件夹中多个文件中的特定工作表复制到合并文件

Question

我是 Excel 宏的新手。

我有一个包含许多文件的文件夹。让我们说 A、B、C

他们都有一个名为摘要的工作表。

我想要一个名为 Summary 的新文件

它遍历每个文件并将摘要工作表复制到摘要文件中的单独工作表中。

摘要文件将包含 3 张名为 A、B、C 的工作表，每个工作表都有自己的摘要

Answer 1

首先，您需要一个文件列表。您可以使用另一个电子表格来保存列表，也可以按如下方式扫描目录：

Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder("C:\temp")
s = ""
For Each fil In fld.Files
   s = s & fil.Name & vbCrLf 'a sample of doing something with each fil
   'here you can open each workbook using Application.Workbooks.Open

   'then, or later, if you like you can close the ones you opened
   'by remembering which workbooks were opened before you started.
Next

-- 见：http: //msdn.microsoft.com/en-us/library/aa242702%28v=vs.60%29

接下来，您需要创建一个新工作簿，可以使用

Set newWkb = Application.Workbooks.Add()

-- 见：http: //msdn.microsoft.com/en-us/library/ff840478.aspx

现在，您可以使用上述海报中描述的技术将工作表从一个工作簿复制到新工作簿。

作为参考，这里有一些关于 VBA 语言的好信息。查看语言参考下的各种函数、对象和方法等：http: //msdn.microsoft.com/en-us/library/aa242702%28v=vs.60%29

这里有一些关于 Excel 对象模型的好信息：http: //msdn.microsoft.com/en-us/library/ff194068