Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8 / 76735

←次へ　｜　前へ→


	【82398】PDFの保存を行う際当該セルを保存名として保存を行いたい

ぺろ - 24/10/22(火) 16:53 -


	引用なし

	パスワード

行いたい事
H3に入力した日にち、B3セルに入力した文字、C15セルに入力した文字,pdfとして保存したい。

下記のコードにてH3セルをTODAY()関数にて動作させた場合は問題なく動作するのですが、任意の日時を入力した場合にその日時を取得する場合はどのようにすればよいかご教示頂きたく質問させていただきました。

Sub PDF発行()

　　'実行確認
　　If MsgBox("PDF形式で出力します。よろしいですか？", vbQuestion + vbYesNo) = vbNo Then
　　　　MsgBox "中止しました。"
　　　　Exit Sub
　　End If
　
　　'出力処理
　　Dim TargetName As String
　　
　　'ファイル名にするセルを変数にして格納
　　TargetName1 = Cells(3, 2)
　　TargetName2 = Cells(15, 3)
　　
　　ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
　　Filename:="保存先" & "\" & Format(Now, "mmdd") & "_" & TargetName1 & "_" & TargetName2 & "_" & ActiveSheet.Name & ".pdf"

End Sub

18 hits

▼

【82398】PDFの保存を行う際当該セルを保存名として保存を行いたい ぺろ 24/10/22(火) 16:53