evitar confirmacion al cerrar excel

[ENAT_123]

tengo un proyecto en el cual abro una hoja de excel y luego la cierro, pero al cerrarla me sale el cuadro de confirmar si deseo guardar los cambios.
¿ como puedo evitar eso?
agradezco vuestra ayuda
saludos

[Insomnia]

Hola

Yo después de crear el documento suelo guardarlo utilizando código (para que no me pregunte si deseo guardar), eso si si luego el usuario modifica algo en ese caso preguntará.

Te pongo el código por si te sirve:

Código:

ExcelApp.Application.ActiveWorkbook.Save

--Saludos--

[ENAT_123]

Iniciado por Insomnia

Hola

Yo después de crear el documento suelo guardarlo utilizando código (para que no me pregunte si deseo guardar), eso si si luego el usuario modifica algo en ese caso preguntará.

Te pongo el código por si te sirve:

Código:

ExcelApp.Application.ActiveWorkbook.Save

--Saludos--

[ENAT_123]

gracias lo voy a probar, creo que servira.

saludos

[ENAT_123]

no me fnciona sigue pidiendome confirmacion de si quiero reemplazar el fichero, yo solo quiero cerrarlo sin guardar ningun cambio

[Insomnia]

Hola

Prueba con lo siguiente:

Código:

ExcelApp.Workbooks.Close False

--Saludos--

[ENAT_123]

me da el siguiente error

error 1004

no se puede asignar la propiedad Close de la calse Workbooks

[Insomnia]

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--

[ENAT_123]

gracias problema solucionado , funciona bien

saludos