vbscript - Cerrar la instancia de Excel abierta

excel.application

Question

¿Podría alguien decirme si el siguiente sencillo VBScript es correcto? Se supone que cierra Excel después de que se hayan ejecutado otros procesos (y dejó Excel abierto), pero no funciona.

Set MyApp = CreateObject("Excel.Application")
MyApp.Quit

Answer 1

Prueba esto por favor.

ThisWorkbook.Saved = True
Application.Quit

Answer 2

CreateObject crea un nuevo objeto. Si entiendo correctamente su pregunta, desea adjuntarla a procesos de Excel que ya estén en ejecución (huérfanos) para finalizarlos. Puedes hacer eso con GetObject :

On Error Resume Next
Do
  Set xl = GetObject(, "Excel.Application")
  status = Err.Number
  If status = 0 Then
    For Each wb in xl.Workbooks
      wb.Close False  ''discard changes in open workbooks
    Next
    xl.Quit
  ElseIf status <> 429 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit 1
  End If
Until status = 429
On Error Goto 0

Tenga en cuenta que esto intentará cerrar todas las instancias en ejecución de Excel, descartando todos los cambios en los libros abiertos. Si desea guardar cambios en libros abiertos, cambie el argumento del método Close a True . Si tiene instancias de Excel que desea seguir ejecutando, necesita agregar código para excluirlas de su cierre.

Tenga en cuenta también que esto no terminará a la fuerza las instancias que no responden. Deberías matar el proceso por eso:

Set wmi = GetObject("winmgmts://root/cimv2")
For Each xl In wmi.ExecQuery("SELECT * FROM Win32_Process WHERE Name = ''excel.exe''")
  xl.Terminate
Next

Answer 3

CreateObject crea un objeto COM, por lo que su

Set MyApp = CreateObject("Excel.Application") 

comienza un nuevo proceso de Excel. Use GetObject para "recuperar un objeto existente con el ProgID especificado". Vea esto para la teoría y la praxis.