Импорт данных из Excel в Access

[TYLLIKAH]

таких помощников навалом ) я не прошу решить задачу. Потому что именно конкрутно задачу я не формулировал. Мне нужно именно решение данной проблемы. Ибо всё остальное я знаю. А надеюсь здесь помощь найти, подсказку, наводку

Уважаемый kuznetsovSergey,
вот примерное решение Вашей задачи.

Код: Выделить всё

'функция упрощёного управляемого импорта из Excel
Sub excel_get()
Dim data(10, 10) As String 'буфер для хранения даных
Dim xlObj, xlWB As Object 'объект приложение и объект книга
'Запускаем Excel
Set xlObj = CreateObject("Excel.Application")
xlObj.Visible = False ' Тут же его скрываем
' Открываем определёную книгу
Set xlWB = xlObj.Workbooks.Open("D:\BASE_1.xls")
' Чиаем в книге первую страницу
i = 1
While xlWB.Sheets(1).Cells(i, 1) <> ""
j = 1
While xlWB.Sheets(1).Cells(i, j) <> ""
 data(i, j) = xlWB.Sheets(1).Cells(i, j)
 MsgBox xlWB.Sheets(1).Cells(i, j)
j = j + 1
Wend
i = i + 1
Wend
' стандарный выход
Set xlWB = Nothing
Set xlObj = Nothing

End Sub

Если возникнут вопросы всегда рад ответить.