VBA y libros Excel

ActiveWorkbook.Close

ActiveWorkbook.Close Savechanges:=True

ActiveWorkbook.Close(True)

ActiveWorkbook.Close(False)

ActiveWorkbook.Close Savechanges:=False

Application.DisplayAlerts = False
Windows(Libro_mayor).Close
Application.DisplayAlerts = True

<h2>Abrir libro Excel (ruta fija)</h2>
[vb]Workbooks.Open FileName:="C:\Trabajo\Informe.xls"

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

strNombre = ActiveSheet.Parent.FullName

MsgBox ActiveWorkbook.FullName