
23/06/2006, 15:52
|
| | Fecha de Ingreso: junio-2006
Mensajes: 2
Antigüedad: 18 años, 10 meses Puntos: 0 | |
Importar hoja de excel a access con visual basic 6.0 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. |