自动化错误 - 灾难性失败 EXCEL VBA

18 浏览
0 Comments

自动化错误 - 灾难性失败 EXCEL VBA

我有一个工作簿，在打开时会出现这个错误。当我打开VBA模块时，当前行是一个子程序的定义。但唯一的选择是结束整个Excel进程。

我有自定义文档属性，我有嵌入的组合框控件，我不知道可能是什么问题，而Excel也没有提供帮助。

然而，当我在另一台电脑上打开同样的文件时，不会出现错误。

有人对这种错误有经验或建议吗？

以下是打开代码，但当错误发生时，“显示下一条语句”命令不会指向这里：

私有子工作簿打开()
    Dim ans
    If Range("currentstatus") Like "*准备年终准备*" Then
        ans = MsgBox("此工作簿已准备好进行年终准备" & vbCrLf & "您是否要开始？", vbYesNo)
        If ans = vbYes Then
            Range("Phase") = "年终"
            SheetsSet 3
        End If
    End If
    '退出子程序
    如果范围("相位") = "佣金"然后
        如果范围("currentstatus") Like "*RVP/Dept Head Approved*" Then
            ans = MsgBox("佣金已经获得RVP/Dept Head批准" & Range("applicablemonth") & vbCrLf & "您是否要输入新期间的数据？", vbYesNo + vbQuestion)
            如果ans = vbYes Then
                Range("ApplicableMonth") = 格式(DateAdd("m", 1, CVDate(Range("applicablemonth"))), "YYYY-MM")
                Range("CurrentStatus") = "准备输入数据，期间为" & Range("ApplicableMonth")
                '现在重置摘要页
                Prot False, "佣金表单摘要"
                Range("SalesPersonComplete") = Range("Summary")
                Range("RVPComplete") = ""
                Range("BrMgrComplete") = ""
                Prot True, "佣金表单摘要"
                Sheets("菜单").Select
                '                MsgBox "开始。"
            End If
        End If
    End If
结束子程序

0