Código para exportar excel a txt
Buenas tardes, mi problema es que necesito exportar de excel a txt pero no por guardar como, sino por medio de un botón que tengo en mi hoja de excel ... Muchas gracias, espero que puedan ayudarme.
1 respuesta
Respuesta
1
Lo que vos necesitas es asignar una macro al botón que tienes en la planilla de excel, hace un click con el botón derecho del mouse sobre el botón que tienes en la planilla y entra a donde dice asignar macro, ponele grabar al archivo y después detené la macro.
Luego vas a herramientas, macros, y entra a donde dice paso a paso, luego lo que te dice ahí reemplázalo por esto que te dejo acá abajo
Sub Botón1_AlHacerClic()
'
' Botón1_AlHacerClic Macro
' Macro grabada el 29/01/2011 por Juan Manuel
'
Evaluate1 = Evaluate("=now()")
a = Format(Evaluate1, "dd-mm-yyyy")
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Juan Manuel\Escritorio\" & a & ".txt", FileFormat:=xlText, _
CreateBackup:=False
End Sub
Ahora lo que esta en negrita cursiva, tienes que reemplazarlo por la dirección donde quieres que se grabe el archivo txt
Luego vas a herramientas, macros, y entra a donde dice paso a paso, luego lo que te dice ahí reemplázalo por esto que te dejo acá abajo
Sub Botón1_AlHacerClic()
'
' Botón1_AlHacerClic Macro
' Macro grabada el 29/01/2011 por Juan Manuel
'
Evaluate1 = Evaluate("=now()")
a = Format(Evaluate1, "dd-mm-yyyy")
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Juan Manuel\Escritorio\" & a & ".txt", FileFormat:=xlText, _
CreateBackup:=False
End Sub
Ahora lo que esta en negrita cursiva, tienes que reemplazarlo por la dirección donde quieres que se grabe el archivo txt
Necesitaría saber si te funciono la opción de macro que te envíe, si es así te pido por favor que finalices la pregunta, sino pregunta otra vez.