Sort en Excel...

[Carlos Sincuir]

Hola a todos.
Alguien sabe como se tendría que hacer este Macro en Fivewin, para hacer un sort en una hoja Excel:

Code: Select all

Selection.Sort Key1:=Range("A9"), Order1:=xlAscending, Key2:=Range("R9") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal

He encontrado, que la funcion Sort, es miembro de Excel.range, definida de esta forma

Code: Select all

Function Sort([Key1], [Order1 As XlSortOrder = xlAscending], [Key2], [Type], [Order2 As XlSortOrder = xlAscending], [Key3], [Order3 As XlSortOrder = xlAscending], [Header As XlYesNoGuess = xlNo], [OrderCustom], [MatchCase], [Orientation As XlSortOrientation = xlSortRows], [SortMethod As XlSortMethod = xlPinYin], [DataOption1 As XlSortDataOption = xlSortNormal], [DataOption2 As XlSortDataOption = xlSortNormal], [DataOption3 As XlSortDataOption = xlSortNormal])

y he tratado de utilizarla de esta manera:

Code: Select all

#define xlAscending 1
#define xlDescending 2
#define xlGuess 0
#define xlTopToBottom 1
#define xlSortNormal 0
...
oRan1 := oSheet:Range("A9")
oRan2 := oSheet:Range("R9")
oExcel:Range:Selection:Sort( oRan1, xlAscending, oRan2, xlDescending,,,xlGuess,1,.f.,xlTopToBottom,,xlSortNormal,xlSortNormal)

Pero obtengo el mensaje:

Code: Select all

Error  DIS_E_BADPARAMCOUNT:RANGE

Alguien ha podido hacer un sort en una hoja Excel desde Fivewin?

Gracias.

Carlos Sincuir

[Vikthor]

Carlos :

Esta es la manera de hacerlo:

oExcel:oSheet:Range( "B5:C13" ):Select()
oExcel:oExcel:Selection:Sort( "B6" , _y tus otros parámetros_)

[Carlos Sincuir]

Vikthor, gracias por contestarme.
Probe como tu me dices, pero igual me sigue dando el mismo error, ya me dolio la cabeza de estar probando y probando desde el día de ayer y no logro que me funcione el sort.

Bueno tendre que seguir investigando y probando.

Gracias y saludos.

[Vikthor]

Vikthor, gracias por contestarme.
Probe como tu me dices, pero igual me sigue dando el mismo error, ya me dolio la cabeza de estar probando y probando desde el día de ayer y no logro que me funcione el sort.

Bueno tendre que seguir investigando y probando.

Gracias y saludos.

Carlos :

Te hago un pequeño y le envio.
Solo te aclaro que yo uso la clase TExcel

[Carlos Sincuir]

Vikthor, te lo agradecería mucho, y no hay problema con la TExcel, yo tambien la utilizo, ya que me ayuda bastante con lo de trabajar con Excel.

Gracias por tu ayuda.