Cerrar excel
Se que con la sentencia ThisWorkbook.Close se cierra el libro que tengamos abierto. Lo que me interesa saber es una sentencia para cerrar excel, el programa excel. Desde ya muchas gracias.
1 respuesta
Respuesta de anders
No se me ocurre otra cosa que aplicar la función CREATEOBJECT. Así puedes, desde Excel/Word etc, crear o abrir un libro Excel, modificarlo y después cerrarlo (con la opción de guardar por supuesto).
No olvide primero poner una referencia a Excel desde Word etc (VBA editor - Herramientas - Referencias - MicrosoftExcel xx.por Object library).
Saludos Anders xltoday.net
Sub Iniciar_Excel_desde_Access()
Dim xl As Object
'abre libro de Excel
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.Visible = True
'o para abrir libro
'xl.Workbooks.Open Filename:="C:\Libro_de_Excel.xls"
'modifica libro de Excel (ejemplos)
xl.Application.Sheets("Sheet1").Activate
xl.Application.ActiveWindow.Zoom = 75
xl.Application.ActiveSheet.Range("A1") = "Hola"
xl.Application.Rows(2).Delete
'termina Excel (importante)
xl.Application.ActiveWindow.Close savechanges = "False"
Set xl = Nothing
End Sub
No olvide primero poner una referencia a Excel desde Word etc (VBA editor - Herramientas - Referencias - MicrosoftExcel xx.por Object library).
Saludos Anders xltoday.net
Sub Iniciar_Excel_desde_Access()
Dim xl As Object
'abre libro de Excel
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.Visible = True
'o para abrir libro
'xl.Workbooks.Open Filename:="C:\Libro_de_Excel.xls"
'modifica libro de Excel (ejemplos)
xl.Application.Sheets("Sheet1").Activate
xl.Application.ActiveWindow.Zoom = 75
xl.Application.ActiveSheet.Range("A1") = "Hola"
xl.Application.Rows(2).Delete
'termina Excel (importante)
xl.Application.ActiveWindow.Close savechanges = "False"
Set xl = Nothing
End Sub
