none
consulta sobre ventanas RRS feed

  • Pregunta

  • Desde un formulario de Outlook verifico si tengo abierto un libro de Excel. Si lo tengo abierto, lo cierro, por lo que Excel me pregunta si quiero guardar o no. Pero como la ventana de Excel no está activa, no veo el cuadro de dialogo Guardar, No guardar, Cancelar.

    ¿Cómo puedo traer al frente la ventana de Excel, con su cuadro de dialogo, y una vez cerrado este cuadro de dialogo volver a la ventana de Outlook?

    Este es el código de subprocedimiento al que llamo, una vez comprobado que el libro RegistroPruebas.xlsm esta abierto.

    Sub CerrarRegistroYDatos()
        On Error Resume Next
        'Dim WorkBookCount As Integer
        Dim Xlsm As Workbook
        Dim WBs As Workbooks
        Set Xlsm = GetObject(, "Excel.Application").Workbook
        Set WBs = GetObject(, "Excel.Application").Workbooks
       
        'Resetea RegistroAbierto y DatosAbierto a False
        RegistroAbierto = False
        DatosAbierto = False
        'Para cada libro abierto, comprueba si es RegistroPruebas.xlsm. Si lo es Resetea RegistroAbierto a True.
        'De no ser, comprueba si Xlsm.Name = Datos.Xlsm. Si lo es Resetea Datos Abierto a True
       
        For Each Xlsm In WBs
           
                If Xlsm.Name = "REGISTROPruebas.xlsm" Or Xlsm.Name = "DATOS.xlsm" Then
                    Workbooks(Xlsm.Name).Activate
                    Windows(Xlsm.Name).Activate
                    'Application.Windows.Arrange xlArrangeStyleCascade
                    ActiveWindow.WindowState = xlMaximized
                   
                    'RegistroAbierto = True
                    objExcel.Visible = True 'No está funcionando.
                    Xlsm.Close
                    'WBs.Open filename:=strRutaLibroRegistro
                End If
                
        Next Xlsm
           
        'Cierra la instancia de excel abierta
        objExcel.Quit
       
    End Sub


    Ismmael Pastor

    lunes, 7 de octubre de 2013 13:47