Brug af outerxml i excel?
HejsaJeg har følgende kode:
Dim xml As MSXML2.DOMDocument
Dim xmlNode As MSXML2.IXMLDOMNode
Dim fSuccess As Boolean
Dim cc As String
Dim maxkey, max As Integer
Dim key0, keys, keyxml, Name As String
Set xml = New MSXML2.DOMDocument
xml.async = False
xml.validateOnParse = False
Name = "Eksempel_v4_Parcelhus.XML"
fSuccess = xml.Load(Name)
' If anything went wrong, quit now.
If Not fSuccess Then
MsgBox ("Not Success")
Exit Sub
End If
xml.Load (Name)
maxkey = 2500
max = maxkey
keys = key0.PadRight(maxkey)
keyxml = ""
keyxml = Be06Keys(xml.OuterXml, keys, max, 0)
Mine 2 spørgsmål er så:
- Hvad skal PadRight hedde i VBA (excel) for at det laver det samme som ovenstående? (Måske noget med Left?)
- OuterXml er en VB kode og virker ikke umiddelbart i excel. Hvordan skal koden lyde for at gøre det samme i VBA, som OuterXml gør?
Jeg kan simpelthen ikke finde ud af dette? Har søgt på nettet rigtig længe efter disse to problemer! Så pleas hjælp.
mvh
Xane