GetOpenFilename (Excel macro)

[Verberkmoes]

Ik wil de dialoog box GetOpenFile een andere titel geven dan "Open"
(bijvoorbeeld "Open een xxxxx bestand).

Ik gebruik de volgende instructie.

myfile = Application.GetOpenFilename("All Files, *.*")
If myfile = False Then
MsgBox "U moet een DD_xxxx.RND bestand selecteren!", vbOKOnly, "Attentie!"
Exit Sub
End If

Wat moet ik aan de eerste regel toevoegen om dit voor elkaar te krijgen.
Het lukt me niet.

Alvast bedankt en een prettig weekend,

Groeten,
Bert Verberkmoes

 

[Wigi]

Bert

Typ GetOpenFilename, en druk F1...

Wigi

 

[Verberkmoes]

Bedankt, maar het lukt nog niet

Hallo,
Ik heb dit al geprobeerd maar het lukte niet.
Ik kreeg of een foutmelding of de naam van de dialoog box bleef gewoon "Open".
Ik denk dat ik toch een fout in de instructie maak. Ik heb verschillende dingen geprobeerd maar het lukt niet.
Groeten,
Bert

 

[Wigi]

Zet hier dan die instructie, tussen code tags: selecteer je code en klik op #.

 

[Verberkmoes]

Sorry, maar ik begrijp niet wat je bedoelt.
Bert

 

[Wigi]

Wat heb je al geprobeerd? Waarvan denk je dat dat er het dichtste bij moet zijn?

Ik heb dit al geprobeerd maar het lukte niet.
Ik kreeg of een foutmelding of de naam van de dialoog box bleef gewoon "Open".
Ik denk dat ik toch een fout in de instructie maak. Ik heb verschillende dingen geprobeerd maar het lukt niet.

 

[Wigi]

Dim myfile
myfile = Application.GetOpenFilename(, , "De nieuwe titel")

meer is het echt niet. Alternatief:

Dim myfile
myfile = Application.GetOpenFilename(title:="De nieuwe titel")

Wigi

 

[Verberkmoes]

Bedankt

Bedankt, ik ben hier erg mee geholpen.
Groeten,
Bert

 

[Wigi]

Graag gedaan.

En begrijp je nu ook wat er veranderd moet worden, of waarom er 2 komma's staan in de eerste oplossing?

 

[Verberkmoes]

Ja, dat begrijp ik.
Ik heb de tweede oplossing gebruikt.
Normaals bedankt,
Groeten,
Bert