Dim vntFilename As Variant
'...
vntFilename = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If vntFilename = False Then Exit Sub 'Nutzer hat abgebrochen
If Not xmlDoc.Load(vntFilename) Then
'...
Wenn du dir in der Hilfe GetOpenFilename ansiehst, wirst du sehen das dies dir einen String zurück gibt (oder False, wenn abgebrochen wurde). Dieser String ist dann der komplette Dateipfad und diesen übergibst du dann an die Load-Methode des DOMDocuments anstatt des festen Dateipfades.
|