エクセルＶＢＡについて

今、エクセルＶＢＡでマクロの作成を行っています

マクロの中で、作業用に別なエクセルとシートを作成したのですが
マクロの最後でその作業用のエクセルとシートを削除する用にしました。

その際に、エクセルがメッセージボックスが開き
『このエクセルブックを閉じますか』や『このシートを削除してよろしいですか』などと聞いてきます。
このボックスを出さないように強制的に消すことは出来ないのでしょうか？
出来るのであれば、やり方を教えてください。

No.4 ベストアンサー 回答者： vbafriend 回答日時： 2002/11/23 00:05

初めまして。

サンプルマクロを組んでみました。参考にしてみて下さい。

Sub Test
Application.DisplayAlerts = False
workbooks("作業用に用意したブック名.xls").close SaveChanges:=FAlse
workbooks("削除したいシートがあるブック名.xls").worksheets("削除したいシート名").delete
Application.DisplayAlerts = True

End Sub

これで、メッセージを出さずにブックも保存せず終了できますし、シートも削除されると思います。お試しになってみて下さい。

もし、何かございましたらご遠慮なく補足要求をして下さい。

この回答へのお礼

いえ、十分ですありがとうございます
なぞが解けました＾＾

お礼日時：2002/11/25 13:05

No.3 回答者： ruburubu 回答日時： 2002/11/23 00:01

シートの削除については、No.1の方のやり方で良いようです。

ヘルプより

次の使用例は、確認のダイアログ ボックスを表示しないで、作業中のブックのシート 3 を削除します。

Application.DisplayAlerts = False
Worksheets("Sheet3").Delete
Application.DisplayAlerts = True

この回答へのお礼

ありがとうございます
そういうことだったんですね＾＾

お礼日時：2002/11/25 13:00

No.2 回答者： ruburubu 回答日時： 2002/11/22 23:18

Closeメソッドで、SaveChanges = Trueにすれば良いのでは。

新規ブックを開いて、適当に書き込みしたあと、閉じる例

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2002/11/22 ユーザー名 :
'

'
Workbooks.Add
ActiveCell.FormulaR1C1 = "aaa"
ActiveWindow.Close (SaveChanges = True)

End Sub

この回答へのお礼

ありがとうございます＾＾
エクセルブックを閉じることはできました
あとは、シートの削除なんですが・・・
なにかありませんかね＾＾

お礼日時：2002/11/22 23:37

No.1 回答者： papayuka 回答日時： 2002/11/22 23:17

こんにちは。

Application.DisplayAlerts = False

'処理

Application.DisplayAlerts = True

のようにします。
処理が終わったら必ずTrueに戻しましょう。

この回答へのお礼

回答ありがとうございます＾＾

お礼日時：2002/11/22 23:38