Puedes probar haciendo una conexión al Libro Excel:
Código:
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source= " & App.Path & "\Libro1.xls;" & _
"Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With
cn.Execute "INSERT INTO " & MiTablaSQL & " IN '" & MiBdSQL & "' SELECT * FROM [Hoja1$]"
En la primera fila de la hoja Excel tienes que tener escrito el nombre del campo de la tabla de tu BD.