new bug xBrowse ToExcel()

[MOISES]

Event description: (DOS Problem -2147352567) WINOLE/1007 No se puede obtener la propiedad Paste de la clase Worksheet. (0x800A03EC): Microsoft Excel

Stack Calls
===========
Called from: => TOLEAUTO:PASTE( 0 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:TOEXCEL( 9880 )
Called from: .\source\function\XBROWSER.PRG => (b)XBROWSE( 176 )

Lines source\classes\xbrowse.prg

Code: Select all  Expand view

                 if Len( cText ) > 16000
                     ::oClp:SetText( cText )
                     oSheet:Cells( nPasteRow, 1 ):Select()
         here->            oSheet:Paste()

Thank you.

[driessen]

Hallo,

It looks to me a OLE problem within your Office.
Try to run a repair of your Office.

[MOISES]

Thank you.

In the same PC, export to Excel in Report works perfect.

Also, a TRY/CATCH error control is missing.