A ver si acaso esto te sirve... en este ejemplo se abre un archivo de excel y su contenido se vacía en una tabla de Access..
Private Sub Pasa_Archivo()
Dim Archivo As ADODB.Connection
Dim Tabla As ADODB.Recordset
Dim objExcel As excel.Application
Dim xlSheet As excel.Worksheet
Dim Salir As Boolean
Dim Valor As String
' abres el archivo en access en donde agregarás el de excel
Set Archivo = New ADODB.Connection
Set Tabla = New ADODB.Recordset
Archivo.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ejemplo.mdb;Persist Security Info=False;"
Archivo.Open
Tabla.Open "SELECT * FROM ejemplo1", Archivo, adOpenKeyset, adLockOptimistic
'abres el archivo de excel
Set objExcel = Nothing
Set objExcel = New excel.Application
objExcel.Workbooks.Open FileName:="c:\ejemplo.xls"
objExcel.Visible = False ' para que no se vea la pantalla de excel
' tienes que establecer un renglón inicial en tu archivo en excel
' como mencioné antes, el archivo en excel tiene que tener alguna similitud
' o seguir un mismo formato
Renglon = 2
With objExcel
Do
' de alguna manera tienes que definir cuántos registros vas a agregar
If .Cells(Renglon, 1) = "" Then
Salir = True
Else
Salir = False
Tabla.AddNew
Tabla("nombre") = .Cells(Renglon, 1)
Tabla("domicilio") = .Cells(Renglon, 2)
Tabla("telefono") = .Cells(Renglon, 3)
Tabla.Update
Renglon = Renglon + 1
End If
Loop Until Salir
End With
' terminado... la tabla ya tiene agregados los
' registros que estaban en excel, ahora se cierran las tablas
' y se libera la aplicación del excel
Tabla.Close
Archivo.Close
objExcel.Workbooks.Close
Set objExcel = Nothing
End Sub
Partimos de la suposicion que el archivo "ejemplo.xls" está ubicado en "C:\", ese archivo tiene que existir y tiene que estar de la siguiente manera (en el ejemplo del código que puse...)
Nombre Domicilio Teléfono
JUAN PEREZ AV. DE LA AMISTAD Nº 465 5698-6985
JOSE LOPEZ BLVD. LIBERTADORES Nº 987-A 6598-7896
O sea, la celda A1 contiene el texto "Nombre"
Al igual debe de existir un archivo en Access llamado "ejemplo.mdb", igualmente ubicado en "C:\", el cual debe contener una tabla llamada "ejemplo1".
Ya de ti dependerá controlar los errores en caso de que el archivo "ejemplo.xls" no exista y otras cosillas más..
Ojalá esto te sirva..
SALUDOS
