[[20151113171230]]　『今日の日付でフォルダを作り、その中にファイルを』（みゆ）　ページの最後に飛ぶ

『今日の日付でフォルダを作り、その中にファイルを格納したいです【VBA】』（みゆ）

いつも参考にさせて頂いております。

activeなcsvファイルを、今日の日付のファイル名にしてから
指定の場所に今日の日付のフォルダを作り、そのフォルダ内に格納したいのです。

指定の場所にフォルダはできるのですが
そこに作ったフォルダ内ではなく
指定の場所の直下にファイルが保存されてしまいます。

Sub test()

    Dim mypath As String, mydir As String, i As Long
        mypath = "\\12.34.567.8\usr1\共用\データ作成ツール\" & Format(Date, "yy-mm-dd")

     If Dir(mypath, 16) = "" Then MkDir mypath

     Dim Filename As String
          Filename = Format(Date, "yyyy-mm-dd") & ".xls"

        ActiveWorkbook.SaveAs Filename:= _
             mypath & ".xls", FileFormat:=xlWorkbookNormal
 End Sub

いろいろ試したのですが、どのように直せばいいかご教示いただければ
幸いです。
よろしくお願い致します。

＜使用 Excel：Excel2010、使用 OS：WindowsXP ＞

＞ Filename = Format(Date, "yyyy-mm-dd") & ".xls"
＞ ActiveWorkbook.SaveAs Filename:= _
＞ mypath & ".xls", FileFormat:=xlWorkbookNormal

Filename という変数を使っていないようですが？
Excelの固有名と同じ名前の変数宣言は止めるべきです。
（???） 2015/11/13(金) 17:35

 変数名については、(???)さんの指摘の通りですから、fName 等にかえたほうがいいと思います。

 で、やはり　指摘の通り、肝心のファイル名を文字列の中に含めていませんね。
 さらに、フォルダパス　と　ファイル名.xls の間には "\" が必要ですからご注意を。

（β） 2015/11/13(金) 18:14

???様、β様。

ご指摘有難うございます。
お恥ずかしい限りです。

また、「mydir」「i」と使用していない変数を宣言してしまっていました。

教えて頂いた通り、変数をFnameとし
"\"を追加することに寄って、思っていた場所に保存できました。
有難うございました。

 ActiveWorkbook.SaveAs Filename:= _
          mypath & "\" & Fname, FileFormat:=xlWorkbookNormal

（みゆ） 2015/11/16(月) 11:36

コメント返信：