2015年 01月 31日
エラー処理の終了 On Error GoTo 0
【参考コード】(修正版)
On Error Resume Next
Open "C:\Book1.xls" For Append As #1
Close #1
If Err.Number > 0 Then
MsgBox "ファイルは使用中です"
On Error GoTo 0
Else
(ここに実行したいコードを記述します)
End If
とした方が後々のことを考えると賢明だろう。(実際にこのコードに修正してみたところ、隠れていたエラーを発見し修正することができた)