Bestand sluiten dmv macro

[vrouw]

Hallo,

Ik heb in een code onderstaande staan om een bestand te sluiten als dat open staat.
Als dat bestand werkelijk open staat gaat het goed maar als het al is gesloten komt er een foutmelding.
Volgens mij mis ik nog een if then regel maar ik weet niet hoe.:shocked:

'afsluiten bestand A.csv
Application.DisplayAlerts = False
Windows("bestand A.csv").Close

 

[Haaren101]

Probeer het zo eens:

    On Error GoTo GaHierVerder
    Windows("bestand A.csv").Close
    
GaHierVerder:

Ron

 

[vrouw]

Als ik die code zo plaats krijg ik een foutmelding:

sub or function not defined

 

[Haaren101]

Dit zou het moeten zijn

   [COLOR="blue"]Hier de bestaande code[/COLOR]
   'afsluiten bestand A.csv
   Application.DisplayAlerts = False
   [COLOR="green"]On Error GoTo GaHierVerder[/COLOR]   
   Windows("bestand A.csv").Close

GaHierVerder:
   [COLOR="blue"]Hier de bestaande code[/COLOR]

Let wel op dat het label "GaHierVerder:" die : heeft op de plek waar je verder gaat.

Plaats anders hier je code of een deel van je code.

Ron

 

[Warme bakkertje]

Sub FileAlreadyOpen()
Dim f As Integer
    f = FreeFile
    On Error Resume Next
    Open "[COLOR="red"]Volledig pad naar bestand[/COLOR]\bestand A.csv" For Random Access Read Write Lock Read Write As #f
    Close #f
    If Err.Number <> 0 Then
        Windows("bestand A.csv").Close
    Else
        MsgBox "Fout #" & Str(Err.Number) & " - " & "bestand is gesloten"
        Err.Clear
    End If
    On Error GoTo 0
End Sub

 

[vrouw]

Bedankt, zo kom ik er helemaal uit.:thumb: