S
Senad Isanovic
Trying to write code that will write to an xmlfile and replace values for
DocType, LanguageCode and. The xml contains other xml tags as well but they
should not be overwritten. My example xml file:
<?xml version="1.0" encoding="ISO-8859-1"?>
<GDAInfo>
<System>
<DocType>1</DocType>
<ActiveSection>senad</ActiveSection>
<LanguageCode>SE</LanguageCode>
<UseTitle>False</UseTitle>
<NatDirectNumber>08-</NatDirectNumber>
<IntDirectNumber>+46 8 </IntDirectNumber>
</System>
</GDAInfo>
Managed to load and get info from xml file but to write to a certain tag in
the xml file.
Public Sub LoadXml()
Set oXml = New MSXML2.DOMDocument
oXml.async = False
If Not oXml.Load(GetXmlFilename()) Then
MsgBox oXml.parseError.reason
Exit Sub
End If
End Sub
DocType, LanguageCode and. The xml contains other xml tags as well but they
should not be overwritten. My example xml file:
<?xml version="1.0" encoding="ISO-8859-1"?>
<GDAInfo>
<System>
<DocType>1</DocType>
<ActiveSection>senad</ActiveSection>
<LanguageCode>SE</LanguageCode>
<UseTitle>False</UseTitle>
<NatDirectNumber>08-</NatDirectNumber>
<IntDirectNumber>+46 8 </IntDirectNumber>
</System>
</GDAInfo>
Managed to load and get info from xml file but to write to a certain tag in
the xml file.
Public Sub LoadXml()
Set oXml = New MSXML2.DOMDocument
oXml.async = False
If Not oXml.Load(GetXmlFilename()) Then
MsgBox oXml.parseError.reason
Exit Sub
End If
End Sub