Opgelost probleem met opslaan via vba

[glda19]

Hi

Als ik in het vb in het dialoog venster bewaren bij overschrijven op nee klik en dan een andere naam geef dan gaat het fout in de onderstaande regel type komen niet overeen.
de regel staat in de module MpdfMaken in de functie pdf.
Of wat is je correcte wijze om het bestand op te slaan via save dialoog venster

' Handle cancel
             If TypeName(StrPathFile) = "boolean" Then Exit Function

 

[AHulpje]

Wijzig

Dim StrPathFile As Variant

in

Dim StrPathFile As String

 

[glda19]

Thx maar er zit nog een klein probleempje in.
Doe eens een en dan annuleren. Dan gaat hij die opslaan als onwaar

Deze gewijzigd

If (StrPathFile) = "boolean" Then Exit Function

in

 If StrPathFile = False Then Exit Function

 

[Warme bakkertje]

Daarom staat StrPathFile gedeclareerd als Variant.
Omdat deze zowel een String (bij een correcte naam) als een Boolean (bij Cancel) moet kunnen houden.

' Handle cancel
    If StrPathFile = False Then Exit Function

 

[glda19]

gaat fout bij deze code bij het kiezen van andere naam

 If StrPathFile = False Then Exit Function

 

[glda19]

waarom werkt het wel als variant en niet als string

Wijzig

Dim StrPathFile As Variant

in

Dim StrPathFile As String

Onder staande code geeft type komen niet overeen als ik dim as string doe.

 Handle cancel
             If StrPathFile = false Then Exit Function

 

[HSV]

Deze regel,....

If (StrPathFile) = "boolean" Then Exit Function

........ zal ook nooit naar de 'Exit Function' gaan.
Maak maar eens een MsgBox aan met:

MsgBox Typename(strPathFile)

Dan moet je het wel zien.

 

[Warme bakkertje]

Deze doet mi wat ie moet.

 

[glda19]

Deze regel,....

If (StrPathFile) = "boolean" Then Exit Function

........ zal ook nooit naar de 'Exit Function' gaan.
Maak maar eens een MsgBox aan met:

MsgBox Typename(strPathFile)

Dan moet je het wel zien.

Msgbox geeft een Boolean weer

 

[HSV]

Inderdaad; met een hoofdletter dus.

 

[glda19]

Weer wat bij geleerd.Dat namen van zoals Boolean, False steeds met hoofdletter moeten geschreven worden.
Onder staande code werkt als False zo staat en

Dim  StrPathFile as String

Handle cancel
             If StrPathFile = false Then Exit Function

[