vba - 如何在合并工作簿末尾添加特定数字

Question

我有一个 Excel 文件，用于合并在同一文件夹中找到的所有原始数据(组 1、组 2、...组 15、组 16)，使用以下代码:

Sub MergeFiles()
Dim Path, Filename As String, group As Long
group = 1
Path = "C:\Users\calin.lencar\Desktop\DT Project\Project Holiday Group Raw 
Data\"
Filename = Dir(Path & "*.csv")

Do While Filename <> "" And Filename <> "Digital Tracking Panel KPIs v1"
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
  LastRow = Range("A65536").End(xlUp).Row
  Range("O2", Cells(LastRow, "O")).Value = group
  Range("A2:X" & Range("A65536").End(xlUp).Row).Copy

ThisWorkbook.Worksheets(21).Activate
  Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
  Application.CutCopyMode = False
  Workbooks(Filename).Close

Filename = Dir()
group = group + 1
Loop

MsgBox "Files have been copied successfully"
End Sub

我试图在每个文件的“O:O”列中添加组号。问题是它按字母顺序打开它们:“Group 1、Group 10、Group 11...Group 2、Group 3...”但组计数器仍然是:1、2、3...

你能帮我吗，我需要组计数器来匹配文件名中的数字(也许用它遇到的第一个数字填充O:O？)或者让Excel打开资源管理器名称后的文件。

提前谢谢您。

Answer 1

这是因为 Dir() 只是转到目录中的下一个字母文件。您可以尝试在文件名中添加前导零，例如“Group 01，Group 02，...”