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

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

开始：

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

---

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

谢谢你让我开始这篇文章！当我尝试将实际目录parth替换为“C:\temp\”时，它会给我以下消息：“编译错误：无效的外部过程”。这意味着什么？我的错误-您需要将Mistrosoft脚本运行时添加到参考：工具->参考->Mistrosoft脚本运行时，单击“添加”（请记住），它仍然会给出相同的错误…不过我开始更好地理解它了。感谢您的帮助Juliusz！！我只是在想如何每天从新的每日文件中提取它时遇到了麻烦。下面是一个例子：Intellimatch daily\2012\09\u Sept 2012\09-11-2012