VBA修改工作表首行颜色报错“Worksheets Collection Not Set”求助

可能的原因与排查方案 #

1. 工作簿对象或Worksheets集合损坏 #

• 新建空白.xlsm工作簿，将原工作簿的所有工作表通过右键→移动或复制转移到新工作簿，在新工作簿中运行代码测试。若恢复正常，说明原工作簿的Workbook对象存在损坏。
• 将原工作簿另存为最新的Excel宏格式（.xlsm），覆盖或另存为新文件，避免旧版本格式的兼容性问题。

2. VBA项目引用缺失 #

• 打开VBA编辑器（Alt+F11），点击工具→引用，检查列表中是否有标记为MISSING的项，取消勾选此类缺失引用后确定，重新运行代码。旧版本工作簿的引用可能在当前Excel环境中失效，导致集合访问异常。

3. ThisWorkbook对象引用异常 #

• 临时修改代码，将ThisWorkbook.Worksheets替换为ActiveWorkbook.Worksheets测试。若不再报错，说明ThisWorkbook对象的VBProject损坏：
  1. 导出原工作簿的所有VBA模块（右键模块→导出文件）；
  2. 新建空白宏工作簿，导入导出的模块；
  3. 复制原工作表到新工作簿，重新测试代码。

4. 隐藏/受保护工作表干扰 #

• 解除所有工作表的保护（右键工作表→撤销保护，若有密码需输入），取消所有工作表的隐藏（右键工作表标签→取消隐藏），再运行代码。受保护或隐藏的工作表可能导致单元格格式设置失败，触发集合访问的错误提示。

5. 加载项冲突 #

• 关闭所有Excel文件，按住Ctrl键双击Excel图标进入安全模式，打开问题工作簿运行代码。若安全模式下正常，说明是第三方加载项导致的冲突：
  1. 打开Excel正常模式，点击文件→选项→加载项；
  2. 选择COM加载项点击转到，逐一启用加载项并测试，定位冲突项后禁用。

调试用代码（定位异常工作表） #

可以使用带错误捕获的代码，在立即窗口输出具体的错误信息，帮助定位问题工作表：

Private Sub UpdateEnvironmentColor(MyVar As String)
    Dim CurrWrkSht As Worksheet
    Dim wsIndex As Integer
    
    ' 用索引循环替代For Each，规避集合遍历异常
    For wsIndex = 1 To ThisWorkbook.Worksheets.Count
        Set CurrWrkSht = ThisWorkbook.Worksheets(wsIndex)
        On Error Resume Next ' 临时捕获错误
        Debug.Print "处理工作表：" & CurrWrkSht.Name
        If Err.Number <> 0 Then
            Debug.Print "错误：" & Err.Description & "（工作表：" & CurrWrkSht.Name & "）"
            Err.Clear
            On Error GoTo 0
            GoTo NextSheet
        End If
        On Error GoTo 0
        
        Select Case MyVar
            Case "A"
                CurrWrkSht.Rows(1).Interior.Color = vbRed
            Case "B"
                CurrWrkSht.Rows(1).Interior.Color = vbGreen
            Case Else
                CurrWrkSht.Rows(1).Interior.Color = vbWhite
        End Select
NextSheet:
    Next wsIndex
End Sub

运行后打开VBA编辑器的立即窗口（Ctrl+G），查看输出的错误信息，即可定位到导致异常的工作表。

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