Други!
Где ляп?


Код выгрузки в EXCEL для создания диаграммы

fil="C:\Program Files\Microsoft Office\OFFICE11\Excel.exe"
IF FILE("&fil")=.t.

iChannel=DDEINITIATE ("EXCEL","System")
IF iChannel<0
RUN /N7 &fil
iChannel=DDEINITIATE ("EXCEL","System")
endif

nRow=0
scan
nRow=nRow+1
cRow='R'+ALLTRIM(STR(nRow))
cCell1=cRow+"C1"
cCell2=cRow+"C2"
=DDEPOKE(iChannel,cCell1,ALLTRIM(STR(workers.fio)))
=DDEPOKE(iChannel,cCell2,ALLTRIM(STR(workers.wyr)))
ENDSCAN
=DDEEXECUTE(iChannel,'[SELECT("R1C1:'+cRow+'C2")]')
=DDEEXECUTE(iChannel,'[NEW(2,3)]')
=DDETERMINATE(iChannel)
endif

--------------------------------------------

После выполнения появляются сообщения

*Удаленные данные недоступны.
*Запустить приложение EXCEL.EXE?


Потом:


*Невозможно запустить EXCEL.EXE.
*Программа или ее компоненты испорчены или отсутствуют


Потом:

*Переменная CROW не найдена


После этого EXCEL таки запускается. Пустой.


Далее

*«Прекратить»-«Продолжить»


В чем ошибка?

EXCEL – 2003, XP+Sp2, Fox7.0
Сам по себе EXCEL запускается в командном окне по run /n7 &fil

Недоходящийперед nRow=0
iChannel.documents.open(fil)

Все то же + "iChannel е является объектом"

Недоходящийзагрузка файла
objExcel = CreateObject("Excel.Application")
cFileName = "C:\Kartrid\templates\ex1.xlt"
objBook = objExcel.WorkBooks.Open(cFileName)

Опаньки!
Взял пример из известной книжки - а тут и конь не ....
Попробую.
Кстати, а значение iChannel=-1 о чем говорит?

НедоходящийКанал связи для обмена данными установить нельзя.

Отлично!..
Один компьютер, одна система... Тогда в чем проблем?

Попробовал с другого бока.

objExcelSheet=CREATEOBJECT("Excel.Sheet")
objExcelSheet.Application.Visible=.t.
objExcelSheet=objExcelSheet.Sheets[1]

nRow=0
SCAN
nRow=nRow+1
objExcelSheet.Cells(nRow,1).value=wyr_g.fio
objExcelSheet.Cells(nRow,2).value=STR(wyr_g.wyr)
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,"","","","") ***

objExcelSheet.ChartObjects(1).Select
objExcelSheet.ChartObjects(1).Copy

objExcelSheet.application.quit
RELEASE objExcelSheet


Выдает ошибку в строке ***. А вот тут что не так?