home *** CD-ROM | disk | FTP | other *** search
- ' This script contacts Excel to calculate
- ' a math expression and displays the result
-
- Set EXL = CreateObject("Excel.Application")
- Set Args = Wscript.Arguments
- On Error Resume Next
- MsgBox Args(0) & " = " & EXL.Evaluate(Args(0))
- If Err.Number > 0 Then
- MsgBox Err.Description
- End If
- Set EXL = Nothing
-