Importar hoja excel a access con visual basic 6.0

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