Importar un Archivo delimitado por comas CVS

A ver si te vale esto:

Function ImportTable()
Dim dbs As Database, rst As Recordset
Dim Directory As String
Dim MyString As String


Set dbs = CurrentDb
Directorio = (Mid(dbs.Name, 1, Len(dbs.Name) - Len(Dir(dbs.Name))))

Open Directorio & "\Fichero.txt" For Input As #1

' Crea un Recordset tipo dynaset-type Recordset basado en la Tabla1.
Set rst = dbs.OpenRecordset("Tabla1")

Do While Not EOF(1)
Line Input #1, MyString
'Add a new Record
rst.AddNew
rst!Campo1 = Left(MyString, InStr(MyString, ";") - 1)
MyString = Mid(MyString, InStr(MyString, ";") + 1)
rst!Campo2 = Left(MyString, InStr(MyString, ";") - 1)
'etc.
rst.Update
Loop
' Cierra el archivo de texto.
MsgBox "Terminada la importacion"
Close #1
rst.Close
Set dbs = Nothing
End Function




"Wicho Saenz" escribió en el mensaje
news:eIkdVO$

Por medio de una macro logro hacer la importación de un archivo con
extensión CVS, pero es especificamente el archivo que le indico ahi en los
parametros de la macro.
Alguna idea para hacer una rutina para que pueda importar un archivo de

este

tipo pero sin tener que especificarle el nombre en los parametros de la
macro, sino que me de la oportunidad de escogerlo de una lista o de una
carpeta.
Algo como el concepto de "Abrir archivo"

Gracias