Como se puede mejorar la macro para generar TXT
Para Elsamatilde. Buen dia como puedo mejorar mi macro para crear archivos txt apartir de una columna de excel
Private Sub TXT_Click()
'exporta un rango de celdas resultando col de datos
Dim FileSysObj As Object
Dim ArchivoTxt As Object
Dim AreaTexto
AreaTexto = ActiveSheet.Range("I5:I10000").Value
Set FileSysObj = CreateObject("Scripting.FileSystemobject")
Set ArchivoTxt = FileSysObj.CreateTextFile("E:\Ejemplo.txt", True)
'recorre el rango a copiar
Dim celda
For Each celda In AreaTexto
ArchivoTxt.WriteLine celda
Next
ArchivoTxt.Close
End Sub
