Sisu
Visual Basic for Applications (VBA) programmeerimiskeel võimaldab Microsoft Office'i programmeerijatel Exceli algseid võimalusi laiendada. Selle näiteks on VBA programm, mis võib sisestada konto andmeid veebilehe ja saata selle teabe. See mall on virtuaalsete objektide hierarhia, mis hõlmab Exceli programmeeritavaid funktsioone. Kasutajatunnuse ja parooli saatmine VBA-le veebisaidile säästab kasutajalt nende teabe käsitsi sisestamise ebamugavusi.
Juhised
Excelis saate teha hämmastavaid asju (Fotod.com/Photos.com/Getty Images)-
Avage Excel ja kuvage VBA koodi aken, vajutades Alt + F11.
-
Topeltklõpsake ekraani vasakul küljel asuval navigeerimispaanil üksust, mis kuvab "See töövihik". See avab akna koodide sisestamiseks praegusesse töövihikusse.
-
Sisestage või kleepige allolev programm ilmuvasse aknasse. See programm kutsub VBA avalduse "AppActivate", et suunata praeguse rakenduse kirje (Excel) oma brauserisse. Aruanne "SendKeys" saadab sisestatud brauserile sisestatud andmed, konto andmed ja parooli. Tekst "{TAB}" ja "~" tähistavad klahve "Tab" ja "Enter". "Rakendus" avaldus ütleb Excelile, et see peataks kiiresti, et võimaldada Windowsil ja brauseri ajaks töödelda ja saata.
Avalik Sub SendPassword () AppActivate "NTNAME", True SendKeys "YourUserName", True Application.Wait 1000 SendKeys "{TAB}", True SendKeys "SUA_SENHA", True Application.Wait 1000 SendKeys "~", tõeline lõpp
-
Asendage tekst "NAVIGATION_NAME" oma brauseri nimega (näiteks: "Firefox", "Internet Explorer" või "Google Chrome"), mida kasutate oma veebilehe kontole pääsemiseks. Asendage tekst "YOUR_USERNAME" ja "SUA_SENHA" konto juurdepääsuga teabele, mida leht nõuab.
-
Avage veebileht, millele soovite koodi juurde pääseda.
-
Klõpsa üks alltoodud "SendPassword" alamprogrammis ja seejärel vajuta "F5" alamprogrammi pööramiseks. Windows taastab fookuse brauserile, mida teie programm on lubanud. Teie programm sisestab ja saadab pääsuteabe koodile sisestatud kontole.
-
Kleepige järgmine versioon esimeses programmis, mis on programmi VBA arendusaknas juba olemas. See "sendPassword" versioon ei anna teie koodi jaoks kontoteavet, vaid väärtused kehtiva töövihiku töölehel. Selle peamiseks eeliseks on sisselogimisandmete muutmise mugavus. Töölehele salvestatud andmed on mugavam muuta kui programmeerimiskoodid.
Avalik Sub sendPasswordStoredInWorksheet () Dim login, pword, app app = ActiveSheet.Cells (1, 1) .Value login = ActiveSheet.Cells (2, 1) .Väärtus pword = ActiveSheet.Cells (3, 1) .Väärtus AppActivate app, True SendKeys login, True Application.Wait 1000 SendKeys "{TAB}", True SendKeys-mõõk, True Application.Wait 1000 SendKeys "~", True
Lõpeta alam
-
Sisestage brauseri nimi ja sisselogimisandmed, mis olid programmi esimese versiooni koodis Exceli töövihiku esimese töölehe kolmes esimeses lahtris.
-
Logige brauseris välja saidi kontolt, mida teie esimene programm on kasutanud, ja naaske saidi sisselogimislehele. Käivitage programmi uus versioon, kasutades samme 6 juhiseid. Selle konto sessioon algab sammus 6.