Buenas, el caso es el siguiente:
Tengo un archivo de excel en el cual tengo únicamente información en la celda A1, A2, y así sucesivamente. Necesito crear un fichero .txt por cada fila del excel.
Sé que es posible exportar la hoja entera y he probado varias cosas en VBA pero hasta ahora nada que me valga.
¿Algún experto en la sala que me solucione este problema?
Gracias.
#3 Si exporto a CSV me exporta la hoja completa y eso es lo que tengo que evitar, necesito un archivo txt por cada fila con contenido en la columna A.
Sub SaveAsTextFile()
Dim strPath As String
Dim CellContent As String
Dim r As Long
Dim m As Long
' Specify a different path if you wish
strPath = ThisWorkbook.Path & Application.PathSeparator
' Last row
m = Range("A" & Rows.Count).End(xlUp).Row
' Loop through the rows
For r = 2 To m
' Get ID and Report
CellContent = Range("A" & r).Value
' Open text file
Open strPath & CellContent & ".txt" For Output As #1
' Write data
Print #1, lngID
' Close the file
Close #1
Next r
End Sub