Importar hoja de excel a access con visual basic 6.0

[denmar]

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.

[vicpal]

Probablemente el nombre de la "hoja" no sea Worksheet... será hoja1, puede ser?


saludos

[lokoman]

Hola!!
Primero crea la tabla:

Código vb:

Str = "Create Table " & Trim(txtNombreBaseDatos.Text) & ".DBO."
        Str = Str & Trim(txtNombreTabla.Text) & " ("
        Str = Str & Trim(rec!campo) & " " & Trim(rec!tipo) & " " & "(" & Trim(rec!Long) & ") "
        Str = Str & Trim(rec!Key) 
        Str = Str & " DEFAULT '0')"
 
        Conn.Execute Str
 

Asegurate del nombre correcto de la hoja de excel (sTablaOrigen = "[WorkSheet1$A1:M50]"), Deberia ser:
sTablaOrigen = "[WorkSheet1$]" o sTablaOrigen = "[Hoja1$]"

Luego, puedes hacer el INSERT INTO.