相关疑难解决方法(0)

我正在尝试为 Excel 中的加载项编写一些代码，该加载项从 SQL Server 获取一些数据。代码本身运行完美，但不知何故有些东西被损坏了。

看起来代码可以正常工作几次，然后突然触发 Excel 崩溃。经过很长一段时间，我确定它与引用有关，好像在崩溃时我将引用“Microsoft ActiveX Data Objects 2.8 Library”更改为其他内容，然后再次返回，加载项将工作再次。

鉴于重建加载项不起作用，我开始探索后期绑定的选项。我似乎不明白该怎么做。

Private Sub RetrieveToWorksheet(SQL As String, WriteTo As Range, Optional WriteColumnNames As Boolean = True)

If GetStatus = "True" Then
MsgBox ("Database is currently being updated. Please try again later.")
Exit Sub
End If

Application.ScreenUpdating = False

Dim Connection As ADODB.Connection
Dim RecordSet As ADODB.RecordSet
Dim Field As ADODB.Field
Dim RowOffset As Long
Dim ColumnOffset As Long

     On Error GoTo Finalize
Err.Clear
Set Connection = New …