Thema Datum  Von Nutzer Rating
Antwort
09.01.2024 09:03:01 Jens
NotSolved
09.01.2024 11:11:34 Gast72537
NotSolved
09.01.2024 11:54:03 Jens
NotSolved
09.01.2024 20:44:09 Gast86104
NotSolved
Rot XML-Datei auslesen
10.01.2024 07:40:05 Jens
NotSolved
12.01.2024 16:13:47 Jens
NotSolved
15.01.2024 15:07:49 Jens
NotSolved
15.01.2024 15:56:09 Mase
NotSolved
16.01.2024 07:08:17 Jens
NotSolved
18.01.2024 09:06:42 Jens
NotSolved
18.01.2024 10:44:17 Mase
NotSolved
18.01.2024 12:06:58 Jens
NotSolved
18.01.2024 13:24:26 Mase
NotSolved
18.01.2024 12:43:44 Gast60342
NotSolved
18.01.2024 14:01:54 Jens
NotSolved

Ansicht des Beitrags:
Von:
Jens
Datum:
10.01.2024 07:40:05
Views:
1135
Rating: Antwort:
  Ja
Thema:
XML-Datei auslesen

Sorry mein Fehler, hätte ich genauer beschreiben sollen.

Bei 

Sub XMLParser3()
    Dim xDoc As New MSXML2.DOMDocument60
    Dim nodesAllNeeded As Variant
    Dim nodeOneNeeded As Variant
     
    Set xDoc = New MSXML2.DOMDocument60
     
    With xDoc
        .async = False
        .validateOnParse = True
         
        If xDoc.Load("C:\Beispiel.xml") = False Then
            Debug.Print .parseError.reason, .parseError.ErrorCode
            Exit Sub
        End If
         
        Set node = xDoc.getElementsByTagName("renderedResult")
        For Each nodeOneNeeded In nodesAllNeeded
            'Ausgabe im Direktfenster
            'In der VBA IDE aufrufen mit Strg + G
            Debug.Print nodeOneNeeded.getAttribute("concentration")
        Next nodeOneNeeded
    End With
End Sub

Bekomme ich die Meldung "Typen unverträglich"

 

Bei

Sub XMLParser3()
    Dim xDoc As New MSXML2.DOMDocument60
    Dim nodesAllNeeded As Object
    Dim nodeOneNeeded As Object

     
    Set xDoc = New MSXML2.DOMDocument60
     
    With xDoc
        .async = False
        .validateOnParse = True
         
        If xDoc.Load("C:\Users\beilstein\Desktop\Test.xml") = False Then
            Debug.Print .parseError.reason, .parseError.ErrorCode
            Exit Sub
        End If
         
        Set node = xDoc.getElementsByTagName("renderedResult")
        For Each nodeOneNeeded In nodesAllNeeded
            'Ausgabe im Direktfenster
            'In der VBA IDE aufrufen mit Strg + G
            Debug.Print nodeOneNeeded.getAttribute("concentration")
        Next nodeOneNeeded
    End With
End Sub

Kommt die Meldung "Objekt erforderlich"


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.01.2024 09:03:01 Jens
NotSolved
09.01.2024 11:11:34 Gast72537
NotSolved
09.01.2024 11:54:03 Jens
NotSolved
09.01.2024 20:44:09 Gast86104
NotSolved
Rot XML-Datei auslesen
10.01.2024 07:40:05 Jens
NotSolved
12.01.2024 16:13:47 Jens
NotSolved
15.01.2024 15:07:49 Jens
NotSolved
15.01.2024 15:56:09 Mase
NotSolved
16.01.2024 07:08:17 Jens
NotSolved
18.01.2024 09:06:42 Jens
NotSolved
18.01.2024 10:44:17 Mase
NotSolved
18.01.2024 12:06:58 Jens
NotSolved
18.01.2024 13:24:26 Mase
NotSolved
18.01.2024 12:43:44 Gast60342
NotSolved
18.01.2024 14:01:54 Jens
NotSolved