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/CAJCBksqDPDxG0QqHRoQek8vNW=wakdctdvos28dwtpwhv8w...@mail.gmail.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.
