If statement mit <>
20.08.2019 17:38:50
Tom
ich habe ein Makro geschrieben, der alle Arbeitsblätter durchlaufen soll und wenn das Arbeitsblatt entweder Tabelle2 oder Tabelle6 ist, sollen diese übersprungen werden. Für die restlichen Arbeitsblätter soll eine XML Datei mit den XML-Tags erstellt werden. Jedoch funktioniert das ganze nicht richtig. Das heisst Tabelle2 und Tabelle6 werden nicht übersprungen, sondern in der XML-Datei werden auch Tags für diese Arbeitsblätter generiert. Was ist falsch?
Hier mein Code
Set XDoc = CreateObject("MSXML2.DOMDocument")
Set XMLCommentTag = XDoc.createComment(copyrightComm)
Set XMLHead = XDoc.createProcessingInstruction("xml", XMLHeadContent)
Dim WS_Count As Integer
Dim I As Integer
Dim vorlageDoc As String
Dim frontpage As String
vorlageDoc = "Tabelle6"
frontpage = "Tabelle2"
XDoc.appendChild XMLHead
XDoc.appendChild XMLCommentTag
Set root = XDoc.appendChild(XDoc.createElement("Root"))
root.setAttribute "xmlns:xsi", "test"
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
If Worksheets(I).Name vorlageDoc Or Worksheets(I).Name frontpage Then
Set elem = root.appendChild(XDoc.createElement("Child"))
elem.setAttribute "attr1", "value.attr1"
elem.setAttribute "attr2", "value.attr2"
Set elem2 = elem.appendChild(XDoc.createElement("Child-2"))
elem2.Text = "Child-Child"
End If
'MsgBox ActiveWorkbook.Worksheets(I).Name
Next I
