|
こんにちわ よろしくお願いします
下記で、
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)
が残ってしまいます
Q1どのようなコードにすれば、VBAProject (Book1.xls)が残らなくなりますか
Q2マクロブックado_test4xls.xlsを閉じると、タスクマネージャーのプロセスには
エクセルはいなくなりますが、上記はいったいどういう状態なのでしょうか
アドバイスよろしくお願いいたします
|
|