• BIENVENIDO AL NUEVO FORO DE TODOEXCEL 
    Todavia estamos mejorando y configurando algunas cosas (paciencia!)
    En breve publicaremos un tutorial de uso para mejorar tu experiencia
    Comenta tus dudas o sugerencias sobre el uso de este nuevo foro desde aquí

Macro para abrir varios Archivos TXT

lerh13

New 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