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

Question

我尝试使用ADODB将SQL Server中的数据导入Excel表格。我还在参考文献下激活了“Microsoft ActiveX Data Objects 2.8 Library”。我必须承认，我是ADODB的新手。

以下代码启动正常，记录集正确写入Excel表格。但是，代码在'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

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