Macro - ChDir

Prøv at rette

    If sFindFile = "False" Then

til

    If sFindFile = False Then

begge steder. Alternativt kan du skrive

    If Not sFindFile Then

Hvis overstående er hele funktionen, tjener de 3 x "Exit Function" ikke noget formål, så dem kan du godt slette.

Strengt taget kunne du også ændre

Public Function sFindFile(Optional ByVal sSti As String) As String

til

Public Function sFindFile(Optional ByVal sSti As String) As Variant

da resultatet jo både kan være String og Boolean.

Mange tak for dine råd, men du besvarer ikke spørgsmålet!
Hvorfor virker ChDir kun første gang efter Excel er blevet åbnet?

Det virker ikke helt efter hensigten hvis du indsætter en Not validering på en string eller rettere sagt en sti og fil henvisning så får du en fejl 13. Så den med not virker ikke helt!

Det er ikke fordi jeg forsøger at undgå dit spørgsmål. Jeg havde sådan set håbet at mit første svar, var en besvarelse af dit spørgsmål. Det kan jeg så forstå ikke er tilfældet.

Not skulle vel virke, hvis de laver funktionen om til Variant.

Jeg har ingen problemer således her:

Sub Testing()
    FindFile "C:\My Documents\Development\TechnicalSalesTools\Development\"
    FindFile "C:\My Documents\Development\TechnicalSalesTools\"
    FindFile "C:\My Documents\Development\"
    FindFile "C:\My Documents\Development\TechnicalSalesTools\Development\"
    FindFile "C:\My Documents\Development\TechnicalSalesTools\"
    FindFile "C:\My Documents\Development\"
End Sub

Public Function FindFile(Optional ByVal sSti As String) As String
    Dim sRetVal As String
   
    If sSti <> "" Then
        If Dir(sSti, vbDirectory) <> "" Then
            ChDir sSti
        End If
    End If
   
    sRetVal = Application.GetOpenFilename
   
    If Not (CBool(sRetVal)) Then
       
        If MsgBox("Der blev ikke valgt nogen fil. Vil du prøve igen?", vbYesNo) = vbYes Then
          sRetVal = Application.GetOpenFilename
         
          If Not (CBool(sRetVal)) Then
              MsgBox ("Der blev ikke valgt nogen fil, derfor afbrydes programmet!")
              GoTo FoundNothing
          End If
         
          GoTo FoundNothing
        End If
       
        GoTo FoundNothing
    End If
   
    GoTo Finito
   
FoundNothing:
    sRetVal = ""

Finito:
    FindFile = sRetVal
End Function

Ja, det virker fordi du ikke skifter drev. Så det jeg egentlig gerne ville have spurgt om hvorfor virker ChDir ikke når man skifter drev?

Spørgsmålet lukkes - da ingen har svaret