>>Hi
>>I have a code that populate data in excel.
>>Every thing is good but I have few small problems:
>>1. I have a graph in the excel with title base on total of my data, how can I feel the graph title with code.
>>2. The excel file open as read only (I can write but to save only with other name), how can I change it?
>>3. My graph showing total from 1998 till 2005, But my uery will bring another line next year (2006) and another in the year after, how can I tell the graph to show all the years?
>>
>>Here is the code:

#include c:\reports\others\xl97cons.h
>>#define xltrue -1
>>#define xlfalse 0
>>
>>local oexcel, osheet
>>oexcel = createobject("Excel.Application")
>>oexcel.visible = 0  && for debugging
>>oexcel.workbooks.open("c:\exc\test.xls")
>>osheet = oexcel.activesheet
>>nline=2
>>select t2
>>scan
>>    nline=nline+1
>>    iyear=int(t2.year)
>>    icount=int(t2.count)
>>   iall=int(t2.all)
>>    osheet.cells(nline,2).value =iyear
>>    osheet.cells(nline,3).value = icount
>>    osheet.cells(nline,4).value = iall
>>endscan
>>
>>oexcel.visible = -1   && for debugging
>>
>>osheet.parent.saved = xltrue
>>
>>

>>Thanks
>
>Chaim,
>You're filling the cell values in the worst style you could ever find:( Anyway it wouldn't matter much for few rows and columns. Here is a sample answering your questions partially:
>
>

>Create Cursor _sample (Year b(2),Count b(2),All b(2))
>For ix = 1 To 10
> Insert Into _sample Values ;
>  (1997+m.ix,;
>  Rand()*1000,;
>  Rand()*1000)
>Endfor
>
>Local lcTemp
>lcTemp = Forcepath( Sys(2015)+'.txt',Sys(2023) )
>Select Int(Year),Int(Count),Int(All) From _sample Into Cursor crsData
>Copy To (m.lcTemp) Type Delimited With Tab
>_Cliptext = "Year"+Chr(9)+"Count"+Chr(9)+"All"+Chr(13)+Filetostr(m.lcTemp)
>Erase (m.lcTemp)
>
>#include xlconstants.h
>
>Local oexcel
>oexcel = Createobject("Excel.Application")
>oexcel.workbooks.Add
>oexcel.Visible = .T.
>With oexcel.ActiveWorkBook.ActiveSheet
> .Range('B2').PasteSpecial
> oRange = .Application.Selection
> With oRange
>  oChartRange  = .Range(.Cells(0,1), .Cells(.Rows.Count-1, 2))
>  oLabelsRange = .Range(.Cells(1,0), .Cells(.Rows.Count-1, 0))
> Endwith
> .ChartObjects.Add(200, 10, 300, 300)
> With .ChartObjects(1).Chart
>  .SetSourceData(oChartRange, xlColumns)
>  .hastitle = .T.
>  .haslegend = .T.
>  .ChartTitle.Caption = "My Custom Chart Title"
>  .ChartType = xlColumnClustered
>  .SeriesCollection(1).XValues = oLabelsRange
> Endwith
>Endwith
>

If you base your chart on a pivot table then you wouldn't need adjustments on ranges but simply provide new data for your pivot.
>Cetin
Hi I m sorry that I respond so late.
Any way, I didn't find any way to update pivot table with more rows even directly manually in excel.