Использование массива объектов OLE

Работая с OLE, вы можете передавать массивы в методы и получать их обратно. П и передаче массива вы должны перед его именем поставить знак @.

Пример того, как можно передать массив Visual FoxPro в Excel, приведен ниже. В примере создается массив Visual FoxPro, элементам которого присваиваются екоторые значения. После этого запускается Excel, и в нем создается рабочая книга. Первой ячейке рабочей таблицы присваивается некоторое значение, которое затем копируется в остальные таблицы, указанные в массиве:

DIMENSION aV(3)

aV(1) = "Sheet1"

aV(2) = "Sheet2"

aV(3) = "Sheet3"

oleApp=CREATEOBJECT("Excel.Application")

oleApp.Workbooks.Add

oleI=oleApp.Workbooks.Item(1)

oleI.Sheets.Item(1).Cells(1,1).Value = 83

oleI.Sheets(@aV).FillAcrossSheets(oleI.Worksheets("Sheet1").Cells(1,1)

oleApp.Visible = .T.

Следующий пример показывает, как получить массив в Visual FoxPro и отобразить его содержимое на экране:

oleApp = CREATEOBJECT("Excel.Application")

aOleArray = oleApp.GetCustomListContents(3)

FOR nIndex = 1 to ALEN(aOleArray)

? aOleArray(nIndex)

ENDFOR

Замечание В Visual FoxPro вы не можете передавать в объекты OLE массивы размерностью ольше двух.