Excel - Exportar datos de EXCEL a ACCESS 97

 
Vista:
Imágen de perfil de Ivan
Val: 14
Ha disminuido su posición en 6 puestos en Excel (en relación al último mes)
Gráfica de Excel

Exportar datos de EXCEL a ACCESS 97

Publicado por Ivan ivan.oramas@geaal.hidro.cu (5 intervenciones) el 16/07/2019 23:02:23
Tengo una hoja de EXCEL 97-2003 con cierta informacion que necesito llevar a una base de datos de access 97, debido a que el excel tiene programacion VBA y se me hace demasiado grande el archivo para enviarlo por correo, pudiera darle copiar a esta hoja del libro y sacarla para un nuevo libro y enviarla por correo, pero no resuelvo el problema definitivamente, porque la informacion debe entrar en un sistema desarrollado en VBA que trabaja con la base de datos desarrollada en access del 97 y entonces habria que trabscribir toda la informacion a mano, La idea es poder exportar desde el EXCEL la informacion a una BD ACCESS 97, enviarla por correo al destino y despues poderla importar desde la aplicacion de VB.

Ya he probado con los ejemplos que he encontrado en la web y ninguno me corre completo, me da diferentes errores.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.513
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Exportar datos de EXCEL a ACCESS 97

Publicado por Andres Leonardo (1294 intervenciones) el 17/07/2019 04:55:12
siempre seria importante tener una base de ejemplo para ver que estas haciendo....

ahora nativamenete deberia migrar deexcel a access sin problema

sAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ivan
Val: 14
Ha disminuido su posición en 6 puestos en Excel (en relación al último mes)
Gráfica de Excel

Exportar datos de EXCEL a ACCESS 97

Publicado por Ivan (5 intervenciones) el 17/07/2019 16:40:44
Andres

Este es el codigo VBA que tengo implementado en EXCEL al hacer click sobre el boton....

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
    Dim Db As DAO.Database
    Dim Ds As DAO.Recordset
    Dim Camino As String
    Dim MiBase As String
    Dim MiTabla As String
 
    MiBase = "BDHigienizacion.mdb"
    MiTabla = "GHigienizacion"
    Camino = Application.ThisWorkbook.Path & Application.PathSeparator & MiBase
 
    Set Db = DBEngine(0).OpenDatabase(Camino)
    Set Ds = Db.OpenRecordset(MiTabla, dbOpenSnapshot)
 
    Ds.AddNew
        Ds("Id") = 1
        Ds("FechaParte") = Hoja4.Cells(6, 2).Value
        'Idem para el resto de los campos de la base de datos
        '......
    Ds.Update
 
    Ds.Close
    Db.Close
End Sub

Cuando lo ejecuto me da error en el set de la BD, probe tambien con ejemplos que usan conection y tambien me dio errores. Por esta via seria la que mas me convendria, ya que no depende de la version de excel que tengan mis usuarios instalado.

Saludos y muchas gracias de antemano

Ivan...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.513
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Exportar datos de EXCEL a ACCESS 97

Publicado por Andres Leonardo (1294 intervenciones) el 17/07/2019 17:13:49
podrias hacer un msgbox Camino


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton1_Click()
Dim Db As DAO.Database
Dim Ds As DAO.Recordset
Dim Camino As String
Dim MiBase As String
Dim MiTabla As String
 
MiBase = "BDHigienizacion.mdb"
MiTabla = "GHigienizacion"
Camino = Application.ThisWorkbook.Path & Application.PathSeparator & MiBase
debug.print camino  ' Aqui te da la ruta de que la Base debe estar en la misma ruta del excel podrias confirmar que este correcta..
 
 
Set Db = DBEngine(0).OpenDatabase(Camino)
Set Ds = Db.OpenRecordset(MiTabla, dbOpenSnapshot)
 
 
Ds.AddNew
Ds("Id") = 1
Ds("FechaParte") = Hoja4.Cells(6, 2).Value
'Idem para el resto de los campos de la base de datos
'......
Ds.Update
 
Ds.Close
Db.Close
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ivan
Val: 14
Ha disminuido su posición en 6 puestos en Excel (en relación al último mes)
Gráfica de Excel

Exportar datos de EXCEL a ACCESS 97

Publicado por Ivan (5 intervenciones) el 17/07/2019 19:02:06
Andres

La base de datos esta en la misma carpeta donde se abtre el EXCEL, si tu crees que el codigo esta bien, entonces porque me da el error que te adjunto 429 en tiempo de ejecucion. Puede ser que me falte por incluir alguna referencia????


Ivan...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.513
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Exportar datos de EXCEL a ACCESS 97

Publicado por Andres Leonardo (1294 intervenciones) el 17/07/2019 21:43:17
A mi me parece que puede ser que no tengas correctamente registrado el componete
Verifica si tienes activada la referencia en el excel

Caso contrario
Lo que tenes que hacer es registrar la dao360.dll con el regsvr32
Es decir tenes que escribir regsvr32 dao360.dll y ya esta espero que te funcione

Esto en la system32 dobde debe estar el archivo dao360.dll

Saludos
Andres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ivan
Val: 14
Ha disminuido su posición en 6 puestos en Excel (en relación al último mes)
Gráfica de Excel

Exportar datos de EXCEL a ACCESS 97

Publicado por Ivan (5 intervenciones) el 17/07/2019 22:01:39
Andres

Cuando intento registrar la dao360.dll con el regsvr32 me da el siguiente mensaje, el cual te adjunto.

Disculpa tantas molestias,

Saludos,

Ivan...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.513
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Exportar datos de EXCEL a ACCESS 97

Publicado por Andres Leonardo (1294 intervenciones) el 17/07/2019 22:48:15
Que version de sistema operativo y office estas usando?

Lo ultimo que se me ocurre es bajarte el MDAC 2.8 de alguna url

https://www.microsoft.com/es-es/download/details.aspx?id=5793

Bajalo , luego lo instalas si puedes reinicia (Nunca esta de mas jejejjjejeje) e intenta.

Nos cuentas quedo atento ....

Saludos desde Ecuador
Andres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ivan
Val: 14
Ha disminuido su posición en 6 puestos en Excel (en relación al último mes)
Gráfica de Excel

Exportar datos de EXCEL a ACCESS 97

Publicado por Ivan (5 intervenciones) el 17/07/2019 23:18:04
Andres

Yo tengo montado Window 10 y oficce 2016, pero guardo el documento de excel como 97-2003 para que pueda ser usado por las empresas que no tienen la posibilidasd de tener PC donde se pueda instalar estas versiones posteriores de office.

Ya logre registrar la dll dao360 y en las referencias de excel la monto y me sigue saliendo el mismo error, si no fuera mucho pedirte me gustaria que tu probaras el codigo que te mande hoy en la mañana en tu maquina, para ver si a ti te da el mismo error, el cual da a la hora de ejecutar esta linea Set Db = DBEngine(0).OpenDatabase(Camino), ya no se que hacer la verdad.

Si el EXCEL no tuviera 13 MB te lo enviaria por esta via para que pudieras verlo y trataras de ejecutarlo. Si se te ocurriese otra manera de poder guardar en la BD de Access 97, la cual te adjunto aqui para que veas que es una simple BD con una sola tabla, que necesito llenar desde el EXCEL para poderla enviar por via correo a una estacion central y pueda ser importada por un sistema desarrollado en VB6 que funciona a la perfeccion.

Saludos,

Ivan...desde Cuba
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar