返回列表 上一主題 發帖

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

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

各位大大們好!

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

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

路徑假設: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

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題