ADO ファイルを閉じるには？

質問

アクセスからエクセルへ

Sub Sample()
Dim cn As Object
Dim rs As Object

Set cn = CreateObject("ADODB.Connection")

With cn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Properties("Extended Properties") = "Excel 12.0"
.Properties("Data Source") = "D:\Book1.xlsx"
.Open
End With

Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM [sheet1$]", cn, 3

Debug.Print rs.RecordCount

rs.Close: cn.Close
Set rs = Nothing : Set cn = Nothing
End Sub

このコードでシートの行数を取得してるのですが
このコードを実行後もファイルが開いたままなのですが
閉じるにはどうすればいいのでしょうか？

.Openでファイルが開くので
cn.Close
でファイルが閉じるのかと思ったら閉じません。

cn.Quitを追記してみましたが

実行時エラー　-2147467259
選択クエリを実行できません。

となりました。

どうすればファイルを閉じることが出来るのでしょうか？

回答No.1

NotFound404 · ベストアンサー

提示してもらったコードでこちら（Office2010）では問題なかったですけど？
終了後にExcelを立ち上げて修正もできました。
どこか他のところでExcelをオートメーションで処理していて、
そのインスタンスが残ったままとか・・・では？

タスクマネージャでExcelが残っていないか、
Explorer.exeでファイルのリネームの可否（OSかExcelでロックされたまま）、
なども調べてみるとか・・・。
ご参考まで。

お礼

ありがとうございました。