Excel - Creacion .TXT Excel

Creacion .TXT Excel

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86804
Fecha de impresión: 26/Marzo/2026 a las 17:33

Tema: Creacion .TXT Excel

Publicado por: protoplasman
Asunto: Creacion .TXT Excel
Fecha de publicación: 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.-

Respuestas:

Publicado por: Mihura
Fecha de publicación: 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.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es

Publicado por: lbauluz
Fecha de publicación: 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