PQ刷新报错‘Subscript out of range’求助：代码行上周可用现失效

出现这个错误的核心原因是代码里指定的连接Query - Fixed Price在当前工作簿里找不到，或者访问方式有问题，下面是具体排查和解决方法：

• 检查连接名称是否匹配
  不同输入文件可能会导致查询连接的名称被修改，或者存在拼写、符号、大小写的差异。可以运行这段代码查看当前工作簿所有连接的实际名称：

  Dim conn As WorkbookConnection
  For Each conn In ActiveWorkbook.Connections
      Debug.Print conn.Name
  Next conn
  

  打开VBA编辑器的“立即窗口”（按Ctrl+G）就能看到所有连接名，把代码里的名称替换成实际存在的那个。

• 确认连接是否存在
  手动打开工作簿的「数据」选项卡，点击「连接」按钮，查看列表里有没有Query - Fixed Price，如果没有说明连接已被删除或者新输入文件根本没创建这个连接，需要重新添加对应的查询连接。

• 锁定目标工作簿
  ActiveWorkbook指的是当前激活的工作簿，如果同时打开了多个文件，可能指向错了。可以直接指定工作簿名称来避免这个问题：

  Workbooks("你的目标工作簿名.xlsx").Connections("Query - Fixed Price").OLEDBConnection.BackgroundQuery = False
  

• 验证连接类型
  如果这个连接不是OLEDB类型，直接访问OLEDBConnection属性也会触发错误。可以先判断类型再操作：

  With ActiveWorkbook.Connections("Query - Fixed Price")
      If .Type = xlConnectionTypeOLEDB Then
          .OLEDBConnection.BackgroundQuery = False
      End If
  End With
  

内容的提问来源于stack exchange，提问作者Bruce Stirling