Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Text values > length 255 won't *quite* go into Excel 200
Message
De
26/04/2001 17:40:30
 
 
À
26/04/2001 15:45:47
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
00500341
Message ID:
00500427
Vues:
22
Jim --

I haven't encountered this problem, but here's something to try.

Test the string to see if it's longer than 255. If so, put in a loop and assign only 254 characters at a time to the cell. Perhaps that would emulate the manual insertion of characters.
cMemoRest = cMemoText
nMemoLen = MIN (LEN (cMemoRest), 254)
DO WHILE nMemoLen > 0
    cMemoInsert = LEFT (cMemoRest, nMemoLen)
    mysheet.activecell.Value = mysheet.activecell.Value + cMemoInsert
    cMemoRest = IIF (nMemoLen < LEN (cMemoRest), SUBSTR (cMemoRest, nMemoLen + 1), "")
    nMemoLen = MIN (LEN (cMemoRest), 254)
ENDDO
Jay
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform