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()
>* .Paste(.Range('B7'))
> endwith
> .Visible=.t.
>endwith
Cetin