Como convertir una macro en txt
Quiero convertir un archivo de pago de nominas de exel a txt
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Existen varias formas para convertir un archivo de excel a txt, en la imagen puedes ver algunos de los formatos:
Los formatos CSV, también te dejan el archivo en tipo texto.
Para hacer la macro con alguno de los formatos, tienes que decirme cuál es el formato que necesitas; cuál hoja es la que quieres enviar a txt y qué nombre hay que ponerle archivo txt.
Te anexo un ejemplo de macro para convertir la hoja3 a texto con formato (delimitado por espacios)
Sub Macro11()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ruta = ThisWorkbook.Path & "\"
Sheets("Hoja3").Copy
ActiveWorkbook.SaveAs _
Filename:=ruta & "v1.prn", _
FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWorkbook.Close
MsgBox "Hoja guardada como txt"
End SubE spero tus comentarios.
Gracias por tu aportación. Como tienen que aparecer los datos en el archivo txt es como aparece en la imagen que adjunte en la pregunta, ninguna de las opciones que da el excel para guardar en formato texto coincide con lo que adjunte. Desde mis poco conocimiento creo el codigo debería recorrer las filas de Excel copiando las filas y pegándolas como aparecen en la muestra de la imagen e intercalando entre cada una de ellas los nombres de las columnas con el comando al principio y al final del codigo::: execute block as begin…………end:: para que yo pueda ejecutar el txt desde mi base sql.En cuanto a nombre del archivo puede ser "Insertar" y guardar en D:\Descargas por ejemplo.Muchas gracias. - Jose Carlos Gonzalez