Guardar hoja excel en txt con el nombre de una celda

He tratado de crear una macro que me guarde el area C2:O30 de una hoja como un archivo txt, con el dato que tiene escrito en la celda A1.

La ruta donde se debe guardar es una capeta que se encuentra en la misma ruta donde está el archivo.

Sub GuardarTXT()
Sheets("HOJA3").Select
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\ARCHIVO\" & Cells(1, 1) & ".txt", FileFormat:= _
xlTextMSDOS, CreateBackup:=False
End Sub

Al generar la macro se detiene por un error, pero no sé qué está mal.

1 respuesta

Respuesta
5

Prueba con esta macro

Sub atxt()
'Por.DAM
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    If Range("A1") = "" Then Exit Sub
    n = Range("A1")
    Range("C2:O30").Copy
    Workbooks.Add
    ActiveSheet.Paste
        ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\ARCHIVO\" & n & ".txt", _
            FileFormat:=xlTextMSDOS, CreateBackup:=False
        ActiveWorkbook.Close False
    MsgBox "Archivo: " & n & " creado", vbInformation, "CREAR TXT"
End Sub

Revisa que tengas en A1 un nombre válido. Revisa que exista la carpeta "ARCHIVO" en la ruta donde tienes tu archivo de la macro.

Saludos. Dante Amor

No olvides valorar la respuesta.

Gracias por responder Dante, la macro me funciona bien, pero el txt me sale con unos campos separadisimos unos de otros, eso es porque el formato que estoy copiando tiene ajustadas las columnas a un determinado ancho. ¿Hay alguna manera de que el archivo txt me conserve el formato del ancho de columnas que tiene la hoja de Excel?.

Este formato XltextMsdos, es eque venía en tu macro, antes de ejecutar la macro, guarda el archivo con diferentes formatos para que analices cuál es el que necesitas., por ejemplo, puede ser "Texto delimitado por tabulaciones", "textounicode", "Texto con formato (delimitado por espacios)", "CSV (MS-DOS)". Cuando hayas encontrado el formato que necesitas, abre nuevamente tu archivo, inicia la grabadora de macros, guarda el archivo con el formato que necesitas y revisa el código que generó la macro, obtén el formato y reemplázo en tu macro.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como crear una archivo TXT con una macro para guardar en una carpeta que también me cree la macro

Mi macro hoy en dia ya me crea la carpeta que quiero y me genera el txt con las características que necesito, lo único que sucede es que el txt me lo guarda en una dirección en especifica no en la carpeta que crea. Esto en en excel.
2 respuestas

Macro para guardar archivo de excel en txt

Que tal con ayuda de ustedes cree una macro de la siguiente forma: Private Sub CommandButton1_Click() nbre = Format(Now, "dd-mm-yy hh mm ss") ruta = ThisWorkbook.Path ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xls" End Sub Pero al guardarlo es...
1 respuesta

¿Cómo exportar un Sheet a TxT, pero en Tab Delimited?

Había preguntado anteriormente, pero la pregunta se fue al tablón, asi que mejor te pregunto a ti directamente. Es el primer Foro de Excel en que me inscribo, ya que vi queaquí si están activos :D y los felicito por tener el foro en...
1 respuesta

Macro en Excel para que me abra el cuadro "Guardar Como" pudiendo elegir destino y nombre

Necesito una macro para que al ejecutarla me abra el diálogo o como se llame "Guardar Como", que me deje elegir el nombre, que me deje elegir la ubicación y que por default lo guarde con extensión xlsm. ¿Será posible?
1 respuesta

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, estoy usando este código: ub generar_texto() Application.ScreenUpdating = False Range("A1").Select Range(Selection, Selection.End(xlDown)).Select...
1 respuesta

Múltiples Archivos planos a plantilla excel

Necesitaría una macro para poder realizar una tarea diaria donde pego los valores de un archivo plano *. Csv ( no delimitado por comas ) en una plantilla y posteriormente me grabe un excel con el nombre del archivo plano creado en la plantilla. Son...
1 respuesta

Guardar rango de datos de mi hoja de excel en formato .txt

Si me pueden ayudar con el siguiente trabajo: Manejo una hoja de excel con encabezados NIT-COD-MONTO-FACTURA-FECHA, las cuales en la parte de abajo o sea desde la fila A2 ingreso los datos correspondientes para cada encabezado, después tengo que...
1 respuesta

Macro Guardar como *.txt

Estoy Tratando de Crear una Macro para guardar un archivo de excel a formato de texto (*.txt)pero cuando utilizo la macro en otro archivo, me guarda el anterior, donde se creo la macro. Quisiera utilizar esta macro en cualquier archivo
1 respuesta

Macro para guardar archivo con diferente version de excel

Necesito una macro que me guarde un archivo .xlsx como .xls, Tengo varios archivos y los tengo que abrir y darle guardar como libro de excel 97-2003 (.xls). Grabé una macro, pero me dice que el archivo ya existe, y si lo sustituye me lo guarda con la...
1 respuesta

Macro para guardar archivo con el valor de una celda

No domino demasiado las macros pero he estado buscando en internet alguna macro para poder guardar un archivo con el nombre de una celda y he encontrado esto; Sub guardaarchivo() ' Te guarda el archivo con la extensión que requieras y en el lugar...
1 respuesta