[VBA ] 如何按鍵自動另存新檔且自動更改檔名

[cyrenaic (公寓春光)]

想請教一個問題

如果想要讓檔案按一建自動存檔，且如有相同檔名時，會自動編號~

這樣子的應該如何編寫

以下是初步寫出來東西

Sub FirstSave()
Dim Filepath As String
    COName = Sheets("報價單").Range("C5") '公司名稱

'以下為目前的日期
    Y = Year(Date)
    M = Month(Date)
    D = Day(Date)
    For i = 1 To 9
        If M = i Then
        M = "0" & i
        End If
    Next
            For i = 1 To 9
            If D = i Then
            D = "0" & i
            End If
            Next
    recordday = Y - 1911 & M & D    '從西元轉換成民國
    savename = COName & recordday   '儲存的檔名
    Filepath = "D:\" & COName & "\" & savename '儲存的路徑
    ActiveWorkbook.SaveAs Filename:=Filepath
End Sub

如果今天已經有儲存了一筆 "公司名稱961114" 的檔案

那如何把今天第二次存檔的資料自動轉換成 "公司名稱961114-2"

請大大們賜教

謝謝~
※ 編輯: cyrenaic        來自: 218.172.111.6        (11/14 09:21)
推 Marty:用FileExists來判斷是否已經有這個檔案...
推 Marty:還有你的日期轉換建議用Format()..可以簡化不少程式碼..