返回列表 上一主題 發帖

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

liebe

帖子
28 
主題
20 
精華
0 
積分
70 
點名
0  
作業系統
windows 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2017-7-4 
最後登錄
2018-8-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-7-5 16:11 | 只看該作者

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

各位大大們好!

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

還麻煩大大們教教我!感謝大家!
收藏 分享

hayden0009

帖子
11 
主題
2 
精華
0 
積分
58 
點名
0  
作業系統
WIN200 
軟體版本
NA 
閱讀權限
20 
註冊時間
2020-1-21 
最後登錄
2022-3-31 
2#
發表於 2020-4-8 13:40 | 只看該作者
路徑假設：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

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題