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
---
_______________________________________________
Post Messages to: [email protected]
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/[email protected]
** 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.
