PDFファイルに日付を名前にして保存したい。
エクセル2019でワークシートに請求書のフォームを作り、都度、入力しては未記入に戻して使用していますが、都度、請求書の入力完了時にPDFで残そうと考え、「ファイル→エクスポート→PDFの作成→PDFの発行」をマクロで記録させました。作業の自動化ちてすできあがったVBAコードは、以下のようになりました。
Sub PDF()
'
' PDF Macro
'
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Hatade Satoshi\Desktop\請求書.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
これを特定のフォルダに、ファイル名は今日の日付にしたい場合(例:20230527.pdf)、コードをどのように書き換えればよいのでしょうか?
よろしくいお願いいたします。
No.2ベストアンサー
- 回答日時:
コードを修正しました。
Const Folder As String = "D:\goo\data9"
が特定フォルダのフォルダ名です。
あなたの環境にあわせて適切に設定してください。
このまま実行した場合、
D:\goo\data9の下に
20230527.pdf が作成されます。
---------------------------------------------------
Sub PDF()
Const Folder As String = "D:\goo\data9"
Dim fname As String
Dim fpath As String
fname = Format(Date, "yyyymmdd") & ".pdf"
fpath = Folder & "\" & fname
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fpath, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) 【マクロ】ファイル名の日付によって、保管するフォルダを、自動選択したい 4 2023/08/16 11:24
- Excel(エクセル) 【VBA】PDF出力に任意のファイル名前を付ける方法 3 2023/07/21 10:55
- Excel(エクセル) このコードに追記事項の仕方を教えて下さい。 以下のコード内容に出てくる。セルH3が空白の場合、エラー 4 2023/08/03 00:22
- Visual Basic(VBA) ワイルドカード「*」を使うとうまくいかないマクロの添削をお願いします 3 2022/03/26 09:39
- Excel(エクセル) エクセルシートをVBAでpdfで保存したい 2 2022/06/27 10:17
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/26 17:13
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「24日の0時」って・・・
-
パソコンで購入したデーターが...
-
回覧板の日付について質問です...
-
エクセル マクロ 名前を付けて...
-
差し込み印刷に当日の日付が入...
-
「時間」、「期日」、「日付」...
-
エクセルで日付け表示で、明治...
-
ACCESSで日付ごとに自動連番(...
-
アクセス日付時刻の自動入力に...
-
アンドロイドスマホ。カメラに...
-
エクセル マクロで指定日にメ...
-
EXCELで日付を****年上期、****...
-
[SQLSERVER2005]OSの日付を変更...
-
エクセルで日付別にシートを分...
-
Excel関数 基準日に一番近い指...
-
日付の大小の表現
-
PDFファイルに日付を名前にして...
-
回転印の使い方
-
ワードの日付け自動入力のキャ...
-
Access 前のレコードを元に計...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「24日の0時」って・・・
-
パソコンで購入したデーターが...
-
差し込み印刷に当日の日付が入...
-
日付の大小の表現
-
回覧板の日付について質問です...
-
「時間」、「期日」、「日付」...
-
エクセル マクロ 名前を付けて...
-
Excelの関数について質問です。
-
エクセルで6ヵ月後を自動入力で...
-
履歴書の日付間違いで落ちますか。
-
エクセルで日付別にシートを分...
-
差込印刷 縦書きで和暦(漢数...
-
WEEKDAYが反映されない
-
ACCESSで日付ごとに自動連番(...
-
EXCELで日付を****年上期、****...
-
2つの日付の中間の日付 エク...
-
エクセルで日付け表示で、明治...
-
アンドロイドスマホ。カメラに...
-
勤務表をエクセルで作る際、 最...
-
下の画像はアンドロイドタブレ...
おすすめ情報