Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Memo field to excel
Message
De
25/04/2007 10:04:23
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01219676
Message ID:
01219754
Vues:
17
>>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.

Add scan, and you will get it for all records.
Edward Pikman
Independent Consultant
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform