I think it may be up to 1024 now, but you're right. We wound up scrapping this because our memo fields are bigger than that. i wound up just creating an Excel sheet with a line for each memo line.
________________________________ From: Richard A. Mertl <rame...@sympatico.ca> To: profox@leafe.com; profoxt...@leafe.com Sent: Wednesday, January 25, 2012 1:05 PM Subject: RE: Foxpro and Excel question Keep in mind that the character limit in Excel is 255. You might end up loosing data. Richard A. Mertl, C.A. T 514 885 4257 F 514 481 6196 E rame...@richardamertl.ca W www.richardamertl.ca Member of L'Ordre des comptable agrees du Quebec Member of The Ontario Institute of Chartered Accountants Member of The Association of Certified Fraud Examiners Member of The Canadian Tax Foundation Certfied Quickbooks ProAdvisor -----Original Message----- From: profoxtech-boun...@leafe.com [mailto:profoxtech-boun...@leafe.com] On Behalf Of Michael Madigan Sent: January 24, 2012 12:51 AM To: profoxt...@leafe.com Subject: Re: Foxpro and Excel question Thanks Fred. ________________________________ From: Fred Taylor <fbtay...@gmail.com> To: ProFox Email List <profox@leafe.com> Sent: Monday, January 23, 2012 8:15 PM Subject: Re: Foxpro and Excel question You need to set the VerticalAlignment for all cells or even columns to be: #DEFINE xlTop -4160 .VerticalAlignment = xlTop Fred On Mon, Jan 23, 2012 at 6:06 PM, Michael Madigan <mmadi10...@yahoo.com>wrote: > I got this code from the internet to extract memo fields from foxpro into > excel > cTabla = GETFILE("dbf") > oExcel = Createobject("Excel.Application") > oExcel.WorkBooks.Add > sele &cTabla > Set Talk Off > nNumRegExp = Reccount() && Total records > For i = 1 To nNumRegExp > WAIT WINDOW "Exporting data: "+STR(i) nowait > IF i =1 && fields' titles > FOR J = 1 To Fcount() > oExcel.ActiveSheet.cells(i,J).Value= Field(J) > NEXT > ENDIF > For J = 1 To Fcount() && Content > oExcel.ActiveSheet.cells(i+1,J).Value = > IIF(TYPE(Field(J))=="G",CHR(34)+FIELD(J)+CHR(34),IIF( EMPTY(Eval(Field(J))) > ,"", EVALUATE(FIELD(J)) ) ) > Next > Skip > Next > lnombre = "C:\Result.xls" > ERASE (lnombre) > oExcel.ActiveWorkBook.SaveAs(lnombre) > oExcel.ActiveWorkBook.Close > oExcel.Quit > > > The problem is that if I turn on word wrap, the cells to the left appear > at the bottom of the cell instead of the top. How do i change it so that > the one-line cells stay at the top of the cell when the memo cells are > using word wrap and may be 20 or 30 lines long? > > --- StripMime Report -- processed MIME parts --- > multipart/alternative > text/plain (text body -- kept) > text/html > ---[excessive quoting removed by server] _______________________________________________ Post Messages to: ProFox@leafe.com Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/1327517877.90741.yahoomail...@web125605.mail.ne1.yahoo.com ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
