Office: xml datei importieren

Hallo experten
Ich benutze Excel 2010

Die manuelle variante

1. Daten , aus anderen Quellen , vom xml-Daten import
2. Datenquelle auswählen
3. Dateiname wählen ( z.b. user_10985_user.xml )
4. Auf Tabelle 3 ab A1 anzeigen

Funktioniert soweit!

Nun hätte ich es gerne, dass ich durch eine Inputbox einfach nur die Zahl z.b.
10985 eingebe und das Makro dann auf C:\Test nach einer user_10985_user.xml
Sucht und es in der Tabelle3 ab A1 importiert

Weil die Bezeichnung vor und nach den Zahlen immer identisch bleibt
z.b. user_10986_user.xml
user_10987_user.xml
und so weiter

Danke im Voraus

Viele Grüße Kurt

 

Moinsens!

Ich würde folgende Herangehensweise versuchen:

a) Zunächst zeichnest Du mit dem Makro-Recorder mal den regulären Import der Datei auf.

b) Im VBA-Editor hast Du dann die Aufzeichnung normalerweise im "Modul1" als "Makro1" vorliegen. Dort wirst Du in einer der Parameter-Zeilen auch den Dateinamen wiederfinden. Den gilt es jetzt, variabel zu gestalten.

Wenn Du da also sowas wie

Code:

"[...][COLOR=#0000cd]C:\test\user_12345_user.xml[/COLOR]"

findest, müßte daraus sowas in der Art wie

Code:

"[...][COLOR=#0000cd]C:\test\user_[/COLOR][COLOR=#ff0000]" & Nummer & "[/COLOR][COLOR=#0000cd]_user.xml[/COLOR]"

werden.

c) Jetzt mußt Du nur noch die "ComboBox" (in welcher Form auch immer) und einen Button "Import" unterbringen. Die ComboBox ist im einfachsten Fall die Nachschlage-Combo der Gültigkeitsüberprüfung. Der Button (ActiveX-Control) bekommt dann als Click-Ereignis die Aufgabe, den Wert der ComboBox auszulesen und die eigentliche Import-Routine, die Du ja vorher aufgezeichnet hast, aufzurufen und dabei den User als Parameter zu übergeben.

Zunächst muß dazu im aufgezeichneten Makro die Zeile

Code:

Sub Makro1()

in

Code:

Sub ImportXml( Nummer as String )

geändert werden.

Und im Button1_Click(xxx) Ereignis, was Du normalerweise dann (nach einem Doppelklick auf den Button im Entwurfsmodus) im Source von z.B. "Tabelle1" findest passiert dann eigentlich nur noch:

Code:

Sub ...
    Dim S as String
    S = Trim$(Worksheets("[COLOR=#ff0000]Tabelle1[/COLOR]").Range("[COLOR=#ff0000]C3[/COLOR]").Value)
    ImportXml
End Sub

Das wäre jetzt mal so mein erster Gedanke. Zu verfeinern gibt's da noch einiges, wie z.B. ob der Import nicht vielleicht auf ein neu erstelltes Blatt passieren soll. Ansonsten führt das "Query.Add(..." bei mehrmaligem Drücken des Buttons zu Problemen. Alternativ könnte man vor dem Import dafür sorgen, daß die bestehende Query vom Blatt entfernt wird.

Gruß, Michael

 

Hallo Michael
Danke für die schnelle Hilfe werde es am Wochenende mal probieren ob ich es soweit hinkriege :)

Mit freundlichen grüßen
Kurt

 

Hallo Michael

Ich kriege es einfach nicht hin, kannst du mir helfen

die Test Datei füge ich als anhang bei

Mfg
Kurt

 

Hallo Profis kann mir den keiner helfen ?

mein Problem konnte ich immer noch nicht lösen

Mfg Kurt

 

Moinsens!

Ähm, naja... In Deinem Upload sehe ich irgendwie nicht mal ansatzweise einen Versuch von Dir, es zu realisieren. Das aufgezeichnete Makro1 ist so ziemlich alles:

Code:

Sub Makro1()
    ActiveWorkbook.XmlImport URL:="F:\Excel_Test\auftrag_ser" & Nummer & "_ready.xml", _

Also was genau hast Du denn bislang versucht und was hat dabei nicht funktioniert?

Gruß, Michael

 

Hola,

hier wird auch darüber diskutiert:

http://www.clever-excel-forum.de/thread-1251.html

Gruß,
steve1da