Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


75797 / 76732 ←次へ | 前へ→

【5367】指定のフォルダにアクセスしてくれません。
質問  mypapa  - 03/5/8(木) 15:28 -

引用なし
パスワード
   こんにちは。教えてください。

下記のような流れで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形式でダイアログを表示させる
エクセルを閉じる
*************マクロの説明終*****************
1 hits

【5367】指定のフォルダにアクセスしてくれません。 mypapa 03/5/8(木) 15:28 質問
【5374】Re:指定のフォルダにアクセスしてくれません... りん 03/5/9(金) 5:37 回答

75797 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free