¿Cómo cerrar un libro de excel?

Tengo el siguiente código que me funciona bien, pero cuando quiero cerrar el libro del que extraje los datos, el comenado no "funciona". El código es el siguiente:
Sub valor_celda()
Dim mes, libro_fuente, libro_destino As String
On Error Resume Next
mes = InputBox("Escribe el nombre del mes a buscar", "Buscar mes")
libro_fuente = "E:\RESPALDOS CENTRAL\RESPALDOS 2011\ARCHIVO DE REPORTES\REPORTE DIARIO\VE\" & mes & " 2011 VE\" & mes & " 01 DE 2011 VE" & ".xlsx"
libro_destino = ThisWorkbook.Name
Application.ScreenUpdating = False
Workbooks.Open(libro_fuente).Worksheets(1).Range("Q19:T19").Select
Selection.Copy
Workbooks(libro_destino).Worksheets(1).Range("A1").PasteSpecial
Application.Workbooks(libro_fuente).Close False
Application.ScreenUpdating = True
Application.CutCopyMode = False
If Err.Number = 1004 Then
MsgBox ("El archivo no existe")
End If
End Sub
En la parte donde debe cerrar el libro_fuente, no lo hace, lo intente con otras lineas de código:
Application.DisplayAlerts = False
Application.Quit
Pero lo que hacen, es cerrar toda la aplicación, incluido mi libro_destino.
Ademas, me gustaría saber, como puedo hacer que una vez que copia los datos del rango de celdas Q19:T19, copie los datos de los randos Q20:T20 pero en la hoja 2 del libro_destino. Ojala puedan ayudarme, de antemano, muchas gracias.
1

1 respuesta

Respuesta
1
En lugar de : Application. Workbooks(libro_fuente). Close False coloca
Workbooks(libro_fuente).select
ActiveWindow.Close
Application.DisplayAlerts = False
Y para lo segundo luego de Workbooks.Open(libro_fuente). Worksheets(1). Range("Q19:T19").Select
Selection. Copy
Workbooks(libro_destino). Worksheets(1). Range("A1"). PasteSpecial
Application.ScreenUpdating = True
Application.CutCopyMode = False
Coloca
Workbooks.Open(libro_fuente). Worksheets(1). Range("Q20:T20").Select
Selection. Copy
Workbooks(libro_destino). Worksheets(2). Range("A1"). PasteSpecial
Application.Workbooks(libro_fuente).Close False
Application.ScreenUpdating = True
Application.CutCopyMode = False
Por cierto la parte de cerrar el libro debe ir luego de ingresar esta ultima parte
No olvides finalizar la pregunta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas