VBA代码执行中断，试图关闭记录集或连接

Question

我尝试使用ADODB将数据从SQL Server导入到Excelsheet中。 我还激活了“参考”下的“ Microsoft ActiveX数据对象2.8库”。 我不得不承认，我是ADODB的新手。

下面的代码可以正常运行，并且记录集已正确写入Excelsheet。 但是，代码在“ rs.close”处抛出错误，提示“代码执行已被中断”。

由于此错误消息非常笼统，因此我自己无法找到与此有关的任何内容。

我已经关闭了所有其他在我的计算机上访问同一数据库的程序。

Sub Test()

Dim con As ADODB.Connection
Dim conStr As String
Dim SQL As String
Dim rs As Recordset
Dim myWb As Workbook

Set myWb = ThisWorkbook

Set con = New ADODB.Connection
conStr = "Provider=SQLOLEDB;Data Source=*censored*;Initial Catalog=RegMetrics;Trusted_connection=yes;"
con.Open conStr

SQL = "Select * From dbo.fn_Counterparty_RWA()"
Set rs = con.Execute(SQL)
myWb.ActiveSheet.Range("A2").CopyFromRecordset rs

rs.Close
con.Close

End Sub

Answer 1

只需重新启动计算机即可解决此问题。