HELP!! run-time 70 error

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
 
E

erin.sebastian

I figured this one out. I wasn't closing the file inside my loop so it
was trying to open the file but it was already open.

Thanks,
Erin
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top