Перенос данных из Excel в Access

Sub Перенос()
Dim OutTable As ADODB.Recordset
 
Dim ex As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim obj As Excel.Range
Dim ExTabl(3) As Variant 'здесь задаю количество элементов массива, в этом массиве будут храниться названия файлов эксель,из которых буду копировать информацию. У меня есть много "операторов", присылающих мне информацию в одинаковых таблицах эксель. Каждый файл именую по оператору
 
ExTabl(1) = "1" 'это пример названия оператора
ExTabl(2) = "2"
ExTabl(3) = "3"
 
Dim ExTablList(12) As Variant ' так как операторы отчитываются ежемесячно, то я разослала им экселевские файлы-книги, которые содержат листы по названиям месяцев, в этих файлах операторы заполняют листы и видят информацию прошлого месяца, им так удобнее и мне тоже. Я создаю второй массив из месяцев
 
ExTablList(1) = "январь"
ExTablList(2) = "февраль"
ExTablList(3) = "март"
ExTablList(4) = "апрель"
ExTablList(5) = "май"
ExTablList(6) = "июнь"
ExTablList(7) = "июль"
ExTablList(8) = "август"
ExTablList(9) = "сентябрь"
ExTablList(10) = "октябрь"
ExTablList(11) = "ноябрь"
'ExTablList(10) = "декабрь"
Dim i, j As Integer
Dim NameList, NameBook As Variant ' переменные для хранения названия книги и листа
 
 
Set OutTable = New ADODB.Recordset 
OutTable.ActiveConnection = CurrentProject.Connection
OutTable.Open "ЛС", , adOpenDynamic, adLockOptimistic ' для ввода информации у меня в акцессе создана таблица "ЛС"
 
Set ex = New Excel.Application
For i = 1 To 3 ' берем поочередно файлы
    NameBook = ExTabl(i)
    Set wb = ex.Workbooks.Open("C:\Documents and Settings\Grigorieva\My Documents\Папка с файлами\" & NameBook & ".xls") ' задаем место хранения файла
        For j = 1 To 12 ' перебираем листы подключенного файла эксель
        NameList = ExTablList(j)
        Set ws = wb.Sheets(NameList)
        OutTable.AddNew
        
        OutTable.Fields("Отдел") = NameBook
        OutTable.Fields("Месяц") = NameList
        OutTable.Fields("Имя поля таблицы акцесс") = Nz(ws.Range("BP3"), 0) ' записываю из экселя данные в поле таблицы. Данные переносятся как текстовые. Возможно здесь я неправа и надо подумать над тем, как сделать перенос чисел. Пока времени нет подумать.                 
           остальные переносы
 
 
OutTable.Update
    Next j
    
Next i
OutTable.Close
Set OutTable = Nothing
 
Set ws = Nothing
wb.Close
Set wb = Nothing
Set ex = Nothing
MsgBox ("Все записи скопированы")
End Sub