FiveTech Software tech support forums

Code: Select all  Expand view

oRange:Parent:Parent:Close( .f. )

oRange:Parent --> oSheet
oRange:Worksheet --> oSheet
oSheet:Parent --> oWorkBook

oSheet := FW_DbfToExcel()

Then directly insert rows and add your modify oSheet cells as you wish.

... programmer wants to make some additions to the excel sheeet before saving as PDF, he can do so by using bPrePdf codeblock, which is evaluated with oSheet as parameter. We can not comment on the runtime error without knowing anything about the DBF or the program code of DoShowDBF() Altenatively, ...

yo lo hago asi

LOCAL cLogo:="c:\systema\bus\ima\logo.bmp"
oSheet:Shapes:AddPicture( cLogo, .F., .T., 0, 0, 130, 50 )

saludos

In the xbrowse.prg
Please insert

Code: Select all  Expand view

SysRefresh() // insert now
return oSheet

just before return oSheet

Dear Hua,

Please try it again removing the "&" to see if that makes a difference:

::oSheet:set("Name", "A T ELEC")

oSheet:Paste()

Try

Code: Select all  Expand view

oBrw:lExcelCellWise := .t.

Thanks friend

FWH1804

9335 oWin:FreezePanes := .t. //I put it as a comment it passes

9241 oSheet:Paste() //This is the problem

... pero para que funcione el filtro la información debe empezar en el renglón inmediato indicado en el filtro: Ejemplo // Renglón de los filtros oSheet:Range("A3:Z3"):Autofilter() La información del excel debe iniciar en el renglón 4: espero haberte ayudado, a mi me funciona muy bien. ...

Estimados:

Ya que estamos una ultima pregunta, alguno logro poder usar los autofiltros de excel ?. Deberia ser x ej:

oSheet:Range("A3:H903"):Autofilter()

Pero no funcionan.

Saludos,
Daniel Puente

deberias cambiarlo por:

local oExcel := CreateObject( "excel.application" )
local oBook := oExcel:Workbooks:Add()
local oSheet := oBook:Worksheets( 1 )

Saludos

FW_AdoToExcel( cSql ) --> oSheet

This function creates a new Excel Book, exports to only sheet available, i.e., "Sheet1" and returns the Sheet object.
You can use the oSheet object and do anything with it, including rename it :
oSheet:Name := "SomeOtherName".

oSheet := oBrw:ToExcel()

Now, use the oSheet object and write in that Sheet, whatever you want to add extra.

Ya encontré en el foro la solucion: //To "Lock" or "Unlock" a cell use: oSheet:Range("A1","A10"):Locked:=.f. //(or .t. to lock) //Then to protect the locked cells: oSheet:Protect( "12345") //To Unprotect the locked cells: ...

Con esto bloqueo solo la hoja completa
oSheet:Protect( "123456" )
Que se puede hacer: ¿Des proteger las celdas que necesito ? o Indicar cuales están protegidas ?