Добрый день !
Делали так.

ИЗ Excel

Dim objExcel As Excel.Application
Set objExcel = New Excel.Application
i = "1"
i1 = 1
objExcel.Visible = True
objExcel.SheetsInNewWorkbook = 1
Path = IIf(Right(App.Path, 1) = "", App.Path, App.Path & "")
path_to_file = Path & "\TABREGL.xls"
objExcel.Workbooks.Open (path_to_file)
' прочитать из таблицы
Do Until i = ""
With objExcel.ActiveSheet
i4 = Cells(i1, 1)
If i4 <> "" Then
i = Cells(i1, 1) & "*" & Cells(i1, 2) & "*" & Cells(i1, 3)
VisM1.P0 = i
Value = ""
'Запись в базу
VisM1.Code = "$$Ex^PRG(.P0)"
VisM1.ExecFlag = 1
i1 = i1 + 1
End If
End With
Loop
objExcel.Quit
Set objExcel = Nothing

По примеру Из Ворд и текстового...