Excel vba On Errorエラーに応じて異なるハンドラに移動する

Question

Excelを使用して異なるファイルを開くvbaコードがあります。ファイルが存在しないため、エラーが発生する可能性があります。私はMsgBoxを特定のファイルが存在しないというメッセージと共にこのようなエラーで作成したいと思います。

は今、私は唯一の

On Error GoTo ErrorHandler 

ErrorHandler: 
    MsgBox("File is absent") 

しかし、私は正確にファイルが存在しないかを指定することはできません。エラーハンドラを使ってそれを達成する方法はありますか？たぶんいくつかの追加変数を介して？

EDIT：私は

Workbooks.Open Filename:=... 

を介してファイルを開くしかし、私は場合は、同様に

Dim fileTitle As String 
filetitle=Dir() 

ある場合は、1つは何をすべきかについて興味があります。

Answer 1

ではなくハードコーディングを経由してファイルパスを：それは前に存在を確認してください、そして、

Dim fileName As String 
fileName = "C:/path/to/my/file.xlsx" 

：ファイルパス/名を表すために変数を使用

Workbooks.Open Filename:=... 

あなたはそれを開こうとします：

If FileIsAccessible(fileName) Then 
    ' Do stuff 
Else 
    MsgBox fileName & " doesn't exist or cannot be opened" 
    Exit Sub 
End If 

Function FileIsAccessible(path$) As Boolean 
    Dim FF As Long 
    On Error GoTo EarlyExit 
    FF = FreeFile 

    'Does file exist? 
    ' Raises Error 53 if file not found 
    Open path For Input Access Read As FF 
    Close FF 

    'If file exist, is it accessible? 
    ' Raises error 70 if file is locked/in-use 
    FF = FreeFile 
    Open path For Binary Access Write As FF 
    Close FF 

EarlyExit: 
FileIsAccessible = (Err.Number = 0) 
End Function 

Answer 2

これについては2つの方法があります。まず、提案したように（2つの方が簡単です）、各ファイルが正常に読み込まれた後に再割り当てするファイル名を持つ変数を作成できます。その名前は、失敗した場合にメッセージボックスに渡すことができます。この名前を渡すことだけが必要な場合は、これがより良い解決策です。

2番目のオプションは、複数のエラーハンドラを作成することです。エラーの処理方法をカスタマイズする必要がある場合は、ファイルの種類が不足しているために別のメッセージを表示したい場合にのみ、これをお勧めします。このオプションを使用すると、コードを厄介なものにすることができます（On Error GoTo ...ステートメントを複数回再割り当てする必要がありますが、より複雑なソリューションが必要な場合は考慮する価値があります）。

Answer 3

これを試して、これはエラー処理に対処するための出発点です。

あなたのデスクトップにあるabc.xlsxファイルを開こうとしていて、このファイルがデスクトップに見つからない場合は、

エラー処理ラベルの前にExit Subを使用して、ファイルが見つかった場合に実行されないようにしてください。

Dim wb As Workbook 
Dim FilePath As String 

FilePath = Environ("UserProfile") & "\Desktop\abc.xlsx" 

On Error GoTo ErrorHandler 
Set wb = Workbooks.Open(FilePath) 
'Other stuff here if file was found and opened successfully 
' 
' 
' 
' 
Exit Sub 
ErrorHandler: 
    MsgBox Err.Number & vbNewLine & Err.Description, vbCritical, "File Not Found!" 

Answer 4

ファイルエラーが起こるその中で知っているので、あなたはまだ、エラーハンドラであなたの変数へのアクセス権を持っている：

Sub ... 
    Dim filename As String 
    On Error GoTo ErrorHandler 
    filename = Dir(...) 
    While filename>"" 
     Set wb = Workbooks.Open(filename) 
     ... 
     filename=Dir 
    Wend 
    Exit Sub 
ErrorHandler: 
    MsgBox "Error " & Err.Number & ": " & Err.Description & " File: " & filename 
End Sub