Buenos tardes a los integrantes de este foro, en esta ocasión recurro a Uds, para que me brinde su apoyo y colaboración en comprender o mejorar la macro que se detalla acontinuación, dicha macro permite generar los datos aun archivo TXT., y mi duda es la siguiente: 1. Al ejecutar la macro desde la Hoja PLANILLA en el botón AFPNET WEB genera el archivo AFPNET.TXT como error. (archivo macro1.xlsx), 2. Cuando me dirijo y ubico en hoja AFPNET y ejecuto la macro EXPORTAR_TXT_ANCHOFIJO, genera el archivo AFPNET.TXT como OK. (archivo macro2.xls). 3. Ahora bien en el archivo macro3.xlsx, como se aprecia me indica que la hoja debe estar en la ubicación (Sheets 10) . Sub EXPORTAR_TXT_ANCHOFIJO() Dim i As Double 'Creamos automáticamente un .txt en blanco que llamamos EJEMPLO 'el archivo se creará en la misma unidad que tenemos el Excel. Archivo_txt = ThisWorkbook.Path & "\" & "AFPNET.txt" 'si queremos cambiar su ubicación basta con poner Archivo_txt = "E:\EJEMPLO.txt" Open Archivo_txt For Output As #1 With Sheets(10) fin = Application.CountA(Range("A:A")) For i = 2 To fin 'Asignamos a cada Campo la función que necesitamos aplicar Campo1 = C_Der(.Cells(i, 1), 5) Campo2 = C_Der(.Cells(i, 2), 12) Campo3 = C_Der(.Cells(i, 3), 1) Campo4 = C_Der(.Cells(i, 4), 20) Campo5 = C_Der(.Cells(i, 5), 20) Campo6 = C_Der(.Cells(i, 6), 20) Campo7 = C_Der(.Cells(i, 7), 20) Campo8 = C_Der(.Cells(i, 8), 1) Campo9 = C_Der(.Cells(i, 9), 1) Campo10 = C_Der(.Cells(i, 10), 1) Campo11 = C_Der(.Cells(i, 11), 1) Campo12 = C_Der(.Cells(i, 12), 9) Campo13 = C_Der(.Cells(i, 13), 9) Campo14 = C_Der(.Cells(i, 13), 9) Campo15 = C_Der(.Cells(i, 15), 9) Campo16 = C_Der(.Cells(i, 16), 1) Campo17 = C_Izq(.Cells(i, 17), 2) Print #1, Campo1 & Campo2 & Campo3 & Campo4 & Campo5 & Campo6 & Campo7 & Campo8 & Campo9 & Campo10 & Campo11 & Campo12 & Campo13 & Campo14 & Campo15 & Campo16 & Campo17 Next i Close End With End Sub Desde ya agradezco su apoyo y colaboración. Saludos

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.

Macro que convierte a TXT

Autor del tema SALAVERRINO
Fecha de inicio 27 Abr 2018

SALAVERRINO

Member

27 Abr 2018

Buenos tardes a los integrantes de este foro, en esta ocasión recurro a Uds, para que me brinde su apoyo y colaboración en comprender o mejorar la macro que se detalla acontinuación, dicha macro...

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

Macro que convierte una celda en una formula

Respuestas: 2

29 Ene 2012

mjrofra

Pregunta

en excel 2021 la macro que contiene on error goto no me funciona.

Respuestas: 2

2 May 2026

JSD

Resuelto

Macro que se ejecute solamente si la celda tiene datos

Respuestas: 3

3 Dic 2025

jcvelez

Pregunta

Macro de fecha estática que no se como configurar.

Respuestas: 3

29 Oct 2025

Goldfinger

Pregunta

Macro que pase info de carpeta a excel

Respuestas: 2

16 Oct 2025

Erik Lopez

Resuelto

Error en macro para buscar a medida que se escribe en un textbox

Respuestas: 2

20 Ago 2025

jcvelez

Resuelto

Por que a macro não executa?

Respuestas: 3

15 Ago 2025

Be_So_Al

Pregunta

Macro que cuente filas y refleje el numero +1 en un textbox

Respuestas: 10

28 Jul 2025

calidmn

Resuelto

Macro para cambiar de color un texto de una celda que depende de otra.

Respuestas: 4

28 Mar 2025

tauro980

Pregunta

Ayuda con la MACRO que estoy creando MACRO OSIPTEL

Respuestas: 1

5 Mar 2025

Erik Lopez

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