嘿，这个坑我之前踩过！你遇到的错误完全是因为ActiveWorkbook在Workbook_Open事件触发的时机还没准备好——Excel刚触发这个事件时，当前工作簿可能还没被设为“激活”状态，这时候调用ActiveWorkbook.FullName就相当于引用了一个不存在的对象，自然会抛出错误91（对象变量未设置）。

最简单的修复方案：用ThisWorkbook替代ActiveWorkbook #

ThisWorkbook是VBA里的内置对象，它始终指向包含这段代码的工作簿，不管这个工作簿是不是当前激活的状态。在Workbook_Open事件触发时，这个对象已经完成初始化，绝对不会返回Nothing。

修改后的代码如下：

Private Sub Workbook_Open()
    Dim name As String
    name = ThisWorkbook.FullName
    If InStr(name, "Export Checksheet") > 0 Then
        UserForm1.Show
    End If
End Sub

为什么之前手动测试没问题？ #

当你手动打开文件后再运行代码，此时工作簿已经完全加载并激活，ActiveWorkbook能正确指向它，所以不会报错。但自动启动时，事件触发的时机更早，ActiveWorkbook还没被赋值，就出问题了。

备选方案：延迟执行（如果需要更灵活的时机） #

如果你因为某些原因必须用ActiveWorkbook，可以用Application.OnTime把用户窗体的显示推迟几秒，确保文件完全加载：

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:02"), "ShowUserFormWhenReady"
End Sub

Sub ShowUserFormWhenReady()
    Dim name As String
    name = ActiveWorkbook.FullName
    If InStr(name, "Export Checksheet") > 0 Then
        UserForm1.Show
    End If
End Sub

不过这个方案不如用ThisWorkbook可靠，毕竟延迟时间可能因文件大小、Excel性能而变化。

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