Excel VBAで、

Excel VBAで、 Set aInputWorkbook = Workbooks.Open(Filename:=mInputFileName, ReadOnly:=True) この文をエラーチェックして独自のエラーメッセージを出したいんですけど、どうすれば、いいですか? よろしくお願いいたします。

Visual Basic11閲覧

ベストアンサー

0

どういうエラーを想定しているか知りませんが、ブックが開かれていなかったらとすれば、 Sub test() Dim mInputFileName As String Dim aInputWorkbook As Workbook On Error Resume Next Set aInputWorkbook = Workbooks.Open(FileName:=mInputFileName, ReadOnly:=True) On Error GoTo 0 If aInputWorkbook Is Nothing Then MsgBox "ここに独自のメッセージ" Exit Sub End If End Sub

ThanksImg質問者からのお礼コメント

いつもお世話になっております。(^▽^)/ きょうもありがとうございました。(*´ε`*)チュッチュ

お礼日時:9/28 9:08