Ayuda con ORDENAMIENTO Topic is solved

[emimaster9]

Buenos dias, a ver si me pueden ayudar con este script.
Tengo muchas planillas cargadas en excel online y lo que quiero hacer es copiar algunas columnas de cada excel y pegarlos en una planilla general. El inconveniente que tengo es que yo quisiera hacer (de la planilla general) que una columna sea ordenada alfabéticamente y se ordene con ella toda su fila.

Code: Select all

^j::
InputBox, rep, "Tramite", "¿Cuántos tramites hay?"
Sleep 2000
cantidad := 6
cantidad1 := 8
Loop %rep%
{
    send, {Ctrl down}{PgDn}{Ctrl up}
    sleep 500
}
    sleep 2000
    MouseClick, left, 117, 280
    Send, {Down down}
    send, {Shift down}{Right}{Shift up}
    sleep 200
    Loop %cantidad%
    {
    send, {Shift down}{Down}{Shift up}
    sleep 200 
    }
    send, ^c
    sleep 200
    send, {alt down}{TAB}{alt up}
    sleep 200
    MouseClick, left, 117, 280 
    sleep 200
    Send, {Down down}
    sleep 200
    send, ^v   
    sleep 200  
    send, {alt down}{TAB}{alt up}
    sleep 200
    MouseClick, left, 1199, 343
    sleep 200
    send, {Shift down}{Right}{Shift up}
    sleep 200
    Loop %cantidad1%
    {
    send, {Shift down}{Down}{Shift up}
    sleep 200 
    }
    send, ^c
    sleep 200
    send, {alt down}{TAB}{alt up}
    sleep 200
    MouseClick, left, 1199, 343
    sleep 200
    send, ^v  
    sleep 200 
return

[Flipeador]

Hola,
A ver si este código te sirve de algo (lee los comentarios), nunca he trabajado con AHK para este tipo de cosas...

Code: Select all

; Ruta del archivo Excel
FileName := A_Desktop . "\~Test.xlsx"
If (!FileExist(FileName))
{
    MsgBox("Debes crear el archivo Excel antes de continuar.`n" . FileName)
    ExitApp
}

; Creamos el objeto Excel
; https://msdn.microsoft.com/en-us/vba/excel-vba/articles/application-object-excel
xlApp := ComObjCreate("Excel.Application")

; Hacemos la ventana visible y cargamos el archivo
; https://msdn.microsoft.com/library/4d702074-7d76-7b43-25e1-11d6a440392f%28office.15%29.aspx
; https://msdn.microsoft.com/library/5291a324-87d7-3916-ffee-34c3389cea13%28office.15%29.aspx
xlApp.Visible := TRUE
xlApp.Workbooks.Open(FileName)

; Deshabilitamos temporalmente la actualización de los cambios
; https://msdn.microsoft.com/library/08fa0272-faeb-f8f2-c0f2-e001620cc838%28office.15%29.aspx
xlApp.ScreenUpdating := FALSE

; Llenamos algunas celdas con datos (5x5)
; https://msdn.microsoft.com/library/fec5050e-e6d9-6736-a9bc-b3e7d213a755%28office.15%29.aspx
Loop 5
{
    n := A_Index
    Loop 5
        xlApp.Range(Chr(64 + n) . A_Index).Value := Chr(Random(65, 90)) . Chr(Random(97, 122)) . Chr(Random(97, 122)) . Chr(Random(97, 122))
}

; Ordenar la primera columna alfabéticamente
; https://msdn.microsoft.com/es-es/library/ff840646.aspx
xlApp.Range("A1:A5").Cells.Sort(xlApp.Range("A1"))

; Habilitamos la actualización de cambios
; https://msdn.microsoft.com/library/08fa0272-faeb-f8f2-c0f2-e001620cc838%28office.15%29.aspx
xlApp.ScreenUpdating := TRUE


; ##############################################################################################
/* TEST!
x := ComObjActive("Excel.Application")
e := x.Worksheets(1)
MsgBox
e.Range("A1:A5").Cells.Sort(e.Range("A1"))
*/

/*
AHK v1
*/
MsgBox(t)
{
    MsgBox % t
}

Random(a,b)
{
    Random, o, % a, % b
    Return (o)
}

[emimaster9]

hola flipeador, gracias por tu respuesta, pero capaz no fui claro. Yo tengo varias planillas de excel online(google sheets) donde contienen documentos en distintas columnas, y quiero copiar esas columnas y pegarlas en una planilla general. Una vez pasada quiero ordenarla alfabeticamente. Pasarlas a la planilla general ya pude,el tema del ordenamiento no pude y con lo que me pasaste vos no me sirve. Igual de todas formas agradezco tu respuesta

[Flipeador]

Estaría bien que en lugar de volver a escribir exactamente lo mismo que escribiste arriba pongas información mas detallada y me contestes ¿por que el código que te pase no te funciona?, ¿viste los links comentados en el código que te pasé?...
Y otra cosa, ese Script que has puesto, ¿que sentido tiene?, por lo menos agrégale comentarios.