Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Memo field to excel
Message
 
 
To
25/04/2007 09:48:19
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01219676
Message ID:
01219748
Views:
19
>Basically, memo value could be transferred to Excel by following way:
>
>cMemovalue=mytable.memofield
>oExcel=CREATEOBJECT('Excel.Application')
>oExcel.workbooks.add
>WITH oExcel.workbooks[1].activesheet
>	for nLoop=1 TO MEMLINES(cMemovalue)
>		.range('A'+TRANSFORM(nLoop)).value=MLINE(cMemovalue,nLoop)
>	endfor
>endwith
>oExcel.visible=.t.
>
That may work for one record cursor.
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform