日付を入力したセルをファイル名にして保存するには

解決済

質問者：da-rin-ko
質問日時：2007/04/14 18:05
回答数：4件

こんにちは。ＶＢＡ初心者です。

あるセルに日付を入力しています。
そのセルは書式設定の表示形式・日付で「2001/3/14」と入力した時に、「2001年3月14日」と表示される様に設定しています。

そしてこのファイルをマクロで名前をつけて保存するとき、上記のセル（の値）をファイル名したいのですが、2001\3\14と認識され、エラーが出ます。

セルに日付を入力する時に、出来るだけかな入力はせず、日付をファイル名にして保存するにはどういう方法があるでしょうか。

わかりにくい説明で申し訳ありません。ウィンドウズＸＰ・エクセル2003です。よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： nicotinism
回答日時：2007/04/14 18:24

Sub mySave()

Dim ws As Worksheet
Set ws = Sheets("sheet1")
ThisWorkbook.SaveAs Format(ws.Range("A1"), "yyyy\年mm\月dd\日") & ".xls"
End Sub
Sheet1のA1の日付で保存する場合です。
2001年03月14日.xls となります。

- 3
- 件

通報する

この回答へのお礼

おかげさまで、思いとおりに保存することができました。
早速のご回答、ありがとうございました。

通報する

お礼日時：2007/04/14 19:37

No.4

回答者： Wendy02
回答日時：2007/04/15 15:44

こんにちは。

>そのセルは書式設定の表示形式・日付で「2001/3/14」と入力した時に、「2001年3月14日」と表示される様に設定しています。

それは、VBAの基本的なことだと思いますが、セルの書式が、「2001年3月14日」のように、yyyy年mm月dd日となって、間違いないのなら、Rangeオブジェクトの、Valueプロパティ（プロパティを付けない場合も含め）ではなくて、Text プロパティです。

それが不確実なら、以下の二番目のように、Format 関数でのテキスト変換が必要になるとのですね。

Sub TestSave()
　Application.Dialogs(xlDialogSaveAs).Show _
　 (ThisWorkbook.Worksheets("Sheet1").Range("A1").Text)
End Sub

不確実な場合
Sub TestSave2()
　Dim Fn As Variant
　Fn = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
　If IsDate(Fn) Then
　　Fn = Format$(Fn, "yyyy年MM月dd日")
　 Application.Dialogs(xlDialogSaveAs).Show (Fn)
　Else
　 MsgBox "日付値ではありません。", 64
　End If
End Sub

なお、ダイアログの場合、拡張子は、キメウチしなくてもよいと思います。そのままなら、xlsですし、また、拡張子も変えられます。