Macro para exportar de excel a txt
Quisiera que me ayudaras con algo, estoy tratando de exportar toda una hoja de excel a un archivo txt.
La primea fila de la hoja(DIARIO) es el encabezado, ocupa el rango A1:CI1
La idea, es que al exportar el archivo txt, quede de la siguiente forma:
Envíame 2 archivos, el primer archivo en excel con la información a exportar. El segundo archivo con la información en txt.
Además me envías el procedimiento que realizar para exportar manualmente el archivo a txt, necesito que me digas que opción de excel utilizar para guardar la hoja como txt.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “luis hernandez gil” y el título de esta pregunta.
¡Muchas gracias Dante,
ya le he enviado la información a su correo.
saludos!
Te anexo la macro
Sub GuardarTxt()
'Por.Dante Amor
Set h1 = Sheets("DIARIO")
Set h2 = Sheets("columnas")
'
FileNum = FreeFile()
ruta = ThisWorkbook.Path & "\"
Open ruta & "archivo.txt" For Output As #FileNum
'
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
For j = 1 To Columns("F").Column
dato = h1.Cells(i, j)
For k = 1 To h2.Cells(j, "C")
car = Mid(dato, k, 1)
If car = "" Then car = " "
Print #FileNum, car;
Next
Next
Print #FileNum,
Next
Close #FileNum
'
MsgBox "El TXT fue guardado en la ruta: " & ruta
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
