in codul inserat , doresc la sfarsit sa fac salvare cu save as

nu merge

va rog corectati / multumesc

========================================

* http://www.tek-tips.com/faq.cfm?pid=184
*

local oExcel, oSheet
oExcel = CreateObject([Excel.Application])
oExcel.Visible = .T.
oExcel.Workbooks.Add()

oSheet = oExcel.ActiveSheet
osheet.Columns("B:B").ColumnWidth = 40

lnRow = 1
lnCol = 1
oSheet.Cells(lnRow,1).Value = [FoxPro AM]

lnRow = 3
oSheet.Range([A3]).Select
oSheet.Cells(lnRow,lnCol).Value = [codpr]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 2
       
lnCol = lnCol + 1
oSheet.Range([B3]).Select
oSheet.Cells(lnRow,lnCol).Value = [denpr]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 1
       
lnCol = lnCol + 1
oSheet.Range([C3]).Select
oSheet.Cells(lnRow,lnCol).Value = [um]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 4

lnCol = lnCol + 1
oSheet.Range([D3]).Select
oSheet.Cells(lnRow,lnCol).Value = [grupa]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3

lnCol = lnCol + 1
oSheet.Range([E3]).Select
oSheet.Cells(lnRow,lnCol).Value = [proctva]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3

*
*----------------------------------------------------
*       
lnRow = 4
lnBeginRange = lnRow

open database "d:\aplicatie\baza_date\vinzari.dbc" exclusive
use produse
GO TOP
DO WHILE NOT EOF()
    lnRow = lnRow + 1
    oSheet.Cells(lnRow,1).Value = produse.codpr
    oSheet.Cells(lnRow,2).Value = produse.denpr
    oSheet.Cells(lnRow,3).Value = produse.um
    oSheet.Cells(lnRow,4).Value = produse.grupa
    oSheet.Cells(lnRow,5).Value = produse.proctva

    SKIP
ENDDO       

oexcel.SaveAs("D:\aplicatie\automation\ion.xls")
oexcel.quit()