Great--thanks, Jeroen! I'm saving this one!

JR

>Hi,
>Here's an example of how easy it is to convert a foxpro table into a nice format. P.S. this example does not contain any error handling.
>
>FUNCTION EXP2XLS
>LPARAMETER lcTablename
>
>LOCAL XLApp, XLSheet, lnCounter, lnNumFields
>
>tmpsheet = sys(2015)
>
>PUBLIC &tmpsheet.
>&tmpsheet. = GetObject('','excel.sheet')
>XLApp = &tmpsheet..application
>XLApp.Visible = .t.
>SELECT(lcTablename)
>
>* Copying to excel is a lot faster then doing it cell by cell
>lcXlsFilename = ALLTRIM(SYS(2023)) + "\" + ALLTRIM(SYS(3)) + ".XLS"
>EXPORT TO (lcXlsFilename) TYPE XLS
>* Open it up
>XLApp.WorkBooks.Open(lcXlsFilename)
>XLSheet = XLApp.ActiveSheet
>
>lnNumFields = FCOUNT(lcTablename)
>* Making a nice first header line
>FOR lnCounter = 1 TO lnNumFields
> XLSheet.Cells(1,lnCounter).Value = Proper(FIELD(lnCounter))
> XLSheet.Cells(1,lnCounter).Font.Bold = .T
> XLSheet.Cells(1,lnCounter).interior.colorindex=15
> XLSheet.Cells(1,lnCounter).interior.pattern=1
>NEXT
>* Make columns as wide as largest field value
>XLSheet.Cells.Select
>XLSheet.Cells.EntireColumn.AutoFit()
>* Freezing the first line (column names)
>XLSheet.Range("A2").Select
>XLApp.ActiveWindow.FreezePanes = .T.
>
>RETURN
>
>Hope this will help some people doing some weird stuff our end-users love.