Importbefehl starten nach Datei-auswählen/öffnen-Dialog

[Carvediem]

Hallo, ich habe bereits gestern diese Frage gepostet, vermute allerdings, dass ich mein Anliegen nicht klar genug geschildert habe, da ich keine Antwort hier erhalten konnte.

Ich möchte den Menü-Befehl "Importieren" über eine VBA-Routine durchführen. Es soll so funktionieren, dass zunächst ein Datei-auswählen/öffnen-Dialog startet, bei dem ich die zu importierende Datei auswähle und dann, nach Auswahl der Datei (OK-Knopf), die Datei in ein hierfür vorbereitetes Worksheet importiert wird.

Per Hand funktioniert das einwandfrei. Wenn ich die Prozedur mit dem Makrorecorder aufzeichne, entsteht dies:

Code: Text

1. Sub Import()
2.     ActiveWorkbook.XmlMaps("gpx_Zuordnung").Import URL:= _
3.         "D:\My Dropbox\EIGENE TEXTE\Ski\Touren\waypoints_Marschtabelle.gpx"
4. End Sub
5.  

Den Path möchte ich also im Dialog bei Aufruf des Makros auswählen können. Kann mir jemand hierzu helfen. Alles, was ich versuche, scheitert immer.

[Officer]

Hallo Carvediem,

versuch es mal mit diesem Code.

Code: Visual Basic

1. Sub import()
2. strpath = Application.GetOpenFilename
3. ActiveWorkbook.XmlMaps("gpx_Zuordnung").import URL:=strpath
4. End Sub
5.  

Gruß

Officer

[Carvediem]

Hi Officer,
so einfach (!) - das war's. Ich habe gestern alles Mögliche probiert und immer nur Fehlermeldungen erhalten.
Herzlichen Dank für die Hilfe,
Alexander