問題 :
老師您好,請問在Excel VBA裡,我們可不可以製作一個按鈕,
保存成新的pdf 格式,同時將新的文件名稱自動加1呢?比如上一個文件名稱是 ABC1002.pdf,
保存後新的文件名稱變成 ABC1003
ANS:
您好
請參考
Sub test1()
請參考
Sub test1()
Path = "C:\Documents and Settings\student\桌面\"
a = Application.ActiveWorkbook.
b = Mid(a, 1, Len(a) - 5)
d = Mid(b, 4, Len(a) - 5)
e = d + 1
f = Left(a, 3) & e
ActiveSheet.
Path & f & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
後面是儲存成pdf的語法
沒有留言:
張貼留言