Enviar datos de un archivo CSV a una base de datos en access

[rsiles]

Por favor estoy trabajando en un sistema y necesito cargar los datos viejos que estan en excel a access, ya que son muchisimos y necesito ponerlo en marcha lo antes posible.Pero para ello me piden que cree una rutina en visual basic, que con solo apretar un boton lo efectue.

Por Favor necesito toda la ayuda que me puedan ofrecer.

[RootK]

Puedes crear una macro que abra tu archivo csv y como es un archivo separado por comas puedes ir leyendo linea y por línea....

Te pongo un ejemplo y creas una macro en excel

Sub InsertRegistries()
Dim fso As Scripting.FileSystemObject
Dim ts As TextStream

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\mi_archivo.csv", ForReading)

Dim s As String

'Leo linea por línea para insertar los valores
Do While Not ts.AtEndOfStream

s = ts.ReadLine 'guardo la línea de mi archivo
'Despues obtengo los valores de mi archivo csv
'y guardo el valor de mi variable "s" en la BD de Access (puedes
utilizar ADO

Loop

ts.Close
Set ts = Nothing

Set fso = Nothing

End Sub

Si quieres saber mas de FSO.. date una vuelta por aqui.

http://msdn.microsoft.com/library/de...gwithfiles.asp

Saludos