*--This is just for this example -
*--I used a table named insured to create a spreadsheet named insuredtest.xls
USE INSURED
COPY NEXT 200 to C:\insuredtest.xls TYPE XLS
USE IN INSURED

loExcel = Createobject('Excel.Application')
loExcel.workbooks.Open('C:\insuredtest.xls') && open my test spreadsheet
loExcel.Visible = .T.
With loExcel.ActiveWorkbook.ActiveSheet
 .UsedRange.RowHeight = 20
Endwith
*--Freezepane
loExcel.windows.item(1).freezepanes = .T.  && freezepanes