5.11 Accessを終了する
 Accessを終了する場合の方法です。アクセスオブジェクトのQuitというメソッドを実行します。
使用例
 Quitの使い方です。例では、c:\happyというフォルダに入っているisland.mdbというMDBファイルを開き、2秒後にMDBファイルを閉じてAccessを終了(@)しています。

 それ以外、特に変わったことはしていません。でも、決して手抜きでは無いです(汗)

Option Explicit

Dim objAccess

'Accessオブジェクトを作成します
Set objAccess = CreateObject("Access.Application")

'Access画面を表示します
objAccess.Visible = True

'既存のMDBファイルを開きます
objAccess.OpenCurrentDatabase("c:\happy\island.mdb")

'2秒待機します。じゃないと、一瞬で終わってしまうので(汗)
WScript.sleep(2000)

'MDBファイルを閉じます
objAccess.CloseCurrentDatabase

'@Accesを終了します
objAccess.Quit

'Accessオブジェクトの破棄
Set objAccess = Nothing
 ※例では、Accessの画面をわざと表示しています
Copyright(C) 1999-2006 結城圭介。 All rights reserved