[發問] VB輸出PDF每次可自訂新檔名與新路徑

liebe

各位大大們好!

目前我正要用VB寫按鈕可以直接將檔案輸出成PDF
目前的程式碼檔名與路徑都是固定的，每次輸出的PDF檔案都會把舊檔覆蓋，但我想要同時保存舊檔與新檔，而不是取代它
請問我該如何更改，在每次輸出成PDF的時候可以另存新檔名與更改路徑想要儲存的路徑呢?
程式碼如下:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          "D:\Test\P2\ Study.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

還麻煩大大們教教我!感謝大家!

hayden0009

路徑假設：c:\test\
檔名假設：test
輸出會放置於：c:\test\test.pdf
================================================================================
Dim File_Name As String
Dim Path As String
UserName = Environ("username")
Path = InputBox("路徑", "")
MkDir Path
File_Name = InputBox("檔名", "")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & File_Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False