Importar varias páginas de Excel en varias tablas de Access

A ver como lo explico, tengo que recibir varias excels con varias páginas cada día y quiero hacer una importación de cada una de las páginas de Excel en tablas distintas de Access, seleccionando manualmente que archivo importar, éste es mi código:

Option Compare Database
Function ContarHoja()
  Dim RutaArchivo As String
  Dim ObjHoja As Object
  Dim strfilename As String
  Dim objexcel As Object
  Dim i As Integer
  Dim objHojas As Object 'Integer
  Dim respuesta As String
  Dim itm As Variant
  Dim Sheetcount As Integer
  Dim lista()
   strfilename = "C:\Descargas\exceldiario\"
     If Len(Dir(strfilename)) = 0 Then
       respuesta = MsgBox("Seleccione el archivo a importar", vbYesNo + vbCritical + vbDefaultButton2, " Archivo ")
       Exit Function
     End If
   Set objexcel = CreateObject("excel.application")
   With objexcel
        .displayalerts = False
        .workbooks.Open (strfilename)
   Sheetcount = .worksheets.Count
    ReDim lista(1 To Sheetcount)
   For i = 1 To Sheetcount '.worksheets.Count
     Set objHojas = .sheets(i)
     canHojas = canHojas + 1
     lista(i) = .sheets(i).Name
    ' DoCmd. TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "importa", strfilename, True, lista(i)
   Next i
     End With
     Set objexcel = Nothing 'close
     Set ObjHoja = Nothing
End Function

Pero no me funciona como debe y no se ajustarlo.

¿Puede alguien ayudarme a ajustarlo?