*!*Предполагается что таблица proba.dbf имеет около 20 строк
*!*поля nas c(20), dola n(3)

CLOSE ALL
SET DATE GERMAN

#DEFINE TRUE .T.
#DEFINE FALSE .F.
#DEFINE RPT_FONTNAME "arial"
#DEFINE RPT_FONTSIZE 14

public oXLChart1
oXLChart1 = GetObject('','excel.chart')
oXLChart1.application.charts[1].haslegend = .F.
oXLChart1.application.visible = .t.
oXLChart1.application.worksheets(1).cells().clear
oXLChart1.application.charts[1].SeriesCollection().count

WITH oXLChart1.application.worksheets(1)
oXLChart1.application.charts[1].autoformat(-4100,1)

USE C:\proba.dbf
GO TOP
lnRow = 1
SCAN
.Cells(lnRow,1).value = nas
.Cells(lnRow,2).value = dola
lnRow = lnRow+1
ENDSCAN
ENDWITH