Here is a simple example

Dim xlApp
Dim xlWB
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlWB = xlApp.Workbooks.Open("C:\test\test.xlsm")
'do some stuff with xlWB
MsgBox "All done"
xlWB.Close False
Set xlWB = Nothing
xlApp.Quit
Set xlApp = Nothing
Just save as a file called file.vbs, double-click to run it.