Excel - Sort helpThis is a discussion on Excel - Sort help within the xharbour forums in Programming Languages category; Dear Friends, with this code in 2007 excel version work well but in 2003 excel version generate an error: [insert this code in my previous post after TRY of label // Fase di impostazione per la stampa] nColOrder := 3 WITH OBJECT oExcel:ActiveWorkbook:Worksheets(acName[nPos]):Sort() :SortFields:Clear() :SortFields:Add( oSheet[nPos]:Range( oSheet[nPos]:Cells( 2, nColOrder ), oSheet[nPos]:Cells( anRiga[nPos], nColOrder ) ) ) //, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ) :SetRange( oSheet[nPos]:Range( oSheet[nPos]:Cells( 2, 1 ), oSheet[nPos]:Cells( anRiga[nPos], nTitle ) ) ) // :Header := xlYes // :MatchCase := False // :Orientation := xlTopToBottom // :SortMethod := xlPinYin :Apply() END Thank you for your help. Regards, Ugo... | ||||||||
| | ||||||||
| ||||||||
| Register | FAQ | Calendar | Search | Today's Posts | Mark Forums Read |
|
#1
08-28-2008, 06:42 AM
| |||
| |||
 Excel - Sort help Dear Friends, with this code in 2007 excel version work well but in 2003 excel version generate an error: [insert this code in my previous post after TRY of label // Fase di impostazione per la stampa] nColOrder := 3 WITH OBJECT oExcel:ActiveWorkbook:Worksheets(acName[nPos]):Sort() :SortFields:Clear() :SortFields:Add( oSheet[nPos]:Range( oSheet[nPos]:Cells( 2, nColOrder ), oSheet[nPos]:Cells( anRiga[nPos], nColOrder ) ) ) //, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ) :SetRange( oSheet[nPos]:Range( oSheet[nPos]:Cells( 2, 1 ), oSheet[nPos]:Cells( anRiga[nPos], nTitle ) ) ) // :Header := xlYes // :MatchCase := False // :Orientation := xlTopToBottom // :SortMethod := xlPinYin :Apply() END Thank you for your help. Regards, Ugo  |
 |
| Thread Tools | |
| Display Modes | |
Linear Mode
