Saludos y bendiciones, escribo para ver quien pueda ayudarme con una duda, tengo el siguiente codigo para exportar los datos q tengo en mi hoja1 para un archivo txt, el cual ya he establecido ciertos parametros pero debo completar lo siguiente, el archivo txt no debe estar separado por tabulaciones, debera ser una linea entera donde cada columna es delimitada segun la posicion y tamaño q esta ocupe. ejemplo: así es el archivo original en excel: Rif: Nombre: numero de cuenta Monto: Codigo de factura: J-29365705-9 MICRO SKY 01340363503631296334 BS 73.777,51 1695 así va con el código q adjunto: J293657059 MICRO SKY 01340363503631296334 000007377751 0000001695 así debería quedar en el TXT J293657059MICRO SKY 013403635036312963340000073777510000001695 rif empieza en la posicion 1 y tiene una longitud de 10caracteres,nombre debera empezar en la posicion 11 con una longitud de 35caracteres,numero de cuenta en la posicion 46 con una longitud de 20caracteres,monto en la posicion 67 con una longitud de 12caracteres,Codigo de factura en la posicion 79 con longitud de 10 caracteres. los simbolos como "-" "," "." y "BS" los remplase x espacios en blanco con el codigo adjunto y los espacios en blancos son rellenados con ceros en los casos de monto y codigo de factura.. alguien podria ayudarme a terminar este ultimo paso? alguna idea o aporte Sub Exportando_TXT() On Error Resume Next 'Ocultamos el procedimiento Application.ScreenUpdating = False 'Cambiando los formatos para el TXT '------------------ Range("A1").Select 'recorremos para abajo fila a fila, 'hasta encontrar una vacía Do While Not IsEmpty(ActiveCell) 'reemplazamos simbolos por nada, 'o lo que es lo mismo, los quitamos 'siempre y cuando no estemos en una fórmula If Left(ActiveCell.Formula, 1) <> "=" Then ActiveCell = Replace(ActiveCell, "-", "") End If 'bajamos una fila ActiveCell.Offset(1, 0).Select Loop Range("D1").Select 'recorremos para abajo fila a fila, 'hasta encontrar una vacía Do While Not IsEmpty(ActiveCell) If Left(ActiveCell.Formula, 1) <> "=" Then ActiveCell = Replace(ActiveCell, "BS", "") ActiveCell = Replace(ActiveCell, ".", "") ActiveCell = Replace(ActiveCell, ",", "") End If ActiveCell.Offset(1, 0).Select Loop 'Defino el rango para los ceros a la izquierda segun formato Range("C1").Select Do While Not IsEmpty(ActiveCell) ActiveCell.NumberFormat = "@" ActiveCell = Format(ActiveCell, "00000000000000000000") ActiveCell.Offset(1, 0).Select Loop Range("D1").Select Do While Not IsEmpty(ActiveCell) ActiveCell.NumberFormat = "@" ActiveCell = Format(ActiveCell, "000000000000") ActiveCell.Offset(1, 0).Select Loop Range("E1").Select Do While Not IsEmpty(ActiveCell) ActiveCell.NumberFormat = "@" ActiveCell = Format(ActiveCell, "0000000000") ActiveCell.Offset(1, 0).Select Loop '------------------------------------ 'copiamos la hoja activa en un nuevo libro ActiveSheet.Copy Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues fichero = ThisWorkbook.Name ruta = ThisWorkbook.Path fichero = Replace(fichero, ".xlsx", "") fichero = Replace(fichero, ".xls", "") ActiveSheet.Select Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=ruta & "\" & fichero & ".txt", FileFormat:=xlText ActiveWorkbook.Close Application.ScreenUpdating = True End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

exportar txt sin tabular

Autor del tema gjes69
Fecha de inicio 7 May 2012

gjes69

New member

7 May 2012

Saludos y bendiciones,

escribo para ver quien pueda ayudarme con una duda, tengo el siguiente codigo para exportar los datos q tengo en mi hoja1 para un archivo txt, el cual ya he establecido...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Linea en blanco en Visual Basic Exportar txt

Respuestas: 2

14 Jul 2023

Macro Antonio

Pregunta

Macro para buscar celdas con datos, copiar y exportar a txt

Respuestas: 0

3 Dic 2019

marcosariel_lf

Pregunta

Exportar Columna de excel a TXT

Respuestas: 3

19 Abr 2017

Cacho R

Pregunta

Macro exportar Excel a txt.

Respuestas: 7

1 Feb 2017

Cacho R

Pregunta

MACRO PARA EXPORTAR A UN TXT DISTINTAS HOJAS DE UN LIBRO

Respuestas: 0

5 Oct 2016

lvfnv

Pregunta

Exportar rango como archivo txt

Respuestas: 1

1 Sep 2016

RubenF

Pregunta

exportar valores de una celda a txt

Respuestas: 5

4 Ago 2016

Macro Antonio

Pregunta

exportar hoja excel a txt - doble linea de espacio?

Respuestas: 1

18 Jul 2016

daniel.conocer

Pregunta

EXPORTAR DE EXCEL A TXT

Respuestas: 10

2 Jun 2016

Cacho R

Pregunta

Macro para exportar de excel a txt separado por punto y coma

Respuestas: 2

30 Abr 2016

lsfabian

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba