1
lanzamiento Microsoft Word, haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic " para iniciar el Editor de VBA. Haga clic en el menú " Insertar" y haga clic en " módulos" para insertar un nuevo módulo
2
Agregue el código siguiente para crear un nuevo procedimiento : .
Private Sub IsExcelOpen () On Error GoTo Err_IsExcelOpen :
3
Copia y pega el siguiente código para determinar si Excel ya se está ejecutando :
xlsObject As ObjectSet xlsObject = GetObject ( , " Excel.Application " ;) Si ( xlsObject = " Microsoft Excel ") ThenMsgBox End " Excel está funcionando! " Si
4
Copia y pega el siguiente código para capturar un error si Excel no se está ejecutando y la liberación el objeto de la memoria que se ha creado en el paso anterior :
Set xlsObject = NothingExit_IsExcelOpen : SubErr_IsExcelOpen Salir: Si Err.Number = 429 ThenMsgBox " Excel no está funcionando ! " End ifset xlsObject = NothingEnd Sub
Página 5
Inicie Microsoft Excel y presione "F5 " para ejecutar el procedimiento. Usted recibirá un mensaje que indica que se está ejecutando Excel . Cierre Excel y ejecute el procedimiento de nuevo para recibir un mensaje de Excel no se está ejecutando .