タイトル : Re^7: VBからExcel起動でファイルを開く 投稿日 : 2010/06/15(Tue) 20:19 投稿者 : はち
> > > ここの部分は、On Error Resume Nextを、ここの部分は、On Error Goto 〜を使う > > > といった使い分けができるのですか。 > > > > 聞くよりご自分で試した方が早いですよ。 > > 又は、ヘルプを確認するとか? > > > > 少なくても、ご自分で試した結果を質問するようにして下さい。 > ありがとうございます。 以下の様にしたら上手く動きました。この様な考え方になるのでしょうか。 On Error GoTo ErrHandle 処理1 On Error GoTo 0 On Error Resume Next If Len(Dir$(strExcelFile)) <> 0 Then Name strExcelFile As strExcelFile If Err.Number Then MsgBox "ファイルが使用中です。処理を終了します。" Err.Clear Exit Sub End If End If On Error GoTo 0 On Error GoTo ErrHandle 処理3 On Error GoTo ErrHandle エラー処理 End Sub |