エクセルのVBAで指定フォルダにアクセスしてくれません。
下記のような流れでVBAを作成したところ、xls形式でダイアログを指定する際に指定のフォルダにアクセスしてくれません。記述がおかしいのでしょうか。教えてください。
'****************************************
'ダイアログ表示（csv形式）
Dim MyFileA As String
MyFileA = "c:\test\bonaplus" & Format（Date, "yyyymmdd")
Sheets("test").Copy
Application.DisplayAlerts = False
'arg2:=6（csvファイル形式）
Application.Dialogs(xlDialogSaveAs).Show arg1:=MyFileA, arg2:=6
ActiveWindow.Close
Application.DisplayAlerts = True
'ダイアログ表示（xls形式）
Sheets("data").Select
Range("A1").Select
Dim MyFileB As String
MyFileB = "c:\test\bonaplus" & Format(Date, "yyyymmdd") Application.DisplayAlerts = False
'arg2:=1（xlsファイル形式）
Application.Dialogs(xlDialogSaveAs).Show arg1:=MyFileB, arg2:=1
'ActiveWindow.Close
Sheets("data").Select
Range("A1").Select
MsgBox "c:\testにファイルが作成されました。"
ThisWorkbook.Close
Application.DisplayAlerts = True
'****************************************
*************マクロの説明始*****************
指定フォルダにcsv形式でダイアログを表示させる
指定フォルダにxls形式でダイアログを表示させる
エクセルを閉じる
*************マクロの説明終*****************
お礼
さっそくのお返事ありがとうございます。 サンプルコードで実行することができました。なにぶん初心者なものでサンプルコードをすべて理解できていませんが（恥ずかしながら・・・・）参考にさせていただきます。ありがとうございました。