|
こんにちは。教えてください。
下記のような流れでVBAを作成したところ、
xls形式でダイアログを指定する際に指定のフォルダに
アクセスしてくれません。記述がおかしいのでしょうか。
それとエクセル自体を閉じるにはどのようなコードを
記述したらよいのでしょうか?
ThisWorkbook.Close
だと、ブックは閉じるのですがエクセルが起動したままなのです。
よろしくお願いします。
'****************************************
'ダイアログ表示(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形式でダイアログを表示させる
エクセルを閉じる
*************マクロの説明終*****************
|
|