Реляционные СУБД в Visual FoxPro 8
         

Передача данных в Microsoft Excel с помощью OLE



Передача данных в Microsoft Excel с помощью OLE

В рассматриваемом примере используем данные из таблицы Cntcust для построения диаграммы распределения клиентов по городам в программе Microsoft Excel с помощью OLE-объектов.

  1. В меню File (Файл) выберите команду New (Новый), установите опиик Program (Программа) и нажмите кнопку New file (Новый файл). Откроется новое окно редактирования программ.
  2. Для установления связи с Microsoft Excel, передачи в него данных и построения диаграммы введите следующие команды:

    3. *    Создание OLE-объекта

    objExcelSheet=CreateObject("Excel.Sheet")

    objExcelSheet.Application.Visible=.T.

    objExcelSheet = objExcelSheet.Sheets[1]

    * Передача данных из таблицы CntCust в Excel SELECT CNTCUST

    nRow=0

    SCAN

    nRow=nRow+1



    objExcelSheet.Cells(nRow,1).Value= CntCust.Город

    objExcelSheet.Cells{nRow,2).Value=CntCust.Количество

    ENDSCAN

    objChart = objExcelSheet. ChartObjects.Add(100, 100, 400, 200)

    * Выделение данных и создание диаграммы objExcelSheet.

    ChartObjects(1).Chart.;

    chartwizard(objExcelSheet.Range(objExcelSheet.Cells(1,1),;

    objExcelSheet.Cells(nRow,2)),; -4100,4,1,0,1,1,"","","","")

    * Копирование диаграммы в буфер обмена Windows objExcelSheet.ChartObjects(1).Select

    obj ExcelSheet.ChartObj ects(1) .Copy

    * Закрытие сервера objExcelSheet.application.quit release

    objExcelSheet

  3. Проверьте синтаксис и запустите программу на выполнение. Результат выполнения программы представлен на рис. 21.13.

Замечание
Замечание

Наиболее простым способом формирования команд для выполнения действий над OLE-объектами является запись соответствующего макроса на сервере-приложении и использование текста этого макроса в Visual FoxPro.



Содержание раздела