Profox > Forum

Scriere date finale in fisier Excel.

4/9/2008 11:52:50 AM

123 posts

Cum pot scrie intrun fisier excel datele selectate in urma unei comenzi select?

Folosesc ceva de genul :

SELECT date,time,event, From F:\raport Right Join C:\urmariti cardnumber == cardnumber;

ORDER BY desc2,date, Asc INTO TABLE F:\Tabela0409

With oExcel

.Workbooks.Add

.Visible = .T.

ncurrent_row=0

scan

ncurrent_row = ncurrent_row + 1

With .ActiveWorkbook.ActiveSheet

FOR i=1 TO FCOUNT()

cfield=FIELD(i)

oExcel.cells(ncurrent_row,10).numberformat="@"

oExcel.cells(ncurrent_row,16).numberformat="@"

oExcel.cells(ncurrent_row,i).value=&cfield

oExcel.cells(ncurrent_row,40).formula="="+columnl(30)+columnl(35)

ENDFOR

Endwith

endscan

Endwith

Codul de scriere in fisier excel este de pe foxite,dar nu merge in exemplul meu.Ma puteti ajuta?

Va multumesc

4/9/2008 3:37:22 PM

840 posts

La o prima privire:

cele 4 oExcel.cells ar trebui sa fie .cells ...samd

Si la final nu vad un Save

Florin Aparaschivei - Iasi

Page 1 of 1