4年に一度のスポーツの祭典 全競技速報中

こんばんは。

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

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

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

「エクセルをPDFで保存し、ファイル名はA」の質問画像
gooドクター

A 回答 (1件)

以下のマクロを標準モジュールに登録し、「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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング