1. ホーム
  2. vba

[解決済み] オートメーションエラー - 大惨事 EXCEL VBA

2022-02-19 03:21:17

質問

あるワークブックを開くとこのエラーが発生します。このエラーが発生し、VBAモジュールを開くと、現在の行はサブの定義になっています。しかし、唯一の選択肢は、Excelの全プロセスを終了させることです。

カスタムドキュメントプロパティもあるし、コンボボックスコントロールも埋め込まれているし、何が原因かさっぱりわからないし、Excelも助けてくれない。

しかし、同じファイルを別のコンピューターで開くと、エラーは発生しません。

このようなエラーについて、どなたか経験やアドバイスをお持ちの方はいらっしゃいませんか?

ここにOpenコードがありますが、エラーが発生したときに「次のステートメントを表示」コマンドはここを指しません。

````

Private Sub Workbook_Open()
    Dim ans


    If Range("currentstatus") Like "*Ready for Year-End Preparation*" Then
        ans = MsgBox("This workbook is ready for Year-End Preparation" & vbCrLf & "Would you like to begin?", vbYesNo)

        If ans = vbYes Then
            Range("Phase") = "Year-End"
            SheetsSet 3
        End If
    End If

    'Exit Sub

    If Range("Phase") = "Commissions" Then

        If Range("currentstatus") Like "*RVP/Dept Head Approved*" Then
            ans = MsgBox("Commissions have been approved for " & Range("applicablemonth") & vbCrLf & "Would you like to enter data for the new period?", vbYesNo + vbQuestion)
            If ans = vbYes Then


                Range("ApplicableMonth") = Format(DateAdd("m", 1, CVDate(Range("applicablemonth"))), "YYYY-MM")
                Range("CurrentStatus") = "Ready for Data Entry for " & Range("ApplicableMonth")

                ' now reset the summary page
                Prot False, "Commission Form Summary"
                Range("SalesPersonComplete") = Range("Summary")
                Range("RVPComplete") = ""
                Range("BrMgrComplete") = ""
                Prot True, "Commission Form Summary"

                Sheets("Menu").Select
                '                MsgBox "Begin."
            End If
        End If


    End If

End Sub

解決方法は?

これはブードゥー教の手順のようですが、このエラーが出たときに役立つのは、VBAコードを編集して(たとえば、あるモジュールで改行を追加してそれを削除する)、ワークブックを保存することです。多分、私の場合はキャッシュの問題だと思うのですが、皆さんのお役に立てるかもしれないと思いました。