|
▼GG さん:
>openステートメントで
>あるテキストファイルに書き込む時に
>そのあるテキストファイルが
> すでにメモ帳やテキストエディタで開かれてたときエラーが起きます
>エラートラップかけて
>一度とじてリトライしたいのですが
エラートラップをかけ、メッセージボックスをクリックすると再開します。
他のエラーが出たときは、無視して次に進みます。
Sub test()
On Error GoTo ErrSub
Open "d:\Log.txt" For Append As #2
Print #2, Now '現在時刻を追加書き込み
Close #2
Exit Sub
'
ErrSub:
If Err.Number = 70 Then
MsgBox "ファイルを閉じてください", vbExclamation, "続行"
Resume 0 '開きなおし
Else
MsgBox Error(Err.Number), vbExclamation, "その他のエラー"
Resume Next 'とりあえずエラー行を無視して次に進む
End If
Return
End Sub
こんな感じです。
が、メモ帳で開いた状態でOutputまたはAppendしてもエラーになりませんでした(なぜ?)。
というわけで、メモ帳等で開いている場合のエラー番号と、今回トラップした番号が一致しない可能性があるので、番号と内容をチェック(ヘルプ:トラップできるエラー)してみてください。
|
|