I am trying to use this code. It works fine if I execute the file directly. But when I try opening file via Internet Explorer (required in my app), the xml import fails in the macro.
Any help is appreciated greatly.
===============================================
Sub Autpen()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+z
'
' Application.Visible = False
Application.DisplayAlerts = False
Sheet2.Select
Range("B5:O100").Select
ActiveWorkbook.XmlMaps("Root_Map").Import URL:= _
"http://someSite.com/ExcelTest.xml"
Sheet4.Select
ActiveWorkbook.SaveAs Filename:="C:\Users\Don\Documents\Some PMO\Executive_Portfolio_Dashboard_ITOPS_PMO_2011.htm", FileFormat:=xlHtml
Application.DisplayAlerts = True
ActiveWorkbook.Close False
Executive_Portfolio_Dashboard_ITOPS_PMO_2011.xlsm.Close False
End Sub
Any help is appreciated greatly.
===============================================
Sub Autpen()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+z
'
' Application.Visible = False
Application.DisplayAlerts = False
Sheet2.Select
Range("B5:O100").Select
ActiveWorkbook.XmlMaps("Root_Map").Import URL:= _
"http://someSite.com/ExcelTest.xml"
Sheet4.Select
ActiveWorkbook.SaveAs Filename:="C:\Users\Don\Documents\Some PMO\Executive_Portfolio_Dashboard_ITOPS_PMO_2011.htm", FileFormat:=xlHtml
Application.DisplayAlerts = True
ActiveWorkbook.Close False
Executive_Portfolio_Dashboard_ITOPS_PMO_2011.xlsm.Close False
End Sub