Excel - Copiar datos de una planilla en otra

 
Vista:
sin imagen de perfil

Copiar datos de una planilla en otra

Publicado por Luis (1 intervención) el 18/10/2015 05:31:29
Agradeceré mucho si me pueden ayudar.
Estoy usando un código que encontré en la web, la idea es copiar los datos de una planilla (Origen,xlsx) en la planilla Principal .xlsm. Después de corregir algunos problemas que no permitian la ejecución total, ahora no logro que se realice la respectiva copia.
Les copio el código que estoy utilizando:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Copiadatos()
Dim ruta As String, direccion1 As String
Dim celdadestino As Range
'definimos rutas y archivos como variables
ruta = "D:\PruebaExcel\"
fichero1 = "Origen.xlsx"
direccion1 = ruta & fichero1
'identificamos la celda disponible en el archivo Principal, hoja Resumen
Set celdadestino = Workbooks("Principal.xlsm").Sheets("Resumen").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
'abrimos el fichero desde donde copiar... con el método .Open
Workbooks.Open Filename:=direccion1
Worksheets("Datos").Activate
'seleccionamos qué copiar y donde
Set tbl = Range("A2").CurrentRegion
'con este código únicamente copiamos la tabla excepto la primera fila
'y lo pegamos en la celda destino correcta del libro Principal.xlsm
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Copy _
Destination:=Workbooks("Principal.xlsm").Sheets("Resumen").Range(celdadestino.Address)
'limpiamos el Portapapeles
Application.CutCopyMode = False
'cerramos fichero origen con el método .Close, sin guardar cambios (nos aseguramos...)
Workbooks(fichero1).Close savechanges:=False
End Sub

Gracias desde ya si me pueden ayudar a descubrir el problema.
Luis.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder