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

看板Visual_Basic作者cyrenaic (公寓春光)時間16年前 (2007/11/14 09:20)推噓2(2推 0噓 0→)

留言2則, 1人參與討論串1/2 (看更多)

想請教一個問題如果想要讓檔案按一建自動存檔，且如有相同檔名時，會自動編號~ 這樣子的應該如何編寫以下是初步寫出來東西 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

11/14 10:40, , 1^F

11/14 10:40, 1^F

推

Marty

11/14 10:48, , 2^F

11/14 10:48, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 cyrenaic 的文章

文章代碼(AID): #17EaraW- (Visual_Basic)