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

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

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

1 个答案: