VBA怎么解决重名

giuber

VBA批量生成文件后，如果遇到名字一样的怎么顺序进位？
详见附件“CSV”
例。生成后有文件名为AAA-01,BBB-02,BBB-03。如果再次执行生成文件则会覆盖之前生成的，
我想要再次生成文件时自动进位AAA-02,BBB-04,BBB-05怎么改
求高手指点

山菊花

Sub test()
    Application.DisplayAlerts = False
    Dim d As Object, p$, f
    Dim cFile$
    p = ThisWorkbook.Path
    Set d = CreateObject("scripting.dictionary")
    Set template = Workbooks.Open(p & "\" & "MODEL.xls")
    For i = 2 To ThisWorkbook.Sheets(1).[d65536].End(xlUp).Row
        With template.Sheets("statements")
            f = ThisWorkbook.Sheets(1).Cells(i, 1)
            Do
                d(f) = d(f) + 1
                cFile = ThisWorkbook.Path & "\" & f & Format(d(f), "00") & ".xls"
                If Dir(cFile) = "" Then Exit Do
            Loop

            .Cells(8, "c") = ThisWorkbook.Sheets(1).Cells(i, 4)
            .Cells(8, "e") = ThisWorkbook.Sheets(1).Cells(i, 5)
            .Cells(8, "f") = ThisWorkbook.Sheets(1).Cells(i, 14)
            .Cells(8, "g") = ThisWorkbook.Sheets(1).Cells(i, 15)
        End With

        template.SaveCopyAs cFile
    Next
    template.Close False
    Application.DisplayAlerts = False
End Sub

giuber

山菊花 发表于 2018-7-23 17:27
Sub test()
    Application.DisplayAlerts = False
    Dim d As Object, p$, f

厉害，谢谢大神
完美解决我的问题
棒棒哒