denmar
28 de Junio del 2006

hola y gracias de antemano
Tengo unas tablas en Excel y deseo pasarlas a tablas en Access por medio de visual basic 6.0

Encontr茅 un c贸digo y lo estoy empleando que hace la importaci贸n pero no se bien como funciona por que me sale el siguiente error.

Error: -2147217865 (80040e37)

El motor de base de datos Microsoft jet no pudo encontrar el objeto 聭Worksheet1$A1:M50聮 Aseg煤rese que el objeto existe聟..

El c贸digo que estoy usando es el siguiente:
Dim sTablaOrigen As String, sTablaDestino As String
Dim sConnect As String, sSQL As String
Dim cnnActiva As ADODB.Connection

\' Establezco la conexi贸n con la base de datos de Access,
\' la cual ser谩 la base de datos "Activa"
Set cnnActiva = New ADODB.Connection
cnnActiva.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\IEEA\BASEDATOS.mdb;"

sTablaDestino = "[NUEVO]"
sTablaOrigen = "[WorkSheet1$A1:M50]"

\' Importo la tabla a la base de datos "Activa"
sConnect = "\'C:\IEEA\book.xls\' \'Excel 8.0;HDR=Yes;\'"

sSQL = "SELECT * INTO " & sTablaDestino & " FROM " & sTablaOrigen & " IN " & sConnect
cnnActiva.Execute sSQL

\' Cierro la conexi贸n
cnnActiva.Close
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'



Tal vez estoy asignando mal las tablas ademas no se si la tabla de access (sTablaDestino) ya debe estar hecha en Access o este c贸digo la crea.
No se si se requiere de alguna referencia que estoy pasando por alto o que pasa.

Si alguien puede ayudarme se lo agradecer铆a mucho.

CSDK
28 de Junio del 2006

solo cambia el wortshet por hoja1 o el nombre de tu hoja a exportar