[[20200131215629]]　『PDF保存のVBA』（ぽん）　ページの最後に飛ぶ

『PDF保存のVBA』（ぽん）

コマンドボタンをクリックしたらPDF保存されるようにしたいので下記コード
を書きました。但し条件がありA1とA2に入力されている言葉で保存したいので
K42に＝A1&A2にの式を入力しました。

Private Sub PDF_Click()

Dim pdf_name As String

pdf_name = Range("E42").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "C:\Users\hitct\Desktop" + pdf_name, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

すると
実行時エラー1004
ドキュメントを保存できませんでした。ドキュメントが開いているか保存時にエラーが発生した可能性があります

と表示されます。
原因が分かる方、お願い致します

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

[[20200131200252]]　『コマンドボタンを押したらPDF保存』（ぽん）
↑と分ける必要があるんですか？

想像ですが、「+」で結合しようとして失敗したか、 Range("E42").Valueにファイル名として使えないものが入っていたか、エラーメッセージそのままに、同名のファイルが開かれていたか。。。あたりじゃないですかね？
　

（もこな２） 2020/01/31(金) 22:20

\Desktop\

（マナ） 2020/01/31(金) 22:32

＞マナさん
なるほど・・・

＞ぽんさん
デスクトップなどは"特殊フォルダ"と呼ばれ、そのものズバリを書く以外の方法もありますよ
http://officetanaka.net/excel/vba/tips/tips107.htm

（もこな２） 2020/01/31(金) 22:36

マナさん
もこな2さん

ありがとうございます。
これで業務が円滑に進みます
（ぽん） 2020/02/01(土) 13:47

それで、↓はどうするのですか？
[[20200131200252]]　『コマンドボタンを押したらPDF保存』（ぽん）

（もこな２） 2020/02/01(土) 14:58

みなさんありがとうございます。
検証できました
（ぽん） 2020/02/02(日) 00:31

コメント返信：

[ 一覧(最新更新順) ]

[[20200131215629]] 『PDF保存のVBA』（ぽん） ページの最後に飛ぶ

[[20200131215629]]　『PDF保存のVBA』（ぽん）　ページの最後に飛ぶ