マクロでエクセルをｙｙｙｙｍｍの形式で保存する方法

質問

マクロを使って指定のディレクトリに　yyyymm.ｘｌｓ　という形式でエクセルを保存したいです。

エクセルの名前は今日の日付の年月のみ。
ディレクトリはこれです。

C:\Documents and Settings\colo\Escritorio\access dato\

どうしたらよいのでしょうか。
よろしくお願いします。

回答No.1

mshr1962 · ベストアンサー

Sub FSAVE()
Dim FPath As String
Dim FName As String
FPath = "C:\Documents and Settings\colo\Escritorio\access dato\"
FName = Format(Now(),"yyyymm") & ".xls"
ActiveWorkbook.SaveAs Filename:= FPath & FName,FileFormat:= xlWorkbookNormal
End Sub