wait'Espere Un Momento Exportando Datos' window nowait


TmpSheet=GetObject('','Excel.Sheet')
XLApp=TmpSheet.Application
XLApp.visible=.T.
XLApp.workbooks.add()
XLSheet=XLApp.ActiveSheet

XLSheet.Cells(1,2)=vencabezado1
XLSheet.Cells(1,2).font.bold=.T.
XLSheet.Cells(1,2).font.size="9"
XLSheet.Cells(1,2).font.name="Arial"

XLSheet.Cells(2,2)=vencabezado2
XLSheet.Cells(2,2).font.bold=.T.
XLSheet.Cells(2,2).font.size="9"
XLSheet.Cells(2,2).font.name="Arial"

XLSheet.Cells(4,1)=" CLAVE"
XLSheet.Cells(4,1).font.bold=.T.
XLSheet.Cells(4,1).font.size="9"
XLSheet.Cells(4,1).font.name="Arial"

XLSheet.Cells(4,2)=" DESCRIPCIÓN"
XLSheet.Cells(4,2).font.bold=.T.
XLSheet.Cells(4,2).font.size="9"
XLSheet.Cells(4,2).font.name="Arial"

XLSheet.Cells(4,5)=" PRECIO"
XLSheet.Cells(4,5).font.bold=.T.
XLSheet.Cells(4,5).font.size="9"
XLSheet.Cells(4,5).font.name="Arial"

fila=6

selec mitabla
go top
do while .not. eof()
XLSheet.Cells(Fila,1)=clave
XLSheet.Cells(Fila,2)=descripción
XLSheet.Cells(Fila,5)=precio
fila=fila+1
skip
enddo