[[20161226110500]]　『PDF保存sheet１　A1セルの日付をプラスした名前で』（きむ）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『PDF保存sheet１　A1セルの日付をプラスした名前で保存したい』（きむ）

Sheet1をPDFで日報のファイル名で保存は出来たのですが、
ファイル名：日報の前にSheet1　A1セルの日付をプラス（20121225日報）して保存したいのですが。

VBAの知識が乏しいのでなかなかうまくいきません。

Sub 日報()

Dim fileName As String '保存先フォルダパス＆ファイル名
fileName = ThisWorkbook.Path & "\日報.pdf"

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName

End Sub

ご教授よろしくお願いします。

＜ 使用 Excel：Excel2007、使用 OS：Windows10 ＞

---

    If IsDate(Range("A1")) = True Then
        fileName = Format(Range("A1"), "YYYYMMDD")
    End If
    fileName = ThisWorkbook.Path & "\" & fileName & "日報.pdf"
（???） 2016/12/26(月) 11:28

---

ありがとうございました。
VBA基礎から勉強します。
（きむ） 2016/12/26(月) 20:27

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.