1

私はファイルを作成するVBAコードを持っており、ファイルが閉じるときに何かが起こった場合に備えてエラー処理ルーチンを用意する必要があります（実際に開いている場合）。

ファイルが開いていて、＃Fを 閉じる前に、または実際に作成される前にクラッシュした場合。

Sub test1()
On Error GoTo Err

    Dim rs As DAO.Recordset
    Dim F As Integer

    F = FreeFile

    Open "C:\MYFILE.TXT" For Output As #F

    ' My code that does lots of stuff...

    If Not rs Is Nothing Then rs.Close
    Close #F

Exit_Sub:
    Set rs = Nothing
    Exit Sub
Err:
    MsgBox Err.Description
    Resume Exit_Sub 

End Sub
4

1 に答える 1

3

この部分を変更します

Exit_Sub:
    Set rs = Nothing
    Exit Sub

に

Exit_Sub:
    On Error Resume Next
    Close #F
    On Error GoTo 0
    Set rs = Nothing
    Exit Sub

Close #Fそして、それが以前だった場所から削除します...

于 2012-05-14T21:35:25.533 に答える