ГЛАВА M. МАРАЗМИ КОМП'ЮТЕРІВ, ІНТЕРНЕТУ, WINDOWS XP, VISTA, WINDOWS 7, НЕДОЛІКИ, ГЛЮКИ, НЕДОСТАТКИ, ПРОБЛЕМИ, БАГИ, МІНУСИ

При большом количестве строк в Excel при импорте получаем ошибку в VFP

У меня возникла проблема импорта данных из файлов (таблиц) Excel версий страше 5.0/95
Visual FoxPro 8.0 не импортирует и выдает ошибку:

Fatal error: Exception code=C0000005 @ 14.10.2005 10:45:27.
Импортировал командами: Append from, Import from

Оказывается, при большом количестве строк в Excel таблице при импорте получаем ошибку в VFP (1661) Visual FoxPro.

Решение - писать отдельный построчный импортер

SET COMPATIBLE ON

#DEFINE xlLastCell 11
DIMENSION laArray(1,50)

*Local loExcel
Wait window nowait "Запускается Excel ..."
&& Запуск Excel'а

oleApp = createobject("Excel.Application")
oleApp.DisplayAlerts=.F.
Wait window nowait "Открываем файл ..."
oleApp.Workbooks.Open("C:\файл.xls")

k1=6
X1=0
oleItem = oleApp.Workbooks.Item(1).Sheets.Item(1)
Wait window nowait "Определяем количество строк ..."
X =oleItem.Range("A1").SpecialCells(xlLastCell).Row
Wait window nowait " количество строк ... - "+STR(X-k1+1)
kk=k1
DO WHILE .T.
IF kk<X THEN
X1=kk+1100
IF X1>X THEN
X1=X
ENDIF
*DIMENSION laArray((X1-kk),Y)
_rng='"A'+ALLTRIM(STR(kk))+':AX'+ALLTRIM(STR(X1))+'"'
laArray =oleItem.Range(&_rng).Value
APPEND FROM ARRAY laArray
WAIT WINDOW NOWAIT 'Добавлено - '+STR(X1-k1+1)+' из '+STR(X-k1+1)
kk=X1+1
ELSE
EXIT
ENDIF
ENDDO

DIMENSION laArray(1)

oleApp.Quit
RELEASE oleApp
WAIT CLEAR

Команда COPY FILE name1 TO name2 Visual Foxpro копирует файлы только в нижнем регистре

Постійна адреса статті в Інтернеті: http://www.marazm.org.ua/windows/50_73.html