Guardar en este formato.
Buenos días. De antemano, muchas gracias por leer esto.
Mi problema es el siguiente: Necesito guardar una hoja de Excel en formato texto (Eso lo sé hacer), sin embargo, necesito que quede en texto separado por columnas.
Ya he probado con estos formatos:
FileFormat:=xlUnicodeText
FileFormat:=xlText
Pero siempre tengo el mismo problema, al abrir el archivo guardado queda en un extraño código:
âÐÄ6–ö'o?"Cº@É.¡ƒ$ü}?Чýá§ïÄjU%)´¥«ZÛ(ø8½><ƒ Ö¶Ò³¨`@‚C
Sin embargo, al hacer el procedimiento manualmente (Guardar Como - Formato de Texto Separado por Columnas) sí queda bien guardado.
¿Algún consejo?
Mi problema es el siguiente: Necesito guardar una hoja de Excel en formato texto (Eso lo sé hacer), sin embargo, necesito que quede en texto separado por columnas.
Ya he probado con estos formatos:
FileFormat:=xlUnicodeText
FileFormat:=xlText
Pero siempre tengo el mismo problema, al abrir el archivo guardado queda en un extraño código:
âÐÄ6–ö'o?"Cº@É.¡ƒ$ü}?Чýá§ïÄjU%)´¥«ZÛ(ø8½><ƒ Ö¶Ò³¨`@‚C
Sin embargo, al hacer el procedimiento manualmente (Guardar Como - Formato de Texto Separado por Columnas) sí queda bien guardado.
¿Algún consejo?
1 Respuesta
Respuesta de calvuch
1
Dices al hacerlo manualmente, por ende deduzco que estas guardando mediante macro...
Veamos tu macro
Veamos tu macro
Sub Botón_Exportar_Viento_Tabulación()
Range("A1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
FilaF = ActiveCell.Row
Application.Union(Range("A1:A" & FilaF), Range("H1:I" & FilaF)).Select
Selection.Copy
Range("A1").Select
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
FileFormat:=xlText
ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename
CreateBackup = False
Application.DisplayAlerts = True
ActiveWindow.Close
End Sub
Range("A1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
FilaF = ActiveCell.Row
Application.Union(Range("A1:A" & FilaF), Range("H1:I" & FilaF)).Select
Selection.Copy
Range("A1").Select
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues
FileFormat:=xlText
ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename
CreateBackup = False
Application.DisplayAlerts = True
ActiveWindow.Close
End Sub
Disculpa por no haber aclarado que era con una macro.
Ese es el código que estoy usando y funciona bien, salvo por el pequeño inconveniente de cómo queda la información.
Muchas gracias por responder tan pronto. :D
Ese es el código que estoy usando y funciona bien, salvo por el pequeño inconveniente de cómo queda la información.
Muchas gracias por responder tan pronto. :D
Prueba con una de estas formas:
El primero como rexto y el segundo como unicode
Sub solo_texto()
Dim nombre As String
nombre = "C:\Libro1.txt" ' aca pones tu ruta y nombre archivo
ActiveWorkbook.SaveAs Filename:=nombre, FileFormat:=xlText, _
CreateBackup:=False
End Sub
Sub unicode()
Dim nombre As String
nombre = "C:\Libro1.txt" ' aca pones tu ruta y nombre archivo
ActiveWorkbook.SaveAs Filename:=nombre, FileFormat:=xlUnicodeText _
, CreateBackup:=False
End Sub
El primero como rexto y el segundo como unicode
Sub solo_texto()
Dim nombre As String
nombre = "C:\Libro1.txt" ' aca pones tu ruta y nombre archivo
ActiveWorkbook.SaveAs Filename:=nombre, FileFormat:=xlText, _
CreateBackup:=False
End Sub
Sub unicode()
Dim nombre As String
nombre = "C:\Libro1.txt" ' aca pones tu ruta y nombre archivo
ActiveWorkbook.SaveAs Filename:=nombre, FileFormat:=xlUnicodeText _
, CreateBackup:=False
End Sub
