Ver Mensaje Individual
  #8 (permalink)  
Antiguo 28/09/2007, 01:50
Insomnia
 
Fecha de Ingreso: noviembre-2005
Mensajes: 751
Antigüedad: 18 años, 6 meses
Puntos: 13
Re: evitar confirmacion al cerrar excel

Hola

Este pequeño código a mi me funciona bien, el problema es que al cerrar la hoja sin guardar los cambios la hoja de excel no se ve (abre y cierra sin guardar cambios), si descomentas la linea del Save y comentas la del close, la hoja se abre, y si el usuario no realiza ningún cambio al cerrar excel no pide mensaje para guardar.

Código:
Dim ExcelApp As New Excel.Application
Dim ExcelHoja As Excel.Worksheet

Private Sub Form_Load()
    ExcelApp.Workbooks.Open "C:\Prueba.xls"
    Set ExcelHoja = ExcelApp.ActiveSheet
    
    ExcelHoja.Cells(1, 1) = "Hola Mundo"
    
    'ExcelApp.Application.ActiveWorkbook.Save
    ExcelApp.Application.Visible = True
    
    Screen.MousePointer = 0
         
    ExcelApp.Workbooks(1).Close SaveChanges:=False
   
    Set ExcelApp = Nothing
    Set ExcelHoja = Nothing

End Sub
--Saludos--