Excel - Exportar datos de EXCEL a ACCESS 97

Pos: 310

Val: 9

Exportar datos de EXCEL a ACCESS 97

Publicado por Ivan (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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 3

Val: 3.136

Exportar datos de EXCEL a ACCESS 97

Publicado por Andres Leonardo (1583 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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 310

Val: 9

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....

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

Comentar

Pos: 3

Val: 3.136

Exportar datos de EXCEL a ACCESS 97

Publicado por Andres Leonardo (1583 intervenciones) el 17/07/2019 17:13:49

podrias hacer un msgbox Camino

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

Comentar

Pos: 310

Val: 9

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...

Error.rar(55,8 KB)

Valora esta respuesta

Comentar

Pos: 3

Val: 3.136

Exportar datos de EXCEL a ACCESS 97

Publicado por Andres Leonardo (1583 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

Comentar

Pos: 310

Val: 9

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...

RegisterDLL.rar(25,2 KB)

Valora esta respuesta

Comentar

Pos: 3

Val: 3.136

Exportar datos de EXCEL a ACCESS 97

Publicado por Andres Leonardo (1583 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

Comentar

Pos: 310

Val: 9

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

BDHigienizacion.rar(6,9 KB)

Valora esta respuesta

Comentar

URGENTE Ordenar Complicado

Eliminar Duplicados y sumar valores de ellos