Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23009 / 76738

←次へ　｜　前へ→


	【59100】ADODB.Connectionでプロジェクトエクスプローラにブックが残るとき

ON - 08/11/28(金) 14:21 -


	引用なし

	パスワード

こんにちわ　よろしくお願いします

下記で、
C:\Book1.xls
のシート一覧を取得しています

'参照設定：Microsoft ActiveX Data Objects 2.x Library
'　　　　：Microsoft ADO Ext. 2.x for DDL and Security

Sub get_anth_bk_st_nm2()
　　 Dim cnnAdo As ADODB.Connection　'Microsoft ActiveX Data Objects 2.x Library
　　 Dim catAdo As ADOX.Catalog　　　'Microsoft ADO Ext. 2.x for DDL and Security
　　 Dim tdfAdo As ADOX.Table
　　 Set cnnAdo = New ADODB.Connection
　　 With cnnAdo
　　　　 .Provider = "Microsoft.Jet.OLEDB.4.0"
　　　　 .Properties("Extended Properties") = "Excel 8.0"
　　　　 .ConnectionString = "C:\Book1.xls"
　　 End With
　　 cnnAdo.Open
　　
　　 Set catAdo = New ADOX.Catalog
　　 Let catAdo.ActiveConnection = cnnAdo
　　 For Each tdfAdo In catAdo.Tables
　　　　 Debug.Print tdfAdo.Name
　　 Next
　　 cnnAdo.Close
　　 Set catAdo = Nothing
　　 Set cnnAdo = Nothing
End Sub

このとき
C:\Book1.xls
が閉じた状態で実行する場合は問題ありませんが

C:\Book1.xlsを開いたまま実行し
その後、C:\Book1.xlsを閉じると
プロジェクトエクスプローラにVBAProject (Book1.xls)
が残ってしまいます

Ｑ１どのようなコードにすれば、VBAProject (Book1.xls)が残らなくなりますか

Ｑ２マクロブックado_test4xls.xlsを閉じると、タスクマネージャーのプロセスには
　　エクセルはいなくなりますが、上記はいったいどういう状態なのでしょうか
　　
アドバイスよろしくお願いいたします

1 hits

▼

【59100】ADODB.Connectionでプロジェクトエクスプローラにブックが残るとき ON 08/11/28(金) 14:21

≪