Buenas compañero!
Pues bien primero debes crear un objeto de excel tal que asi:
Dim MiExcel as Object
Declaras tu Base de Datos en otra variable
Dim MiBD as Database
Partiré desde la perspectiva que ya sabes abrir la Base de datos y que sabes hacer un Recordset.
Cuando tengas la Base de datos abierta, te encargas de Excel de esta manera.
Set MiExcel=GetObject(TuArchivo de Excel.xls)
En este momento tienes ya el libro de excel ABIERTO en tu variable.
Ahora solo debes hacer un bucle WHILE que controle el final del fichero de Excel y vas montando una select que ejecutaras en tu variable de la BD. Un ejemplo seria esto:
While len(MiExcel.Worksheets("Pestaña").Cells(Fila, Columna)))) <> 0
x=x+1
SQL="Insert into TuTabla (campo1,campo2,campon) values ("
sql=sql & MiExcel.Worksheets("Pestaña").Cells(X, Columna)))
TuBD.execute(sql)
wend
Es sencillo, pero aveces da problemas, se cuelga y eso, pero si la hoja de excel que quieres traspasr no es muy grande no los tendras.
Espero que te haya servido de ayuda, para cualquier problema me envias un emilio....
A10 DANY
