q1w1e1Ну я пришел к этому формату в результате проб и ошибок.... :-) Перебор ячеек экселя из фокса. когда заполнено за 50000 ячеек, очень долгий процесс(по крайне мере на моей машине), Impot из экселя(или APPEND FROM), тоже не не совсем удачный вариант(по моему мнению), т.к. нет единого формата(не понятно в какой версии делаи файл экселя), поэтому минимум команд открыл, записал как CSV, и далее в фоксе APPEND FROM TYPE CSV, мне показалось так удобней....:-)
Применительно к FoxPro можно использовать экспорт/импорт через массив. Единственное ограничение - это ограничение на количество ячеек массива в FoxPro. Для версий младше VFP9 не должно быть больше 65 тысяч ячеек и все данные не должны занимать более 2ГБ. Также следует учитывать тот факт, что через массивы нельзя передать содержимое мемо-полей.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
* Массив для экспорта должен иметь область видимости Private
* поскольку передается в процедуру parserArray
Dimension testArray(2,5)
testArray[1,1] = 1
testArray[1,2] = 'Один'
testArray[1,3] = 1.01
testArray[1,4] = Date()
testArray[1,5] = .f.
testArray[2,1] = 2
testArray[2,2] = 'Два'
testArray[2,3] = 2.02
testArray[2,4] = Date() + 10
testArray[2,5] = .t.
oExcel = CREATEOBJECT("Excel.Application")
oBook = oExcel.workbooks.add
oExcel.visible = .T.
* Для исследования вопроса о том, как будет происходить экспорт/импорт
* в случае если в Excel есть объединенные ячейки
*!* oBook.Sheets(1).Range("C1:D1").merge()
*!* oBook.Sheets(1).Range("C2:D2").merge()
*!* oBook.Sheets(1).Range("A1:A2").merge()
********************************
* Запись массива в Excel
* Только через процедуру и никак иначе (!)
********************************
oBook.Sheets(1).Range("A1:E2").value = parserArray("testArray")
********************************
* Чтение из Excel в Массив
* Область видимости массива с полученными данными может быть любой
* размерность массива будет автоматически изменена после чтения из Excel
********************************
Local laArray(1)
laArray = oBook.Sheets(1).Range("A1:E2").value
* Смотрим, что прочитали
For lnI = 1 to Alen(laArray, 1)
?'строка '+ Transform(m.lnI) + ': '
For lnJ = 1 to Alen(laArray,2)
??' '
??laArray[m.lnI,m.lnJ]
EndFor
EndFor
********************************
* Обязательно должна быть оформлена отдельная процедура
* Для "распарсивания" массива при экспорте в Excel
PROCEDURE parserArray
LPARAMETERS taarrayname
RETURN @&taarrayname
