Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Carvediem am April 03, 2012, 13:02:50 Nachmittag

Titel: Importbefehl starten nach Datei-auswählen/öffnen-Dialog
Beitrag von: Carvediem am April 03, 2012, 13:02:50 Nachmittag
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.
Titel: Antw: Importbefehl starten nach Datei-auswählen/öffnen-Dialog
Beitrag von: Officer am April 03, 2012, 13:10:45 Nachmittag
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
Titel: Antw: Importbefehl starten nach Datei-auswählen/öffnen-Dialog
Beitrag von: Carvediem am April 03, 2012, 15:20:22 Nachmittag
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