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
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Descargas.txt", FileFormat:=xlText, CreateBackup:=False
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
    End Sub
Fue uno que encontré en la pag. (Creo que es tuyo), pero quisiera saber como hago para que me copie toda la hoja, como esta solo exporta algunas celdas.

1 Respuesta

Respuesta
7
Claro que si es uno de mis códigos, y con mucho gusto lo adapto para que te guarde toda una hoja, aquí tienes el código
Sub generar_texto()
    hojita = ActiveSheet.Name
    Application.ScreenUpdating = False
    Sheets(hojita).Select
    Sheets(hojita).Copy
    ActiveWorkbook.SaveAs Filename:="C:\Descargas.txt", FileFormat:=xlText, CreateBackup:=False 'Aqui debes especificar la ruta donde deseas guardar el archivo (solo modifica lo que esta entre comillas
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Application.ScreenUpdating = True
End Sub
Ahora te pido un favor, al parecer tu pregunta se duplicó cuando la formulaste y la veo dos veces así que serías tan amable en cerrar las dos preguntas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Datos excel a archivo txt sin espacios extras

Estimados necesito por favor que me ayuden con el siguiente problema, tengo un archivo Excel que me genera mediante una macro un archivo txt con tabulaciones, pero mi problema es que al lado derecho salen espacios lo cual no se requieren y requiero...
1 respuesta

Crear una macro en excel para crear un txt

Que tal tengo un problema m gustaría que m ayudaran a resolverlo la verdad noc de macros pero la necesito que hacer así que recurro a ustedes explico el problema crear una macro que pase todo lo que esta en la columna A a un txt dl bloc de notas pero...
1 respuesta

De excel a txt con macro

Ojala me pudieras ayudar con est problemilla: Tengo un archivo excel con una hoja que esta compuesta por las siguiente información: En la columna 1: Año En la columna 2: Mes En la columna 3: Día En la columna 4: Hora En la columna 5: Dirección de...
2 respuestas

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...
1 respuesta

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

Macro para convertir un archivo de xls a txt

Necesito su ayuda para convertir un archivo de excel a txt y que la información que en excel se encuentran en columnas se guarde en un archivo txt separado por pipes en forma continua es deciar algo como esto. Antonia|rosado|carballo|calle 14|san jose.
1 respuesta

Macro exportar hoja excel a texto plano

Necesito un código para exportar el total de una hoja excel a texto plano. He encontrado por ahí una rutina que exporta una celda de la hoja creando un fichero txt : Sub exportar() Dim FileSysObj As Object Dim ArchivoTxt As Object Dim AreaTexto As...
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

Macro para enviar pdf + hoja de excel en un mismo correo a varios destinatarios

Desde Guayaquil - Ecuador, estoy realizando una programación de VBA para enviar una hoja de excel a varios destinatarios y dentro de esa hoja una rango especifico lo convierto en pdf, pero no logro enviarlos ambos en el mismo correo Mi correo es...
1 respuesta

Generar macro en excel para guardar archivo en txt

Mi archivo de excel lo genero grabando una macro y modificando la misma, el objetivo es extraer un archivo txt modificar el formato y guardarlo nuevamente en un archivo txt, los dos primeros pasos están resueltos el problema que tengo es al generar...
1 respuesta