Importar hoja exvel a access

[intercgi]

Mira de usar este código.Recorre las filas que le indicas y almacena el valor de la celda para despues hacer un insert o update de la tabla en ACCESS

'VARIABLES GLOBALES
'Excel
Public ArchivoExcel As String
Public NomHoja As String

'Global msExcelApp As Excel.Application
Public msExcelApp As Object
Public msExcelFichero As Excel.Workbook
Public msExcelHoja As Excel.Worksheet

Public DB As Database

'CODIGO EN UNA FUNCION
Set msExcelApp = CreateObject("Excel.Application")
msExcelApp.Visible = False
Set msExcelFichero = msExcelApp.Workbooks.Open(ArchivoExcel)
Set msExcelHoja = msExcelFichero.Worksheets.Item(msExcelHoja )

FilaInicio = 1
Filafin = 100

For Fila = FilaInicio To Filafin

'Numero Pedido
Celda = "A" & Fila
ValorCelda = ""
On Error Resume Next
ValorCelda = Trim(msExcelHoja.Range(Celda))
On Error GoTo 0
NumeroPedido = CInt(ValorCelda)

'Cliente
Celda = "B" & Fila
ValorCelda = ""
On Error Resume Next
ValorCelda = Trim(msExcelHoja.Range(Celda))
On Error GoTo 0
NumeroProveedor = ValorCelda


'AQUI HACES UN INSERT DE LOS VALORES SELECCIONADOS EN LA FILA DEL EXCEL.

Next Fila
On Error Resume Next
msExcelFichero.Close
msExcelApp.Quit
Set msExcelHoja = Nothing
Set msExcelFichero = Nothing
Set msExcelApp = Nothing
On Error GoTo 0