Word用户窗体依赖ComboBox绑定Excel动态区域报错求助

原代码的核心错误出在区域引用的语法错误，同时还有逻辑冗余、边界情况未处理等问题，下面逐一拆解并给出修正后的代码：

错误点拆解 #

• 区域引用语法错误：Range("A2:A", Range("A2").End(xlToRight)) 是无效的Range写法，且未指定工作表，会导致Excel无法识别目标区域，直接触发1004错误。
• 冗余循环：已经用Find方法定位到了目标公司名称的单元格，没必要再遍历A2:A29做重复判断。
• 未处理查找失败情况：如果用户选择的公司名称不在Excel表中，Find返回Nothing，后续操作会报错。
• 不必要的工作簿保存：只是读取数据，不需要保存工作簿，反而可能引发意外的文件修改。
• Excel进程残留风险：未正确释放对象，直接xlApp.Quit可能导致Excel进程在后台残留。

修正后的代码 #

Private Sub CompanyName_Change()
    Dim xlApp As Object
    Dim xlBook As Object
    Dim ws As Object
    Dim targetCell As Object
    Dim targetRange As Object
    Dim listArr As Variant

    Attention.Clear
    
    ' 处理Excel实例
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set xlApp = CreateObject("Excel.Application")
        xlApp.Visible = False ' 后台运行Excel，不显示界面
    End If
    On Error GoTo 0
    
    ' 打开工作簿并指定工作表
    Set xlBook = xlApp.Workbooks.Open("FileLink") ' 替换为实际文件路径
    Set ws = xlBook.Sheets("Sheet2")
    
    ' 查找选中的公司名称
    Set targetCell = ws.Cells.Find(what:=Me.CompanyName.Value, LookIn:=xlApp.xlValues, LookAt:=xlApp.xlWhole)
    
    If Not targetCell Is Nothing Then
        ' 取目标单元格所在行，从当前单元格向右到最后一个非空单元格的区域
        Set targetRange = ws.Range(targetCell, targetCell.End(xlApp.xlToRight))
        ' 将区域值转为数组，赋值给ComboBox的List
        listArr = targetRange.Value
        ' 如果是多列区域，转置为一维数组适配Word ComboBox
        If UBound(listArr, 2) > 1 Then
            listArr = xlApp.Transpose(listArr)
        End If
        Attention.List = listArr
    End If
    
    ' 关闭工作簿并退出Excel
    xlBook.Close savechanges:=False ' 只读操作，无需保存
    xlApp.Quit
    
    ' 释放对象，避免进程残留
    Set targetRange = Nothing
    Set targetCell = Nothing
    Set ws = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

关键改进说明 #

1. 正确的区域引用：通过找到的targetCell定位所在行的动态区域，确保每次都取对应公司的右侧所有非空单元格。
2. 处理查找失败：增加If Not targetCell Is Nothing判断，避免找不到时触发错误。
3. 数组转置适配：Word的ComboBox对一维数组兼容性更好，多列区域时用Transpose转置为一维数组。
4. 避免进程残留：显式释放所有Excel对象，确保Excel进程正常退出。
5. 后台运行Excel：设置xlApp.Visible = False，避免操作时弹出Excel窗口干扰用户。

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