Creacion .TXT Excel

    Estimados/as, hola!! Soy nuevo escribiendo en el foro... Tengo un excel con una macro para poder crear un .txt a partir de determinada información, necesito que incorporar en la macro un mensaje de que el .txt se ha generado correctamente. Como puedo hacerlo? Les dejo la macro, que dicho sea de paso, ya no recuerdo ni como logre hacerla...

Sub CreaTXT()
    Dim NombreArchivo, RutaArchivo As String
    Dim obj As FileSystemObject
    Dim tx As Scripting.TextStream
    Dim ht As Worksheet
    Dim i, nfilas As Integer

    NombreArchivo = "Txt_Estrella"
    RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"

    Set obj = New FileSystemObject
    Set tx = obj.CreateTextFile(RutaArchivo)
    Set ht = Worksheets(".TXT")

    nfilas = ht.Range("A1", ht.Range("A1").End(xlDown)).Cells.Count 'define cantidad de filas

    For i = 1 To nfilas

        tx.Write ht.Cells(i, "A")

        tx.WriteLine

    Next i

    tx.Close

    Set obj = Nothing

End Sub

Gracias a todos!!

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
protoplasman Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 20/Octubre/2023 Localización: Cba. Argentina Estado: Sin conexión Puntos: 1	Opciones de entrada Responder Cita protoplasman Informar de mensaje Gracias(0) Cita Respuesta Tema: Creacion .TXT Excel Enviado: 20/Octubre/2023 a las 01:10
	Estimados/as, hola!! Soy nuevo escribiendo en el foro... Tengo un excel con una macro para poder crear un .txt a partir de determinada información, necesito que incorporar en la macro un mensaje de que el .txt se ha generado correctamente. Como puedo hacerlo? Les dejo la macro, que dicho sea de paso, ya no recuerdo ni como logre hacerla... Sub CreaTXT() Dim NombreArchivo, RutaArchivo As String Dim obj As FileSystemObject Dim tx As Scripting.TextStream Dim ht As Worksheet Dim i, nfilas As Integer NombreArchivo = "Txt_Estrella" RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt" Set obj = New FileSystemObject Set tx = obj.CreateTextFile(RutaArchivo) Set ht = Worksheets(".TXT") nfilas = ht.Range("A1", ht.Range("A1").End(xlDown)).Cells.Count 'define cantidad de filas For i = 1 To nfilas tx.Write ht.Cells(i, "A") tx.WriteLine Next i tx.Close Set obj = Nothing End Sub Gracias a todos!!
	Saludos cordiales.-

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13867	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 20/Octubre/2023 a las 09:17
	Hola Protoplama, Aquí ayudamos a aprender a la gente, no solucionamos sus problemas, ya dices que no sabes ni como hiciste la macro, todo un indicio ... ¿ Que tal si intentas hacerlo, nos dices en dónde te atascas y te podemos guiar por dónde seguir ? Un saludo.
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es

lbauluz Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 29/Marzo/2005 Localización: La Gloria Estado: Sin conexión Puntos: 3847	Opciones de entrada Responder Cita lbauluz Informar de mensaje Gracias(0) Cita Respuesta Enviado: 02/Noviembre/2023 a las 12:25
	Buenas. Si lo que necesitas es un mensaje diciendo que se ha generado, lo único necesario es después de: Set obj = Nothing Poner: msgbox "generado" un saludo. Luis
	El Búho es un pajarraco