Office 2007: Importbefehl aufrufen per VBA

[Carvediem]

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.  

[Officer]

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

[Carvediem]

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.