Excel 2003宏:聚合多个不同工作簿中的数据

Question

我想使用excel 2003为一组excel文件创建一个宏，在那里我只能将需要查看的数据聚合到一个/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

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