Anzeige
Archiv - Navigation
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Importieren von bestimmten Daten aus XML Datei

Importieren von bestimmten Daten aus XML Datei
23.01.2019 12:21:36
bestimmten
Hallo Leute,
ich hab seit Tagen ein Problem, dass ich relativ unschön gelöst habe.
Undzwar habe ich eine XML-Datei (bzw. mehrere, die immer gleich aufgebaut sind)
dann kommen da einige Zeilen wie , etc
Dann kommt

1x11, 1x22, 1x33, 1x01, 1x08, 1x05,
1x02, 1x03, 1x43, 1x02, 1x08, 1x03,
.....

es sind immer 160 Daten, was ich erreichen will: die Werte hinter dem x jeweils in Excel einfügen, ein Wert pro Zelle (untereinander), die ersten drei Werte aber nicht mitkopieren.
Meine bisherige Lösung: XML-Datei in Textdatei umwandeln, über Notepad++ per Macro alles außer die Werte entfernen, diese dann untereinander schreiben lassen (also
01
08
05 ....)
und dann die ersten 3 Zeilen löschen.
Dann über VBA als Textdatei in meine Excel-Datei einfügen...
Gibts da abhilfe?
Mit freundlichen Grüßen
Simon

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Importieren von bestimmten Daten aus XML Datei
23.01.2019 12:43:01
bestimmten
Hola,
verlinkst du bitte deine Fragen in den verschiedenen Foren gegenseitig?
Danke.
Gruß,
steve1da
AW: Importieren von bestimmten Daten aus XML Datei
23.01.2019 12:56:20
bestimmten
Hallo
Kanst Du die XML Datei hochladen?
AW: Importieren von bestimmten Daten aus XML Datei
23.01.2019 13:14:52
bestimmten
https://www.herber.de/bbs/user/127020.txt
Hier bitte.
Als txt, weil ich keine xml hochladen konnte :)
Anzeige
AW: Importieren von bestimmten Daten aus XML Datei
23.01.2019 13:46:56
bestimmten
Hallo
Sub ReadXml()

  Dim FileName As String
  Dim InString As String
  Dim MyErg(200) As String
  Dim MySplit() As String
  Dim cc As Long
  Dim i As Long
  
  cc = 1
  
  FileName = "C:\Users\....\Neu1.xml"  'Anpassen 
  Open FileName For Input As #1
  Do While Not EOF(1)
    Line Input #1, InString
    If Mid(InString, 1, 2) = "1x" Then
      MySplit = Split(InString, ",")
      For i = Lbound(MySplit) To Ubound(MySplit)
        MyErg(cc) = Replace(MySplit(i), "1x", "")
        If MyErg(cc) <> "" Then cc = cc + 1
      Next i
    End If
  Loop
  Close #1
  For i = 4 To cc
    Worksheets("Tabelle2").Cells(i - 3, 1).Value = "'" & MyErg(i)  ' Anpassen 
  Next i
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0


Anzeige
AW: Importieren von bestimmten Daten aus XML Datei
23.01.2019 14:09:33
bestimmten
Mega, vielen Dank!!
Danke dir!
Hätte noch eine Frage, habe das selbe Problem mit dem gleichen Aufbau und den selben "Regeln", nur mit 0x anstatt 1x. Ich dachte, wenn ich das in der VBA ändere reicht das, aber wenn ich das mit 0x mache scheint es nicht zu klappen, weißt du warum?
AW: Importieren von bestimmten Daten aus XML Datei
23.01.2019 14:13:43
bestimmten
Oh, ich sehe grade, dass es in dem zweiten XML-Format schon zuvor "0x" gibt.
0x00001
und einmal 0x001221

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige