・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Sub bookを閉じる()
Workbooks("ABC.xls").Close SaveChanges:=True
End Sub
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
SaveChanges:=True・・・・・・・・・確認メッセージを表示せずにブックを閉じるには、Closeメソッドに引数「SaveChanges」を指定します。
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Sub シートの削除()
Application.DisplayAlerts = False
Workshets("Sheet1").Delete
Application.DisplayAlerts = True
End Sub
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
DisplayAlertsプロパティ
DesplayAlertsプロパティにFalseを代入すると、シートを削除する時だけではなく、同名のファイルを保存する時に表示される様々な確認・警告のメッセージを非表示にすることが出来ます。
なお、DisplayAlertsプロパティの規定値はTrueなので、Falseを代入してもプロシージャの実行が終了したら自動的にTrueに戻ります。しかし念の為にプロシージャの中でTrueに戻したほうがいいでしょう。
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Sub ブックを閉じる()
Workbooks("ABC.xls").Close False
End SUb
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Closeメソッドの引数にFalseを指定すると、ブックは保存されずに閉じられます。
また、確認メッセージも表示されません。