Copiar desde excel a URL

Question

Copiar desde excel a URL

#1 de wch1zpink (0 votos)

-1

Estoy haciendo mi primer manzano. Quiero copiar un texto corto (que es un sitio web) de excel en la prueba de velocidad de Pingdom Tools. A la larga, quiero que lo haga con muchos textos diferentes, pero primero quiero comenzar con uno.

Logré abrir Excel, y luego el documento. Pero luego tengo que copiar por ejemplo el campo B1. Me las arreglé para 'goto' B1, pero luego tengo que copiarlo, y no puedo entender cómo.

El siguiente sted es activar chrome y luego tools.pingdom.com - Puedo hacerlo. Pero, ¿cómo puedo pegar el valor de B1 en el campo en Pingdom?

Espero que alguien me pueda ayudar. Si no está lo suficientemente bien explicado, hágamelo saber.

Mejor, Soren

ms-office applescript

pregunta Soren 08.10.2018 - 15:36

1 respuesta

Lea otras preguntas en las etiquetas ms-office applescript

Macbook Internal Speakers funciona solo cuando los auriculares están enchufados La actualización de la RAM Pro de 2013 no es mucho más rápida

score 0 · Answer 1

No tengo Microsoft Excel, por lo que no puedo ayudar a configurar una variable en un AppleScript con la información del Campo B1. El siguiente código puede ayudarte un poco y ponerte en el camino correcto.

property theURL : "https://tools.pingdom.com/"
-- change the URL in the following variable to the URL from field B1 from Excel
set urlFromExcel to "https://apple.stackexchange.com/questions/338936/copy-from-excel-to-url"

if application "Google Chrome" is not running then
    tell application "Google Chrome"
        activate
        repeat while not (exists of window 1)
            delay 0.1
        end repeat
        tell its window 1
            set URL of (make new tab) to theURL
        end tell
    end tell
else if application "Google Chrome" is running then
    tell application "Google Chrome"
        if not (exists of (tabs of window 1 whose URL contains "pingdom")) then
            tell its window 1
                set URL of (make new tab) to theURL
            end tell
        end if
    end tell
end if

tell application "Google Chrome" to tell active tab of window 1
    repeat while loading is true
        delay 0.1
    end repeat
end tell

inputByID("urlInput", urlFromExcel)

to inputByID(theId, theValue)
    tell application "Google Chrome" to (tabs of window 1 whose URL contains "pingdom")
    set pingdomTabs to item 1 of the result
    tell application "Google Chrome"
        execute pingdomTabs javascript "document.getElementById('" & theId & "').value ='" & theValue & "';"
    end tell
end inputByID