エクセル マクロで。。

質問

sheet1のA1に記入されている日付があるのですが
保存する際A1と文字をファイル名にし
保存したいのでができません。
つまり2007/07/01販売数.xlsというような感じで
保存したいのですが。。。
A1に記入されている日付は規定がなので
DateAdd関数等は使えません。
VBAではどのようにすればいいのでしょうか？

回答No.2

noname#31387

保存場所は変更して下さい。
Bookと同じ場所に保存します。
一度保存してから実行して下さい。

Sub Smp_1()
Dim myWB As Workbook
Dim myFname As String
Dim myPath As String
Dim buf() As String
With Worksheets("Sheet1").Range("A1")
　　　buf = Split(Replace(.Value, "/", ""), "")
End With
myFname = Join(buf, "") & "販売数.xls"
myPath = ThisWorkbook.Path & "\" & myFname
Set myWB = ThisWorkbook
myWB.SaveAs Filename:=myPath
Set myWB = Nothing
End Sub

お礼

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

回答No.1

noname#31387

ファイル名に / は使えません。
2007/07/01を20070701等にして保存しては如何でしょう。

補足

あ。。そうでした。
20070701販売数.xlsですね。
これで保存したいのですが。。。