VBS macro doesn´t run

[KhallP]

I'm trying to close the CMD after running my vbs file, can someone help me?

Code:

Dim objExcel, ObjWB

WScript.Sleep (200)
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True

Set ObjWB = ObjExcel.Workbooks.Open("D:\Users\AFCALME\Documents\Projeto_Luis\Andre\EEC\QEIM\QEIM_geral\Teste_Def.xlsm", , True)

ObjWB.Saved = True
ObjWB.Close
objExcel.DisplayAlerts = False


Set objWorkbook = Nothing
Set objExcel = Nothing

 

[John_w]

How are you running the .vbs file?

One way from VBA, which should close the command window after the script has run is:

    Shell "wscript " & Chr(34) & "C:\path\to\the VBScript file.vbs" & Chr(34), vbNormalFocus

If specifying cmd, use the /c switch to close the command window after the script has run, or /k to keep it open (useful for debugging to see the output, and type exit to close the window):

    Shell "cmd /c wscript " & Chr(34) & "C:\path\to\the VBScript file.vbs" & Chr(34), vbNormalFocus
    Shell "cmd /k wscript " & Chr(34) & "C:\path\to\the VBScript file.vbs" & Chr(34), vbNormalFocus

 

[Macropod]

Change:
objExcel.DisplayAlerts = False
to:
objExcel.Quit