Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Excel - Unable to get Paste property of Worksheet class
Message
From
10/06/2001 17:11:07
 
 
To
10/06/2001 10:09:46
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00513987
Message ID:
00517575
Views:
128
Looks like the Windows clipboard is NOT available from within a DLL.

Back to the drawing board...

>Cetin, even after the change you suggested I am still getting the following
>error:
>
>OLE IDispatch exception code 0 from Microsoft Excel: Unable to get the Paste property of the Worksheet class..
>
>SELECT c_sum2
>
>lcFile = SYS(2015)+".TXT"
>COPY TO (lcFile) DELIMITED WITH TAB
>_CLIPTEXT = FILETOSTR(lcFile)
>ERASE (lcFile)
>
>
>USE IN c_sum2
>
>WITH .oExcel.ActiveWorkBook.ActiveSheet
> .Range("A1").Select()
> .Paste()
>ENDWITH
>
>
>>>I should have also include that the error number was '800a01ad'
>>>
>>>>The following code works without any issue in a regular VFP Class:
>>>>
>>>> SELECT c_sum2
>>>> GO TOP
>>>> Application.DataToClip(,,3) && copy data to clipboard delimited with tabs
>>>> USE IN c_sum2
>>>> This.oExcel.Range("A1").Select()
>>>> This.oExcel.ActiveSheet.Paste()
>>>>
>>>>However the last line [.ActiveSheet.Paste()] creates the following
>>>>error when I run this thru a registered DLL:
>>>>
>>>> Error in line 161 OLE IDispatch exception code 0 from Microsoft Excel:
>>>> Unable to get the Paste property of the Worksheet class.. 429
>>>>
>>>>Any ideas on how this can be resolved? I tried both application.datatoclip()
>>>>and the _CLIPTEXT = FILETOSTR(file) techniques to no avail
>>
>>Tom,
>>What's this.oExcel ? Excel.Application or WorkBook, WorkSheet ?
>>In first line it sounds to be a worksheet :
>>This.oExcel.Range("A1").Select()
>>
>>These would work :
>>
application.datatoclip('customer',reccount(),3)
>>oExcel=createobject('Excel.Application')
>>with oExcel
>> .Workbooks.Add
>> with .ActiveWorkBook.Activesheet
>>  .Paste()              && Pastes at default A1 range
>>*  .Paste(.Range('B7')) && Paste starting from B7
>> endwith
>> .Visible=.t.
>>endwith
Cetin
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform