| |
こんにちは。教えてください。
下記のような流れで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形式でダイアログを表示させる
エクセルを閉じる
*************マクロの説明終*****************
|
|
mypapa
- 03/5/8(木) 15:28 -
