Macro en excel para combertir todas las celdas de una columna, por cada celda genere un txt
Como puedo guardar una columna pero cada celda de esa columna genere un txt
Tengo este codigo por favor
Option Explicit
Private Sub CommandButton1_Click()
Open "c:\pruebaxx.txt" For Output As #1
Print #1, Range("A1").Value & Range("B1").Value & Range("C1").Value
Close #1
End Sub
Option Explicit
Private Sub CommandButton1_Click()
Open "c:\pruebaxx.txt" For Output As #1
Print #1, Range("A1").Value & Range("B1").Value & Range("C1").Value
Close #1
End Sub
1 Respuesta
Señor Álvarez, no entendo claramente lo que requiere, por lo tanto, dejo 3 opciones de solución a su disposición.
Solution 1: Si quiere que cada celda sea una línea en el mismo archivo txt:
Private Sub CommandButton1_Click()
Open "c:\pruebaxx.txt" For Output As #1
Set Rango_txts = Range("A1:A10") ' Aquí defines el rango que contiene las celdas a recorrer.
For Each Celda_txt In Rango_txts
Print #1, Celda_txt.Value
Next Celda_txt
Close #1
End subSolution 2: Si quiere que todas las celdas estén en una sola línea separadas por un espacio (un solo archivo txt):
Private Sub CommandButton1_Click()
Open "c:\pruebaxx.txt" For Output As #1
Set Rango_txts = Range("A1:A10") ' Aquí defines el rango que contiene las celdas a recorrer.
For Each Celda_txt In Rango_txts
linea_txt = Celda_txt & vbTab & linea_txt
Next Celda_txt
Print #1, linea_txt
Close #1
end subSolution 3: Si quiere que por cada celda se genere un archivo txt con el valor de la celda (múltiples archivos txt):
Private Sub CommandButton1_Click()
Set Rango_txts = Range("A1:A10") ' Aquí defines el rango que contiene las celdas a recorrer.
For Each Celda_txt In Rango_txts
No_txt = 1 + No_txt
Open "C:\Archivo" & No_txt & ".txt" For Output As #1
Print #1, Celda_txt.Value
Close #1
Next Celda_txt
end subExplanation:
Lo que se hace es, en los 3 casos, recorrer cada una de las celdas y hacer lo correspondiente según el caso: 1, genera una línea por celda; separa cada celda con un espacio en la misma linea; 3, genera un archivo txt por cada celda.
Recomendations:
* Verificar la ubicación dónde se van a crear el o los archivos
* Definir el rango con las celdas a recorrer. Dentro del código se indica dónde puede redefinirlo.
Si te ha servido no olvides calificar. Buen viento y Buena mar.
