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

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

Titel: Office 2007: Importbefehl aufrufen per VBA
Beitrag von: Carvediem am April 02, 2012, 14:28:03 Nachmittag
Kann mir jemand helfen: Ich möchte eine Datei per Msgbox aufrufen und per Importbefehl in ein Tabellenblatt einlesen. Das Tabellenblatt ist bereits zum Import vorbereitet. Per Hand funktioniert der Import auch.

Wie öffne ich das Fenster per VBA und wähle dann die fragliche Datei aus, die dann per VBA über den Importbefehl eingelesen wird? Mir fehlt hierzu die Befehlszeile. Alles, was ich versuche, klappt einfach nicht. Was ist hier falsch:

Code: Text
  1. Sub A()
  2. Sheets("Wegpunkte").Range("A2:Z64000").Clear
  3. Dim strfile As String
  4. strfile = ActiveWorkbook.XmlMaps("gpx_Zuordnung").Import
  5. MsgBox (strfile)
  6. End Sub
  7.  
Titel: Antw:Office 2007: Importbefehl aufrufen per VBA
Beitrag von: Officer am April 02, 2012, 14:42:30 Nachmittag
Hallo Carvediem,

meinst Du in etwa so?

Code: Visual Basic
  1. Dim strPaht As Variant
  2. strpath = Application.GetOpenFilename
  3. If strpath = False Then Exit Sub
  4. MsgBox strpath
  5. '** hier der Code für den Import
  6.  
  7.  

Gruß

Officer
Titel: Office 2007: Antw:Office 2007: Importbefehl aufrufen per VBA
Beitrag von: Carvediem am April 02, 2012, 15:35:42 Nachmittag
Hi Officer,

es ist eigentlich noch einfacher, denn ich benötige überhaupt keinen Code zum Import. Ich brauche nur nach dem Aufrufen der zu importierenden Datei die Ausführung des Menü-Befehls "Importieren". Da das Worksheet schon vorbereitet ist, reicht das. Was mir also fehlt, ist die Befehlszeile für den Aufruf des "Importierens".

Wenn ich das über den Makro-Recorder versuche, kommt dies heraus:
Code: Text
  1. ActiveWorkbook.XmlMaps("gpx_Zuordnung").Import URL:= _
  2.         "D:\My Dropbox\EIGENE TEXTE\Ski\Touren\waypoints_wetterkreuzkogel.gpx"
  3.  

Statt des Pfads, der in VBA eingetragen ist, möchte ich diesen Pfad über das von dir vorgeschlagene Fenster auswählen.