エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。

こんばんは。

VBAでエクセルをPDFで保存するときの記述を教えていただけますでしょうか。

保存するときのファイル名はA１セルを参照し、
保存先は特定のフォルダ（\\server\事務\領収書_PDF）を指定し、
最後に保存された先のメッセージボックスが出るようにしたいです。

よろしくお願いいたします。

No.1 ベストアンサー 回答者： tatsu99 回答日時： 2018/09/04 00:15

以下のマクロを標準モジュールに登録し、「PDF保存」に割り付けてください。

------------------------------------
Option Explicit
Sub PDF出力()
Const saveFolder = "d:\goo\excel\goo384\"
Dim fname As String
Dim fullname As String
fname = ActiveSheet.Range("A1").Value & ".pdf"
fullname = saveFolder & fname
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fullname
MsgBox (fullname & "保存完了")
End Sub

この回答へのお礼

tatsu99様
早々にありがとうございます。したかったことが実現できました！
本当にありがとうございます。

お礼日時：2018/09/04 13:27