copiar una url desde una pág web y pegarla en excel

[sebaramos]

Hola estimados, quisiera saber por favor el script para copiar una url desde una pág web y pegarla en un archivo excel u otro programa. Como siempre agradezco su buena voluntad.

[sebaramos]

Hola,

solo necesito saber que función aplico para copiar (si ya tengo seleccionada la url con un click) y despues pegar en un excel cuando ya tenga seleccionada una celda.....me imagino que la url la guardo en una variable y después la pego en el excel pero no he podido encontrar la función copiar y pegar ...seguro debe ser muy fácil...perdón por lo novato jajjajjaja

[A_AhkUser]

copiar:

Code: Select all

Send, {Ctrl Down}c{Ctrl Up} ; simula el CTRL+C
; o mas reliable...
; var := copiar() ; funcion que devuelve lo que esta seleccionado al copiar restableciendo el contenido del portepapeles inicial; necesito la funcion mas abajo
; MsgBox % var


copiar() {
temp := Clipboardall
clipboard := ""
send, {Ctrl Down}c{Ctrl Up}
ClipWait, 0.8
if (ErrorLevel)
return
var := clipboard
clipboard := temp
return var
}

pagar:

Code: Select all

Send, {Ctrl Down}v{Ctrl Up} ; simula el CTRL+V
; o...
Send % clipboard
; o...
Send % contenidoDelPortePapeles() ; necesita la funcion mas abajo

contenidoDelPortePapeles() {
return clipboard
}

Para enfocar la barra de direcciones (por lo menos en lo que respecta a firefox) existe el atajo de teclado: CTR+L. Del mismo modo que puedes simular el CTRL+C, se puede simular el CTRL+L. Ademas, si quieres automatizar el proceso mediante el cual el texto llega al excel, debes hallar la classNN del control de destino. Por eso, lanza AU3_Spy que se encuentra en la carpeta de instalacion de AHK y sobrevola el dicho control con el raton.
Aqui un ejemplo con firefox y la bloca de notas (yo no tengo excel):

Code: Select all

#If WinActive("ahk_exe firefox.exe") and WinExist("ahk_exe notepad.exe")
!c:: ; ALT+C
Send, {Ctrl Down}l{Ctrl Up} ; CTRL+L para enfocar la barra de direcciones en firefox
sleep, 10
Send, {Ctrl Down}c{Ctrl Up} ; copia al portepapeles el contenido de la barra de direcciones una vez esta  enfocada
ControlSendRaw, Edit1, % contenidoDelPortePapeles(), ahk_exe notepad.exe ; edit1 es la classNN del control de destino en est ejemplo
; ControlSetText, Edit1, % contenidoDelPortePapeles(), ahk_exe notepad.exe  ; alternativamente
WinActivate, ahk_exe notepad.exe
return
#If

contenidoDelPortePapeles() {
return clipboard
}

[sebaramos]

Muchas gracias amigo, funcionó a la perfección. !