VBAでエクセルをPDFで保存したい

Question

イタリックテキスト### 前提・実現したいこと
初めまして。VBA初心者です。
今回エクセルファイルをPDFで保存したいのですが、以下のようなエラーが発生します。
何度も試行錯誤しましたがうまくいきません。
なぜうまくいかないのか、エラーを手立てに修正してみてもわかりません。

お手数おかけしますが、もしお分かりの方がいればお力をお貸ししてほしいです。
よろしくお願いします。

発生している問題・エラーメッセージ

オブジェクト変数、またはウィンアクターwithブロック変数が足りません

使用言語

VBA

Sub outputPDF()

Dim date_now As Date
Dim fileName As String

'保存先フォルダパス＆ファイル名
fileName = ThisWorkbook.Path & date_now & ".pdf"

Dim sheet1 As Worksheet
'sheet1.Activat
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName
sheet1.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName

End Sub

Comments

[coco_bauer]

「"マクロの記録"をクリックして、エクセルファイルをPDFに印刷する操作を行い、"記録終了"をクリックする」を行うと、それに対応するVBAのプログラム(マクロ)が記録されます。記録されたマクロを元にすると作業が楽ですよ。

[OOOOO]

素早いご対応、ありがとうございます。マクロにしてしまうとExportAsFixedFormatメソッドと異なり、示す範囲が広いため汎用性が低いかな…と思い、マクロを書くように努めていました。他の動作の際はcoco_bauerさんのアドバイス通り、マクロを基に組み立てたいと思います。ありがとうございます。、

Answer 1

Dim sheet As Worksheet
Set sheet = ActiveSheet

デバッグ、ステップ実行、イミディエイトウィンドウ、ローカルウィンドウ、etc まだできる事は山ほどありますよ。

Comments

[OOOOO]

素早い返信、ありがとうございます！
無事、エラーは解決されました。
set の知識が乏しいことが分かりました、勉強します。

アドバイスいただいたように直したところ、ファイルを保存できません。とエラーが出ました。
こちらについてもお分かりではないでしょうか…
自分としては、filenameが問題かと思い、変更してみたのですがうまく動かせることはできませんでした。

Dim sheet1 As Worksheet
Set sheet1 = ActiveSheet
⇒ここがエラー　ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName

[coco_bauer]

エラーが出る行の直前に MsgBox("filename:" & filename & ";")というコードを加えて、変数filenameの内容を確認してみてください。"/"、":"などのファイル名に使えない文字や、引用符で括られていない空白文字が含まれていませんか？

[ExcelVBAer]

「ActiveSheet.ExportAsFixedFormat」は、「sheet1.ExportAsFixedFormat」に変えるべきです。
折角、Sheet1変数にActiveSheetを格納したのに、意味が無いですよ。

で、保存するパスについてですが、ご自分でブレークポイントおいて、確認してください。
「fileName = ThisWorkbook.Path & date_now & ".pdf"」
・date_now には何が入ってますか？
・ThisWorkbook.Path だけだと、どうなってますか？
・fileName には何が入ってますか？

[OOOOO]

MsgBox("filename:" & filename & ";")、とても便利ですね。
問題はDateは現在の日付を表示してくれると思っていたのですが、Dateを入れた部分が0:00:00と表示されていることでした。
問題が明確になり、何とか進めることができそうです。
ありがとうございます。