IMPORTAR UNA HOJA DE CALCULO A UNA BASE DE DATOS ACCESS:

En el supuesto de que tengamos una base de datos activa, y queremos importar una
una hoja de cálculo de Excel, tendremos que establecer una conexión con la base de
datos Activa y recurrir de nuevo a SQL para importar el rango de celdas desde Excel.
En el siguiente ejemplo, vamos a utilizar la biblioteca de ADO, para importar a nuestra
base de datos de Access un rango de celdas sin nombre de nuestro archivo de Excel:

Dim sTablaOrigen As String, sTablaDestino As String
Dim sConnect As String, sSQL As String
Dim cnnActiva As ADODB.Connection

'Establecer 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:\Carpeta\BaseDatos.mdb;"
sTablaDestino = "[Tabla de Access]"
sTablaOrigen = "[WorkSheet1$A1:M50]"

'Importar la tabla a la base de datos «Activa»
sConnect = "'C:\Mis documentos\Libro1.xls' 'Excel 8.0;HDR=Yes;'"
sSQL = "SELECT * INTO " & sTablaDestino & " FROM " & sTablaOrigen & " IN " & sConnect
cnnActiva.Execute sSQL

' Cerrar la conexión
cnnActiva.Close