View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] erin.sebastian@cowaninsurancegroup.com is offline
external usenet poster
 
Posts: 6
Default HELP!! run-time 70 error

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