Excel ファイル名のあとに年月を付けて保存

質問

Excel でファイル名のあとに年月(YYMM表示のTEXT)を付けて Sheets.Copy を試みましたら、書き加えられた年月の最初の 0 が外れてしまいます。
・・・ 0707 と書き加えるつもりが 707 になります。

Sub SCopy()
Dim fn As String
fn = Format(Range("E20").Value)　
Sheets.Copy
ActiveWorkbook.SaveAs Filename:="C:\My Documents\FNTest" & fn
End Sub

"E20"には、毎月中旬以降は翌月表示にする関数
=TEXT(DATE(YEAR(NOW()),MONTH(NOW())+1,DAY(NOW())-10),"YYMM")　の返り値が
0707 と表示されています。
これを値のみコピーした 0707 に変えても同じ、'0707 としても同じで、707 としか入りません。
"E20"の書式を「文字」にしても同じです。

参りました。チェックの方法を教えて下さい。よろしくお願いします。

回答No.2

Wendy02 · ベストアンサー

こんにちは。

この前の話の続きですね。

答えとしては、
fn = Format(Range("E20").Value,"0000")
または、
fn = Range("E20").Text

ただ、どちらかというと、

>=TEXT(DATE(YEAR(NOW()),MONTH(NOW())+1,DAY(NOW())-10),"YYMM")

ワークシートに表示するのは良いのですが、これ自体をマクロの中に入れてしまったほうがよいですね。VBAでは以下のような式になります。私の作ったものは、そのようにしています。

fn = Format$(DateSerial(Year(Now()), Month(Now()) + 1, Day(Now()) - 10), "yyMM")

なお、なぜ、「707」となるかというと、「自動キャスティング」という機能で、セルの数字は、Valueプロパティでは、最小量のデータになって、「707」になります。Range オブジェクトには、Text プロパティもありますから、それで取り出すと、「0707」というのが格納されています。ですが、Textプロパティは、ユーザーが任意で変えられるものですから、なるべく、Valueプロパティから、Format 関数で直す方が確実です。また、それ以上に、VBAの中で処理すると、数式がなくなってしまったり、ユーザーが書き換えるという心配がなくなります。ただし、任意の選択や変更ができなくなりますが。

お礼

Wendy02さん　ありがとうございました。

> これ自体をマクロの中に入れてしまったほうがよい
確かにそうです。ワークシートに表示して拾ってくるのは、いかにもトウシロ・メソッドでした。
実は「707」の前には「107」と出まして、Excel が壊れているのかと思いました。

> Format$(DateSerial・・・
など、一つずつ道具が増えていくような思いがして嬉しいです。

またよろしくお願いします。

回答No.1

ASIMOV

fn = Range("E20").Value

で、どうでしょう

お礼

ASIMOVさん　ありがとうございました。