同學Excel VBA問題 ~ 關於Excel自動保存的問題

問題 :

老師您好，請問在Excel VBA裡，我們可不可以製作一個按鈕，

裡頭的功能包括將修改後的內容

保存成新的pdf 格式，同時將新的文件名稱自動加1呢？比如上一個文件名稱是 ABC1002.pdf，

保存後新的文件名稱變成 ABC1003

 

 

ANS:

 

您好
請參考

Sub test1()

     Path = "C:\Documents and Settings\student\桌面\"

    a = Application.ActiveWorkbook.Name
    b = Mid(a, 1, Len(a) - 5)
    d = Mid(b, 4, Len(a) - 5)
    e = d + 1
    f = Left(a, 3) & e



    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Path & f & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
       OpenAfterPublish:=False

End Sub

說明Path 字串請改成你要存的的路徑

a是取得目前檔案的名稱

b是取得檔案的名稱不含附檔名

d是取得檔案的數字部分預設用檔案前3碼算，找出數字的部分

e為把檔案+1

f為新的檔案名稱

後面是儲存成pdf的語法