XML出力 with MS XML 6.0 (2)
Sub writeXML2()
Dim xmlDoc As MSXML2.DOMDocument
Set xmlDoc = New MSXML2.DOMDocument
xmlDoc.LoadXML ("<?xml version=""1.0""?><test>日本語</test>")
xmlDoc.Save ("C:\\test3.xml")
End Sub
Sub writeXML2()
Dim xmlDoc As MSXML2.DOMDocument
Set xmlDoc = New MSXML2.DOMDocument
xmlDoc.LoadXML ("<?xml version=""1.0""?><test>日本語</test>")
xmlDoc.Save ("C:\\test3.xml")
End Sub