Excel VBA用户窗体运行时错误'-2147352571'：类型不匹配问题求助

错误原因 #

• 数据类型不兼容：工作表「retornos pendentes」第3列（C列）的单元格值为非文本类型（如日期、数值、错误值#N/A/#VALUE!），直接赋值给文本框的Value属性时，类型转换失败。
• 区域引用歧义：原代码中.Cells(foundcell.Row, 3)是基于Range("A1:A" & rowcount)的相对引用，虽逻辑上能指向目标单元格，但易因区域范围变化引发隐性数据读取错误。
• 共享磁盘缓存问题：共享网络磁盘上的文件可能因版本兼容、缓存未同步，导致单元格数据读取异常，出现非预期的数据类型。

解决方法 #

1. 强制转换数据类型并修正引用逻辑 #

将赋值语句改为直接引用工作表单元格，并通过CStr()强制转换为字符串类型，避免类型不匹配：

If Not foundcell Is Nothing Then
    ' 用.Parent直接引用工作表，避免相对引用歧义
    txtclienteopl.Value = CStr(.Parent.Cells(foundcell.Row, 3).Value)
    txtmatricula2.Value = CStr(.Parent.Cells(foundcell.Row, 12).Value)
Else
    txtclienteopl.Value = ""
    txtmatricula2.Value = ""
End If

2. 处理特殊错误值 #

若目标单元格可能存在错误值（如公式返回的#N/A），先判断再赋值，避免转换失败：

If Not foundcell Is Nothing Then
    ' 处理C列值
    If Not IsError(.Parent.Cells(foundcell.Row, 3).Value) Then
        txtclienteopl.Value = CStr(.Parent.Cells(foundcell.Row, 3).Value)
    Else
        txtclienteopl.Value = "数据异常"
    End If
    ' 处理L列值
    If Not IsError(.Parent.Cells(foundcell.Row, 12).Value) Then
        txtmatricula2.Value = CStr(.Parent.Cells(foundcell.Row, 12).Value)
    Else
        txtmatricula2.Value = "数据异常"
    End If
Else
    txtclienteopl.Value = ""
    txtmatricula2.Value = ""
End If

3. 排查共享文件环境问题 #

• 确认同事的Excel版本与文件保存版本一致，避免格式兼容问题。
• 让同事关闭文件后重新从共享磁盘打开，清除本地缓存确保数据同步。

内容的提问来源于stack exchange，提问作者André Lopes