Cerrar archivo excel
Hola EXPERTO, tengo el siguiente Macro ....... Que he guardado en el libro PERSONAL para ejecutarlo desde cualquier archivo excel "activo" ...ya el nombre del archivo siempre cambia...
ActiveSheet.Unprotect "1234"
Range("A1:AP82").Select
Range("AN82").Activate
Selection.Copy
Windows("BASE.xls").Activate
Sheets("Hoja2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("a60000").End(xlUp).Offset(1, 0).Select
ActiveCell = Sheets("Hoja2").Range("B4").Value
ActiveCell.Offset(0, 1) = Sheets("Hoja2").Range("B13")
ActiveCell.Offset(0, 2) = Sheets("Hoja2").Range("J13")
Sheets("Hoja2").Select
'Windows("BASE.xls").Activate
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("Hoja1").Select
End Sub
En lo que necesito que me ayuden es cerrando el archivo excel abierto (formulario)...despues de extraer la información ....para abrir otros archivos (formularios) y armar la base de datos.
ActiveSheet.Unprotect "1234"
Range("A1:AP82").Select
Range("AN82").Activate
Selection.Copy
Windows("BASE.xls").Activate
Sheets("Hoja2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("a60000").End(xlUp).Offset(1, 0).Select
ActiveCell = Sheets("Hoja2").Range("B4").Value
ActiveCell.Offset(0, 1) = Sheets("Hoja2").Range("B13")
ActiveCell.Offset(0, 2) = Sheets("Hoja2").Range("J13")
Sheets("Hoja2").Select
'Windows("BASE.xls").Activate
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("Hoja1").Select
End Sub
En lo que necesito que me ayuden es cerrando el archivo excel abierto (formulario)...despues de extraer la información ....para abrir otros archivos (formularios) y armar la base de datos.
{"Lat":-13.9234038977233,"Lng":-56.953125}