Excel VBA运行时错误91（Object not set）编译为DLL后触发问题咨询

问题成因 #

运行时错误91的核心是访问了未初始化的对象变量，原始VBA环境不会触发是因为VBA原生运行时做了大量隐形容错、自动初始化处理，编译为DLL+代码混淆后这些隐形逻辑被破坏，触发了隐藏的问题：

1. 窗体默认实例自动初始化失效：你调用frmDateTimePicker.SelectedDateTime时直接使用了窗体的默认实例，原生VBA会在访问默认实例时自动完成实例化，但vbacompiler编译混淆后会破坏默认实例的自动创建逻辑，导致frmDateTimePicker本身是Nothing，访问其成员就会报91。
2. 可选参数未做非空校验：SelectedDateTime方法的Target_Control是可选对象参数，调用时未传参的情况下参数默认值为Nothing，原生环境下TypeName(Nothing)会返回"Nothing"不会报错，但部分编译工具混淆后对Nothing对象的TypeName访问会触发异常。
3. 类型不匹配的隐形风险：ResultString被定义为Date类型，但SelectedDateTime返回的是String类型，原生VBA会做隐式转换，编译后部分场景下转换失败会连带触发对象访问异常。
4. 全局对象/常量引用失效：如果WhatsAppMsg是工作表CodeName、F1_DateToSend是全局列号常量，混淆过程中可能会修改这些标识的内部引用，导致WhatsAppMsg.Range()返回Nothing，后续访问也会触发91。

解决方法 #

• 手动实例化窗体，禁止使用默认实例：修改调用窗体方法的代码，手动创建、销毁窗体实例：

Public Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ResultString As String ' 类型和返回值统一，避免隐式转换
  'Open DateTimePicker userform if user selects
    If Not Intersect(Target, WhatsAppMsg.Range(F1_DateToSend & "4:" & F1_DateToSend & 9999)) Is Nothing Then
        If Target.CountLarge > 30 Then Exit Sub
        ' 手动实例化窗体，不要用默认的frmDateTimePicker实例
        Dim pickerForm As frmDateTimePicker
        Set pickerForm = New frmDateTimePicker
        ResultString = pickerForm.SelectedDateTime
        Set pickerForm = Nothing ' 手动释放实例
        If VBA.Len(ResultString) > 10 Then
               Selection.Value = ResultString
               Selection.Font.Color = vbBlack
        End If
    End If
End Sub

• 给可选参数加非空校验，明确默认逻辑：修改SelectedDateTime方法开头的判断，先校验参数是否为Nothing：

Public Function SelectedDateTime(Optional ByVal Target_Control As Object = Nothing) As String
    Dim str As String
    ' 先判断参数是否为Nothing，再做类型判断
    If Not Target_Control Is Nothing Then
        If (VBA.TypeName(Target_Control)) = "TextBox" Or VBA.TypeName(Target_Control) = "Range" Then 
            str = Target_Control.Value
        ElseIf (VBA.TypeName(Target_Control)) = "CommandButton" Or VBA.TypeName(Target_Control) = "Label" Then 
            str = Target_Control.Caption
        End If
    End If
    If VBA.IsDate(str) Then
        Me.TextBox1.Value = VBA.Format(VBA.CDate(str), "dd/mm/yy")
    Else
        Me.TextBox1.Value = VBA.Format(VBA.Date, "dd/mm/yy")
    End If
    Me.Show
    ' 输出部分也加非空校验
    If Not Target_Control Is Nothing Then
        If (VBA.TypeName(Target_Control)) = "TextBox" Or VBA.TypeName(Target_Control) = "Range" Then
             Target_Control.Value = Me.TextBox1.Value
        ElseIf (VBA.TypeName(Target_Control)) = "CommandButton" Or TypeName(Target_Control) = "Label" Then
             Target_Control.Caption = Me.TextBox1.Value
        End If
    Else
        SelectedDateTime = Me.TextBox1.Value
    End If
    Unload Me ' 主动关闭窗体避免残留
End Function

• 替换CodeName/全局常量为显式引用：如果WhatsAppMsg是工作表CodeName，替换为ThisWorkbook.Worksheets("你的工作表实际名称")的显式引用；如果F1_DateToSend是全局常量，直接替换为对应的列号字符串（比如"A"），避免混淆修改标识引用。
• 临时关闭混淆测试定位具体问题：先禁用vbacompiler的代码混淆功能编译测试，如果错误消失说明是混淆修改了某个对象/变量标识导致的，把相关变量、窗体、工作表名称添加到混淆工具的排除名单里即可。

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