excel - Excel 2003 宏：跨多个不同工作簿聚合数据

Question

我想使用 excel 2003 为一组 excel 文件创建一个宏，在其中我只能将需要查看的数据聚合到一个 s/s 中；唯一的问题是我不知道从哪里开始。我在工作中使用一个目录，我将大约 15-20 excel s/s' 保存到一个带有每日日期标签的文件夹中。为了加快我们必须查看每个 s/s 的日常过程，请在工作簿中搜索正确的选项卡（有时该特定日期不存在），按数据过滤器排序，并对照识别码列表进行检查；我宁愿在宏中创建它。所以我正在寻找宏以在目录中打开今天的日期文件夹，找到正确的标签选项卡（我们称之为 NYK123），打开每个文件以匹配 id 代码（在 H 列中）和部门代码（在 J 列中）反对我在原始 s/s 上的桌子，并在原始 s/s 上显示结果。此外，新问题的整行字体为红色，需要在原始 s/s 中显示。你们可以提供的任何帮助将不胜感激。

Answer 1

让你开始：

Dim oFSO As New Scripting.FileSystemObject

Dim fsoFile As Scripting.file
Dim fsoFolder As Scripting.Folder

Dim sReportsFolder As String: sReportsFolder = "C:\temp\"

Set fsoFolder = oFSO.GetFolder(sReportsFolder)

For Each fsoFile In fsoFolder.Files

   Dim xlWorkbook As New Workbook
   Set xlWorkbook = Workbooks.Open(fsoFile.Name)

   Dim xlWorksheet As Worksheet
   Set xlWorksheet = xlWorkbook.Sheets("Sheet1")

   ' put your logic here...

Next

警告：从内存中写入，应该编译