Есть конечно. Библиотека Microsoft XML v6.0 подключена явно.
Код |
---|
Public Sub WriteWithIndent(ByVal xmlDoc As Object, ByVal FileName As String)
Dim pWriter As New MSXML2.MXXMLWriter60
Dim pReader As New MSXML2.SAXXMLReader60
pWriter.omitXMLDeclaration = False
pWriter.indent = True
Set pReader.contentHandler = pWriter
pReader.putProperty "http://xml.org/sax/properties/lexical-handler", pWriter
pReader.Parse xmlDoc.xml
xmlDoc.LoadXML pWriter.output
xmlDoc.FirstChild.Attributes(1).NodeValue = "UTF-8"
xmlDoc.Save FileName
End Sub
|
Как через трансформацию работать не знаю, никогда не использовал. Человеку лучше смотреть таблицу в Excel, а программам для чтения xml данных, полученных из Excel, всё равно - есть ли отступы или нет отступов.
Успехов.