VBA y libros Excel
Cerrar libro Excel (guardar cambios)
ActiveWorkbook.Close
ActiveWorkbook.Close Savechanges:=True
ActiveWorkbook.Close(True)
Cerrar libro Excel (sin guardar cambios)
ActiveWorkbook.Close(False)
ActiveWorkbook.Close Savechanges:=False
Cerrar libro Excel (variable, sin guardar cambios)
Application.DisplayAlerts = False
Windows(Libro_mayor).Close
Application.DisplayAlerts = True
Windows(Libro_mayor).Close
Application.DisplayAlerts = True
<h2>Abrir libro Excel (ruta fija)</h2>
[vb]Workbooks.Open FileName:="C:\Trabajo\Informe.xls"
Abrir libro Excel (diálogo)
Msg = MsgBox("Elija archivo para abrir.", vbOKOnly, (""))
strArchivo = Application.GetOpenFilename
On Error GoTo 99
Workbooks.OpenText Filename: = strArchivo
If strArchivo = "" Then Exit Sub
strArchivo = ActiveWindow.Caption
99:
Exit sub
Devolver nombre del libro Excel
strNombre = ActiveSheet.Parent.FullName
MsgBox ActiveWorkbook.FullName


