|
はじめて投稿します。よろしくお願いします。
ExcelのWorkSheet上にコマンドボタン「CommandButton1」を置いて、クリックしたら、自分に対するADOをOpenします。
(自分のワークシート[TBL]にデータベースを置いて、「objADO.Execute("select * from [TBL$]")」でデータを抽出できます)
今、このADOをOpenして閉じるだけで、このWorkBookを閉じても、VBAProjectが残ってしまいます。
何か回避策はありますでしょうか?よろしくお願いします。
Private Sub CommandButton1_Click()
Dim objADO As Object
Set objADO = CreateObject("ADODB.Connection")
objADO.Open "Driver={Microsoft Excel Driver (*.xls)};" & _
"DBQ=" & ThisWorkbook.FullName & ";" & _
"ReadOnly=0"
objADO.Close
Set objADO = Nothing
Exit Sub
End Sub
|
|