• 👏 Bienvenido a nuestra comunidad Excel

    ¿Todavía no estás registrado? 😲

    Registrate gratis aquí y podrás:

    💪 Hacer preguntas a los expertos
    ⬇️ Descargar ejemplos y plantillas
    🏅 
    Acceder a contenidos premium

Macro para abrir varios Archivos TXT

lerh13

Member
Hola a todos:

Les comparto una macro que encontré en la web, esta sirve para abrir varios archivos TXT.

Sub abrirTXT()
'Defines the variable as a variant data type
Dim X As Variant

'Opens the dialog
X = Application.GetOpenFilename _
("Text Files (*.txt), *.txt, Add-in Files (*.txt), *.txt", 2, _
"Open My Files", , True)

'Loops through every file that is selected and opens each one
For Y = 1 To UBound(X)
Workbooks.Open X(Y)
Next

End Sub

Espero que les sea de mucha utilidad. :) :) :) :)

Saludos!!
 
Arriba