post Run("excel.exe C:\DDDW\test.xls", Maximized!)

post Run("C:\DDDW\test.xls", Maximized!)

OLEObject oExcel
String ls_Template = "C:\DDDW\test.xls"
TRY
	oExcel = CREATE OLEObject
	oExcel.ConnectToNewObject('Excel.Application')
	oExcel.Application.Workbooks.Open(ls_Template)
	oExcel.Application.Visible = TRUE
FINALLY
	oExcel.DisconnectObject()
	destroy oExcel
END TRY

int			li_rc
string		ls_err_msg = ""
OLEObject	lole_excel
Exception	le_error

try
	lole_excel = create OLEObject
	li_rc = lole_excel.ConnectToNewObject("Excel.Application")
	choose case li_rc
	case  0 
		// success - continue
	case - 1 
		ls_err_msg = "Invalid Call: the argument is the Object property of a control"
	case - 2 
		ls_err_msg = "Class name not found"
	case - 3 
		ls_err_msg = "Object could not be created"
	case - 4 
		ls_err_msg = "Could not connect to object"
	case - 9 
		ls_err_msg = "Other error"
	case - 15 
		ls_err_msg = "MTS is not loaded on this computer"
	case - 16 
		ls_err_msg = "Invalid Call: this function not applicable"
	case else
		ls_err_msg = "ConnectToNewObject returned unprocessable value " + String(li_rc)
	end choose
	
	if ls_err_msg <> "" then
		le_error = create Exception
		le_error.SetMessage(ls_err_msg)
		throw le_error
	end if
	
	lole_excel.Application.Workbooks.Open(as_full_path)
	lole_excel.Application.Visible = true
catch(Exception le_cought)
	ls_err_msg = "w_spy.wf_open_excel_file failed to open Excel file " + as_full_path + ".~n~r~n~rError message:~n~r" + le_cought.GetMessage()
	MessageBox("Debug error", ls_err_msg)
	return - 1 
finally
	lole_excel.DisconnectObject()
	destroy lole_excel
end try

return  1