E
erin.sebastian
Hello All,
I am in the middle of writing a macro that will read in an xml file ,
use an xslt to transform the data and then display the data in a row in
excel.
In order to transform the data i need to open an HTML page and read the
xml into that, but when i try and do that i get a run-tim 70 error :
permission denied and i can't figure out why.. any ideas?
The following is the code i use, i have no idea if it works becuase i
am trying to test it right now but can't due to the permissions error i
am getting.
Thanks in advance,
Erin
Sub XML_DATA_LOAD()
'Load the XML and the XSL (the stylesheet).
Dim oXML As Object, oXSL As Object
Set oXML = CreateObject("MSXML.DOMDocument")
Set oXSL = CreateObject("MSXML.DOMDocument")
' Open C:\STR\OUT for XML file list
Dim PathToUse As String
Dim myFile As String
PathToUse = "C:\test\"
myFile = Dir$(PathToUse & "*.xml")
While myFile <> ""
oXML.Load myFile
oXSL.Load "C:\Marine.xslt"
'Transform the XML using the stylesheet.
Dim sHTML As String
sHTML = oXML.transformNode(oXSL)
'Save the results to an HTML file.
Open "c:\temp.html" For Output As #1
Print #1, sHTML
Close #1
Sheets("XML Data").Select
Range("A1").Select
Workbooks.Open Filename:="c:\temp.html"
Wend
End Sub
I am in the middle of writing a macro that will read in an xml file ,
use an xslt to transform the data and then display the data in a row in
excel.
In order to transform the data i need to open an HTML page and read the
xml into that, but when i try and do that i get a run-tim 70 error :
permission denied and i can't figure out why.. any ideas?
The following is the code i use, i have no idea if it works becuase i
am trying to test it right now but can't due to the permissions error i
am getting.
Thanks in advance,
Erin
Sub XML_DATA_LOAD()
'Load the XML and the XSL (the stylesheet).
Dim oXML As Object, oXSL As Object
Set oXML = CreateObject("MSXML.DOMDocument")
Set oXSL = CreateObject("MSXML.DOMDocument")
' Open C:\STR\OUT for XML file list
Dim PathToUse As String
Dim myFile As String
PathToUse = "C:\test\"
myFile = Dir$(PathToUse & "*.xml")
While myFile <> ""
oXML.Load myFile
oXSL.Load "C:\Marine.xslt"
'Transform the XML using the stylesheet.
Dim sHTML As String
sHTML = oXML.transformNode(oXSL)
'Save the results to an HTML file.
Open "c:\temp.html" For Output As #1
Print #1, sHTML
Close #1
Sheets("XML Data").Select
Range("A1").Select
Workbooks.Open Filename:="c:\temp.html"
Wend
End Sub