Excel 错误：对象“WorkbookConnection”的“刷新”方法失败。然后它崩溃

Question

我使用的是 2013 32 位 Excel。

我正在尝试在代码中更改数据连接中文本文件的名称（见下文）。它最初是通过录制宏在电子表格中手动设置的：

Data标签→From Text→Get External Data group

这个电子表格中有几个连接，都是手动设置的，都需要在代码中更新。它们都是同一类型的连接：text。

当我执行下面的代码时，Excel 在 Refresh 语句中返回错误：

"Method 'Refresh' of object 'WorkbookConnection' failed"

然后我再一步，这一次它成功地执行了Refresh 语句，因为它没有返回错误。但是当我然后按F5 继续时，Excel 崩溃了。

Dim wC As WorkbookConnection
Dim rG As Range
Dim rSummary As Range
Dim sh As Worksheet
Dim sChangeValue As String
Dim sWorksheetName As String
Dim sDataTableName As String
Dim sConnection As String
Dim lo As ListObject


For Each wC In ActiveWorkbook.Connections
    If wC.Type = xlConnectionTypeTEXT Then
        'I say "For Each", but in practice there is only one range per sheet
        For Each rG In wC.Ranges
            Set rSummary = Sheets("Summary").ListObjects("d_QueryTable").Range
            sChangeValue = Application.WorksheetFunction.VLookup(wC.Name, rSummary, 7, False)
            If sChangeValue = "Y" Then
                sWorksheetName = Application.WorksheetFunction.VLookup(wC.Name, rSummary, 2, False)
                sDataTableName = Application.WorksheetFunction.VLookup(wC.Name, rSummary, 3, False)
                sConnection = Application.WorksheetFunction.VLookup(wC.Name, rSummary, 10, False)
                With wC
                    .TextConnection.Connection = sConnection
                    .Refresh
                End With
                'sh(sWorksheetName).ListObjects(sDataTableName).TableObject.Refresh
            End If
        Next rG
    End If
Next wC

wC.TextConnection.Connection 字段取值

"TEXT;Y:\Investigations\run_49.csv"

为了测试目的，我将其更改为存储在sConnection 中的值是相同的。但是为什么我会收到 Refresh 错误？那么 Excel 为什么会崩溃呢？

感谢所有帮助。

Answer 1

您可能会收到错误，因为 .TextConnection.Connection 在 .Refresh 之前，而 SQL Server 根本不喜欢它。

一般来说，SQL Server 中的.Connection 确实是一个敏感信息（非常敏感，在某种程度上，整个 SQL Server 中没有比这更敏感的了），SQL Server 避免像这样简单地设置它。试试这个来查看哈希，SQL Server 在其中保存连接字符串：

Sub TestME()

    Dim wC As WorkbookConnection
    Dim rG As Range
    Dim rSummary As Range

    For Each wC In ActiveWorkbook.Connections
        For Each rG In wC.Ranges
            Set rSummary = Worksheets(1).Range("A1:H100")
            With wC
                Debug.Print .OLEDBConnection.Connection
                .Refresh
            End With
        Next rG
    Next wC
End Sub

应该是大约 1000+ 个随机标志，打印在即时窗口上。

Answer 2

根据我的经验，几乎所有 VBA 崩溃都是由内存问题引起的，通常是对象处理不当。

我敢打赌是因为这条线：

Set rSummary = Sheets("Summary").ListObjects("d_QueryTable").Range

在前两个循环的每次迭代中，您多次“重新Seting”该对象。

由于它可能只需要设置一次，因此将该行移到第一个 For 语句之前。