Abrir archivo .txt

Hola Carlos, si lo que quieres es establecer un dialogo para elegir el
archivo, puedes utilizar una herramienta llamada CommonDialog, esta la puedes
implementar dando clic derecho en el cuado de herramientas, para
implementarla debes invocarla de alguna manera, bien sea con un
commmandButton o desde el mismo metodo Initizalize del formulario y manipular
sus propiedades para obtener el varlor del archivo escogido, etc.. Ej.
CommonDialog1.ShowOpen

"" escribió:

Hola a todos,

tengo una duda, a la hora de desarrollar un macro capaz de abrir un
archivo .txt (de nombre variable - es decir debería poder elegir que
archivo abrir cada vez) y luego posteriormente ir aceptando los pasos
para importar el formato a .xls.

Que debo poner enn el codigo para que me deje elegir el archivo que yo
quiera cada vez?

Un saludo
Gracias

Utiliza este código

Sub OpenF()
Dim wb As Workbook
Fname = Application.GetOpenFilename(("Text Files (*.txt), *.txt", "Abrir
El Archivo a Trabajar")
If Fname = False Then Exit Sub
For Each wb In Application.Workbooks
If wb.Path & "\" & wb.Name = Fname Then
MsgBox "Archivo " & wb.Name & " Ya esta Abierto", vbInformation,
"Abrir Archivo"
Exit Sub
End If
Next
Workbooks.Open (Fname)
end sub


"" escribió:

Hola a todos,

tengo una duda, a la hora de desarrollar un macro capaz de abrir un
archivo .txt (de nombre variable - es decir debería poder elegir que
archivo abrir cada vez) y luego posteriormente ir aceptando los pasos
para importar el formato a .xls.

Que debo poner enn el codigo para que me deje elegir el archivo que yo
quiera cada vez?

Un saludo
Gracias

Muchas gracias por tu ayuda, el código me ha servido.

Siento no haber podido responder antes he estado sin acceso a internet