| |
行いたい事
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
