Tom,
If I interpret your code correctly, you're trying to export a VFP table to Excel. Instead of using the clipboard and pasting the data into Excel you could simply open() the exported file then SaveAs() an Excel file. This should also perform much better than using DataToClip(). Here are a couple of links that discuss this issue:

- How to copy more than 16,383 records to Excel FAQ #8026
- Export data from VFP to Excel and format worksheet in Excel Message #512100

HTH

>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