Importar datos desde libro cerrado VBA
Publicado por daxtrox (7 intervenciones) el 15/01/2022 21:21:26
Estimados, tengo el siguiente codigo el cual me lee los datos de un libro y los importa a otro libro.
Necesito importar los datos desde el libro cerrado, con este codigo solo me importa los datos con los 2 libros abiertos.
Necesito importar los datos desde el libro cerrado, con este codigo solo me importa los datos con los 2 libros abiertos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Copy_Paste()
'Encuentre la última fila utilizada en ambas hojas y copie y pegue los datos debajo de los datos existentes.Dim wsCopy As Worksheet
Dim wbOrigen As Workbook
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long
'Set variables for copy and destination sheetsSet wsCopy = Workbooks("Delta1.xlsm").Worksheets("DeltaAxi")
Set wsDest = Workbooks("Info_rate3.xlsm").Worksheets("vertical")
'1. busca el ultimo dato en la columna PlCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
'2. Encuentre la primera fila en blanco en el rango de destino según los datos de la columna A 'La propiedad de compensación se mueve hacia abajo 1 filalDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
'3. copiar y pegar datawsCopy.Range("A2:H" & lCopyLastRow).Copy _
wsDest.Range("A" & lDestLastRow)
End Sub
Valora esta pregunta
0