Como convertir columnas en archivo separado por comas ?
¿Cómo convertir datos de varias columnas en un archivo separado por comas?
Ejemplo: A1=01, A2=A, A3=NOMBRE, A4=APELLIDO
Quedando asi: 01, A, NOMBRE, APELLIDO
1 respuesta
Respuesta de Dante Amor
1
Prueba esta macro:
Sub Archivo()
'Por.Dante Amor
Const separador As String = ","
'
Set h1 = ActiveSheet
ruta = ActiveWorkbook.Path & "\"
If Left(ruta, 1) <> "\" Then ruta = ruta & "\"
nombre = "archivo.txt"
'
fc = h1.UsedRange.SpecialCells(11).Address
f = h1.UsedRange.SpecialCells(11).Row
col = h1.UsedRange.SpecialCells(11).Column
nFileNum = FreeFile
Open ruta & nombre For Output As #nFileNum
For Each r In h1.Range("A1:A" & f).Rows
For Each c In h1.Range(h1.Cells(r.Row, "A"), h1.Cells(r.Row, col))
cadena = cadena & c.Value & separador
Next
If cadena <> "" Then
cadena = Left(cadena, Len(cadena) - 1)
End If
Print #nFileNum, cadena
cadena = Empty
Next
Close #nFileNum
MsgBox "Fin"
End Sub
