| franespi |  |
|
2010-06-14 19:40 - Respuestas: 0 - Tema nº: 2693143
hola
estoi haciendo una macro desde exel para pasar unos datos a unas tablas de access
pero en la instruccion para abrir la base de datos . me sale "no se reconoce formato de base de datos" la instruccion es la siguiente
sub daofromexceltoaccess()
' datos de exportaciones de la hoja de computaciones activa a una tabla en una base de datos de access
' este procedimiento debe ser corregido antes del uso
dim db as database, rs as recordset, ped as recordset, r as long
dim dbpath as string
dbpath = "c:\my dropbox\empresa\repara-espinosa\repara-espinosa .accdb"
set db = opendatabase(dbpath) ' aqui me sale el error"
' abra la base de datos
set rs = db.openrecordset("clientes", dbopentable)
set ped = db.openrecordset("pedidos", dbopentable)
' consiga todos los archivos en una tabla
' r = 1 ' la fila de principio en la hoja de computaciones
'do while len(range("a" & r).formula) > 0
' repita hasta la célula primero vacía en la columna a
'with rs
rs.addnew ' create a new record
ped.addnew
' añada valores a cada campo en el registro
rs.fields("poliza") = range("c11").value
ped.fields("comptador") = range("o11").value
rs.fields("dni") = range("o13").value
' añada más campos si es necesario...
ped.update ' almacena el nuevo registro
rs.update ' almacena el nuevo registro
'end with
' r = r + 1 ' next row
' loop
rs.close
set rs = nothing
ped.close
set ped = nothing
db.close
set db = nothing
end sub
os agrdeceria buestra ayuda
gracias
| |
|
|
