Собрав всё вместе получим такую процедурку на клик кнопки или иное событие по которому происходит перенос данных:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
lcOldError=On("ERROR")
on error loExcel=.NULL.
loExcel=GetObject(,"Excel.Application")
on error &lcOldError
if isnull(loExcel)
= MESSAGEBOX('Excel закрыт')
ELSE
WITH loExcel
X = .Selection.Columns.Count
Y = .Selection.Rows.Count
DIMENSION laArray(X,Y)
laArray = .Selection.Value
ENDWITH
ENDIF
SELECT Table &&Источник для грида
FOR lnCount = 1 TO X
REPLACE Table.field1 WITH laArray(lnCount, 1 ),;
Table.field2 WITH laArray(lnCount, 2 ),;
......
Table.fieldY WITH laArray(lnCount,Y)
SKIP
ENDFOR
Есть ограничения:
1) Пользователь должен так выбирать диапазон, чтобы колонок было именно Y и они соответствовали полям баз. Можно конечно определить в какой колонке грида стоит пользователь, но могут возникнуть сложности с типом данных- смотри пункт ниже.
2)Из экселя все данные получаются строкового типа, поэтому в Replace надо для этих полей выполнить преобразование (заменить laArray(x,y) допустим VAL(laArray(x,y)))
3) Диапазон, выделенный в Экселе при переносе не должен достигнуть конца таблицы.
Все эти проблемы можно решить. Но вам виднее что легче в данной ситуации - решать их или поставить пользователя в рамки.
