Macro para abrir varios Archivos TXT

Solo aportes de interés para otros usuarios Excel
Estos foros NO son para preguntas!
Reglas del Foro En estos foros solo puedes hacer aportes Excel de interés para la comunidad (no son para hacer preguntas!)

Macro para abrir varios Archivos TXT

Notapor lerh13 » 09 Abr 2014 17:06

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!!
lerh13
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 57
Registrado: 23 Ene 2012 14:32

Volver a TUS APORTES

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado