ACCESO A EXCEL
Publicado por MANUEL (4 intervenciones) el 21/05/2004 21:09:46
Hola, tengo el motor Jet 3.6. Necesito codigo (lo más completo posible)
para abrir una base de datos en excel.
He intentado lo siguiente:
Private Sub Form_Load()
Dim db As Database
Dim rst As Recordset
Set db = OpenDatabase("C:\Documents and Settings\Administrador\Escritorio\CLIENTES.XLS")
Set rst = db.OpenRecordset("SELECT * FROM tabla1")
End Sub
y me indica al ejecutarlo que no encuentra la base de datos CLIENTES.
XLS cuando si que está. Puede que haya que activar algo en referencias.
Gracias
para abrir una base de datos en excel.
He intentado lo siguiente:
Private Sub Form_Load()
Dim db As Database
Dim rst As Recordset
Set db = OpenDatabase("C:\Documents and Settings\Administrador\Escritorio\CLIENTES.XLS")
Set rst = db.OpenRecordset("SELECT * FROM tabla1")
End Sub
y me indica al ejecutarlo que no encuentra la base de datos CLIENTES.
XLS cuando si que está. Puede que haya que activar algo en referencias.
Gracias
Valora esta pregunta
0