' *
' xlHtml.vbs
' *

Rem *** Script Directives ***
'On Error Resume Next


Rem *** Variable Declarations ***

Set application = CreateObject("Excel.Application")


Set oArgs = WScript.Arguments
document = oArgs(0)
html = oArgs(1)


application.Visible = False
application.DisplayAlerts = 0

application.Workbooks.open(document)
application.ActiveWorkbook.SaveAs html,44

application.quit()
WScript.quit