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

Abrir libro Excel (ruta fija)

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