Necesito crear un archivo csv de cada fila de una tabla excel donde se guarden con el nombre de las celdas de la columna F
Lo anterior si alguien sabe como se hace en excel, access, visual basic, python o alguna otra herramienta
2 Respuestas
Respuesta de Dante Amor
2
Te anexo la macro para crear un archivo csv (delimidato por comas), por cada fila de la hoja1
Sub Crear_Csv()
'Por Dante Amor
'
' Crea un csv por cada línea
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja1")
ruta = l1.Path & "\"
hojas = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
For i = 1 To h1.Range("F" & Rows.Count).End(xlUp).Row
Set l2 = Workbooks.Add
Set h2 = l2.Sheets(1)
h1.Rows(i).Copy
h2.Rows(1).PasteSpecial xlValues
arch = h1.Range("F" & i).Value
l2.SaveAs Filename:=ruta & arch & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False
l2.Close
Next
Application.SheetsInNewWorkbook = hojas
Application.ScreenUpdating = False
Application.DisplayAlerts = False
MsgBox "Archivos generados"
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
,.
Respuesta de Programar Excel
1
Esto está relacionado fíjate si te aporta algo más