エクセルVBA ファイル名を日付にしたいのですが・・・

質問

A1のセルに表示上は平成１６年９月１１日と表示されているのですが、
（データー的には2004/9/11という形で入っているセルになっています。）

そのセルを指定して、新規ファイル名にして保存したいのです。ファイル名としては、後で見て何日の分か分かればいいので、平成と名前が出ようと2004年とでようと、2004・9・11であろうとどんな形でも、問題ないのですが・・・

何かいい方法ありますでしょうか？？

宜しくお願いいたします

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

データの整形はFormat関数を使用します。

filename = Format(Range("A1").Value, "yyyymmdd") & ".xls"

という感じ
これで、
「20040831.xls」
という風になります。
あとは、これにパスを付ければいいでしょう。

お礼

適切な回答ありがとうございます。
無事に保存が出来ました^^
また　宜しくお願いいたします

回答No.2

anmochi

う～ん。どうやろ。

Format$関数を使えば、セルA1の内容を任意の文字列に出来る。例えば、

datestr = Format$(Now(), "yyyymmdd-hhmmss")

とすれば、datestrには"20040831-141123"などのような文字列になる。このNow()のところをセルA1の値に変えれば、セルA1の日付を文字列に変換できるぞ。
　文字列にさえなっちまえば、その文字列を使ってファイル名を作って保存しちまえば楽々目的の完成だ。

具体的なやり方を示せなんですまん。

お礼

適切な回答ありがとうございます。
何とか保存マクロ完成いたしました
また、色々乗せるときがあるかと思いますので、宜しくお願いいたします。