>Hi,
>
>I want to sort a column in a Excel worksheet.
>how to code the sorting statement ?
>I record it in excel macro, but the syntax not valid in VFP9.
>
>Please advise.
>
>Thanks.
>
>

>lnLastRow = oExcel.activesheet.UsedRange.Rows.Count
>oExcel.activesheet.Range("A1:G"+TRIM(PADR(lnLastRow,11))).select
>Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
>

#define xlAscending   1
#define xlGuess       0
#define xlTopToBottom 1

lnLastRow = oExcel.activesheet.UsedRange.Rows.Count
oExcel.activesheet.Range("A1:G"+TRIM(PADR(lnLastRow,11))).select
WITH oExcel.Selection
     .Sort("A1", xlAscending,,,,,, xlGuess, 1, .f., xlTopToBottom)