>Hi,
>I try this, the code is no syntax error, but the result no sorting by the col. A1.
>
>
>Why ?
>
>Please advise.
>
>Thanks.
#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(oExcel.Range("A1"), xlAscending,,,,,, xlGuess, 1, .f., xlTopToBottom)
ENDWITH
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
