Copiar de archivo.csv a hoja excel
En un mismo directorio tengo un excel y un archivo csv
Necesito que desde el archivo excel ejecutar un botón que lea el archivo csv y lo copie integro desde la fila 2 hasta el final al excel en un sheet especifico que ya tiene información, debe copiarlo luego de la ultima fila con información.
1 Respuesta
Respuesta de fejoal
2
.11/08/16
Buenas, David
En el archivo receptor de los datos inserta un módulo en el Editor de VBA (atajo: Alt + F11).
En el panel de la derecha pega la siguiente rutina:
Sub TraeCSV() 'David, escribe aquí la dirección de la celda donde empieza tu base: CeldaIni = "A2" 'ActiveWindow.ActivateNext 'Range(Cells(2, 1).Address, Cells(UsedRange.Rows.Count, UsedRange.Columns.Count)).Copy 'ActiveWindow.ActivateNext Range(CeldaIni).End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = xlCopy Range(CeldaIni).End(xlDown).Select End Sub
Coloca el botón que activa este procedimiento en la hoja donde deben pegarse los datos del archivo .csv . Asegurate que sólo estén abiertos ambos archivos al momento de ejecutarla.
Espero que te sea de ayuda.
Saludos
Fernando
.
