En ocasiones sale este error
Code: Select all
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)
Code: Select all
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
desde ya gracias...