Шаг 46 - OLE+VFP+Excel. Меняем значения ячеек

В прошлом шаге мы получили доступ к книгам в рабочей области Excel и научились получать их имена. Но эта задача редко когда может сильно пригодиться на практике. Гораздо важнее содержимое книги.

Давайте посмотрим, как можно менять значения ячеек в листах открытой книги:

clear
oleApp = createobject("Excel.Application")
oleApp.Workbooks.Open("c:\temp.xls")
oleItem = oleApp.Workbooks.Item(1)
oleItem.Sheets.Item(1).Cells(1, 1).Value = "Ia?aua Oaae"
cCellValue = oleItem.Sheets.Item(1).Cells(1, 1).Value
? cCellValue
oleApp.Visible = .t.

Итак, мы запустили Excel, открыли книгу, в Листе 1 установили нужное значение в ячейку 1,1, а затем записали это значение в переменную VFP и вывели его на экран. Результат:

46_1.gif (7044 b)

О том, что можно сделать еще, в следующих Шагах.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Клементьев В.А - 25.08.2002