[解決済み] オートメーションエラー - 大惨事 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コードを編集して(たとえば、あるモジュールで改行を追加してそれを削除する)、ワークブックを保存することです。多分、私の場合はキャッシュの問題だと思うのですが、皆さんのお役に立てるかもしれないと思いました。
関連
-
[解決済み] OutlookでVBAスクリプトを実行しようとすると、「SubまたはFunction not defined」と表示される。
-
[解決済み] Excel VBA "レンジクラスのオートフィルメソッドに失敗しました"
-
[解決済み] オートメーションエラー - 大惨事 EXCEL VBA
-
[解決済み] VBAを使用してExcelシートの空白でない列の数を求めることができます。
-
[解決済み] あるディレクトリから別のディレクトリにファイルをコピーするVBA
-
[解決済み] Microsoft Officeをインストールせずに、C#でExcel(.XLSおよび.XLSX)ファイルを作成するにはどうすればよいですか?
-
[解決済み] Microsoft Excelで正規表現(Regex)をセル内とループの両方で使用する方法
-
[解決済み] Excel VBA Projectのパスワードを解読する方法はありますか?
-
[解決済み】Office VBA Editorでコードのブロックにコメントやアンコメントを付ける方法
-
[解決済み】Excel VBAでSelectを使用しないようにする方法
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み】VBA。ランタイム1004を取得する。オブジェクト'_Worksheet'のメソッド'Range'は、セルを使用するときに失敗しました。
-
[解決済み】Excel VBAのByRef引数の型の不一致
-
[解決済み] Excel VBA "レンジクラスのオートフィルメソッドに失敗しました"
-
[解決済み] プロパティの無効な使用 vba クラス
-
[解決済み] コンパイルエラーです。Forがない場合は次へ|VBA
-
[解決済み] <>とはどういう意味ですか?
-
[解決済み] FormulaR1C1 の機能は何ですか?
-
[解決済み] Accessからレポートを自動でメール送信
-
[解決済み] VBAでエラー時のGOTOステートメント
-
[解決済み] あるディレクトリから別のディレクトリにファイルをコピーするVBA