En ocasiones sale este error
Code: Select all | Expand
Application=========== Path and name: C:\winvent\wcta.exe (32 bits) Size: 4,358,656 bytes Time from start: 0 hours 3 mins 48 secs Error occurred at: 16/04/2008, 12:05:15 Error description: Error 28949508/3 DISP_E_MEMBERNOTFOUND: PASTE Args:Stack Calls=========== Called from: win32ole.prg => TOLEAUTO:PASTE(0) Called from: TSBROWSE.PRG => TSBROWSE:EXCELOLE(3888) Called from: General.PRG => (b)MENU_TSB(1096)
viendo los fuentes
Code: Select all | Expand
IF Len( cText ) > 20000 oClip := TClipBoard():New() oClip:Clear() oClip:SetText( cText ) cCell := "A" + Alltrim( Str( nStart ) ) oRange := oSheet:Range( cCell ) oRange:Select() oSheet:Paste() // aqui se produce el error oClip:End() cText := "" nStart := nLine + 1 EndIf
Como evitar que se caiga el sistema cuando se produce el error, ya que aveces sale....
desde ya gracias...