select (s260+s250)/s690  st1, god_real from poisk56 into cursor diagr     
  
objExcelSheet=Createobject("Excel.Sheet")
objExcelSheet=objExcelSheet.Sheets[1]
select diagr
 nRow=1
 nCol=1
SCAN
   
    objExcelSheet.Cells(nRow,1).Value=diagr.god_real
    objExcelSheet.Cells(nRow,1).ColumnWidth=22.34
    objExcelSheet.Cells(nRow,2).Value=diagr.st1
    objExcelSheet.Cells(nRow,3).Value=0.3
    objExcelSheet.Cells(nRow,4).Value=0.6
   nRow=nRow+1
   nCol=nCol+1
ENDSCAN

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

objExcelSheet.chartObjects(1).Chart.;
chartwizard(objExcelSheet.Range(objExcelSheet.Cells(1,2),objExcelSheet.Cells(nRow,4)),4,4,2,0,1,1,"Динамика показателя абсолютной ликвидности во времени","Года","Абсолютная ликвидность","с")
objExcelSheet.ChartObjects(1).Select
objExcelSheet.ChartObjects(1).Copy
objExcelSheet.chartObjects(1).Chart.ChartType = 65
 
DELETE FILE [C:\book1.xls]
objExcelSheet.SaveAs("C:\book1")

drop table grafik_main
create table grafik_main(gen1 g)  
  select grafik_main  
  append blank  
  append general gen1  FROM C:\BOOK1.XLS class "msgraph.chart"   
  THISformset.form10.Oleboundcontrol1.ControlSource = "gen1"   
  thisformset.form10.show