[[20140916163854]]　『マクロでPDFにする時の名前付け』（KISS）　ページの最後に飛ぶ

『マクロでPDFにする時の名前付け』（KISS）

いつもお世話になっております
いつも大変お世話になっております
お忙しいと思いますがご教示頂けると幸いです

PDF化マクロを下記の様に組んでいますが
エラーが出る時と出ない時が有り
解らないでいたら　AU7のセル値に/を入れる人がいまして
困っています
　
基本AU7は日付を入れるようになっています
和暦　西暦統一はしていません

そこでAU7を取りやめて現在のYYYYMMを最後に付けたいと思います
どの様に書けばいいのでしょうか？

Sub PDF()

   Dim FilePath As String
   FilePath = ThisWorkbook.Path & "\"

   Dim FileName As String
   FileName = "投資申請書"

    Sheets("投資申請書（原紙） ").ExportAsFixedFormat Type:=xlTypePDF, _
        FileName:=FilePath & FileName & "_" & Range("B4") & Range("O4") & Range("O5") & Range("AU7").Value & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 AU7 は日付として認識できるデータが入っているのでしょうか。
 もしそうであれば、フォーマットを整形してあげればいいと思うのですが。

 If IsDate( Range("AU7").Value ) = True Then
    dt = Format( Range("AU7").Value, "YYYYMMDD" )
 Else
    dt = Format( Now, "YYYYMMDD" )
 End If

 などとして、ファイル名に取り入れてはどうでしょうか。
（Mook） 2014/09/16(火) 17:07

Mookさま

いつも大変お世話になります

考え方ですね　有難う御座いました

本当に助かりました
（KISS） 2014/09/16(火) 17:47

コメント返信：

[ 一覧(最新更新順) ]

[[20140916163854]] 『マクロでPDFにする時の名前付け』（KISS） ページの最後に飛ぶ

[[20140916163854]]　『マクロでPDFにする時の名前付け』（KISS）　ページの最後に飛ぶ