Excel VBA Coding for xls transformation

[smpillai11]

Hi, Is there any way to output result to text?

When I run the code below in VBA the result output.txt is an empty file

Sub test()
sourceFile = "C:\Temp\XSLT\TOPOLOGY.xml"
stylesheetFile = "C:\Temp\XSLT\Xport.xslt"
resultFile = "C:\Temp\XSLT\output.txt"
Transform sourceFile, stylesheetFile, resultFile
End Sub

Private Sub Transform(sourceFile, stylesheetFile, resultFile)
Dim Source As New MSXML2.DOMDocument30
Dim stylesheet As New MSXML2.DOMDocument30
Dim result As New MSXML2.DOMDocument30
' Load data.
Source.async = False
Source.Load sourceFile
' Load style sheet.
stylesheet.async = False
stylesheet.Load stylesheetFile
result.async = False
result.validateOnParse = True
If (Source.parseError.ErrorCode <> 0) Then
MsgBox ("Error loading source document: " & Source.parseError.reason)
Else
If (stylesheet.parseError.ErrorCode <> 0) Then
MsgBox ("Error loading stylesheet document: " & stylesheet.parseError.reason)
Else
' Do the transform.
Source.transformNodeToObject stylesheet, result
result.Save resultFile
MsgBox Source.transformNode(stylesheet)
End If
End If
End Sub