Делаю импорт данные из таблицы .xls в таблицу .dbf
Но что-то ничего не импортируется.Что я упустил?
Local dirplan &&имя каталога с запросами
Local lstcount &&список файлов
Public appexcel, oworkbook As Object &&для работы с экселем

* Выберем каталог с файлами план-заданий в формате .xls
dirplan=Getdir('','Укажите каталог:','Выбор каталога')

* Переменная для хранения списка файлов .xls выбранной папки
lstcount=Adir(lstplan,dirplan+'*.xls')

* Создадим объект Excel
appexcel=Createobject('Excel.Application')

* Не будем показывать обрабатываемые файлы на экране
appexcel.displayalerts=.F. && отключаем служебные сообщения Excel
appexcel.Visible=.F. && а это чтобы вообще не показывать, что Excel запускается

Use shabltable In 0 Alias shabltable && откроем таблицу-шаблон
Select shabltable

For nfilecount = 1 To lstcount && перебираем все документы .xls

oworkbook = appexcel.workbooks.Open(dirplan+lstplan(nfilecount,1))
oworkbook.sheets(1).Select && переходим на нужный лист
m.lnrowcount=oworkbook.sheets(1).usedrange.Rows.Count && запоминаем адрес последней,заполненной строки

For i=2 To m.lnrowcount && сканируем лист .xls со второй строки
Replace shabltable.pole1 With Alltrim(oworkbook.sheets(1).cells(i,1).Text) && заменяем поле таблицы данными из excel
Endfor
Endfor

appexcel.Quit
Release oworkbook
Release appexcel
Release lstplan

Игорь Горбонос,
Спасибо.
Дополнил

For i=2 To m.lnrowcount && сканируем лист .xls со второй строки
Append Blank
Replace shabltable.pole1 With Chrtran(oworkbook.sheets(1).cells(i,1).Text,' ','')
Endfor