2015年6月4日 星期四

同學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的語法
 

沒有留言: