Gabriel Brooks
0 
2086
215
Kad zaista prestanete razmišljati o tome, internetski preglednik u svom najjednostavnijem obliku nije baš toliko impresivna aplikacija. Mislim, da, Internet je po nečijim standardima nevjerojatan. Koncept povezivanja tolikog broja svjetskih računala i mobilnih uređaja unutar ove velike mreže, to je epski. No, koncept prijenosa tekstualne datoteke s posebnim kodom u njoj i prikazivanja tog prenesenog teksta na ekranu računala - to stvarno nije velika stvar.
U stvari, zahvaljujući ugrađenim referencama u aplikacijama koje koriste VBA, možete unositi i izlaziti web stranice putem vlastitih aplikacija. Ako ste pratili naše prethodne skriptne članke, onda znate da volimo VB skriptu i VBA, kao što je moj članak o maksimiziranju prozora 3 načina za otvaranje aplikacija i Windows maksimiziran VB skriptu [Windows] 3 načina za otvaranje aplikacija i Windows maksimiziran s VB Skripta [Windows] Ako postoji jedna stvar koju volim raditi, to je pisanje VB skripti. Bilo da se radi o datoteci Windows Script ili VBA skriptu unutar aplikacije, skriptiranje pruža mogućnost dodavanja funkcionalnosti aplikacijama ..., Paul-ove na samoobnavljajućim se listama Kako stvoriti samoobnavljajuće Excelove karte u tri jednostavna koraka Kako stvoriti samoobnavljajući Excel Grafikoni u tri jednostavna koraka Pokazat ćemo vam kako vlastite nadogradnje Excel-ovih ljestvica samostalno ažurirati. Samo dodajte nove podatke i gledajte kako se automatski prikazuju na vašem grafikonu. To je brzo i jednostavno. , a Saikat šalje slanje masovne e-pošte Kako slati personalizirane masovne e-poruke u programu Outlook s spajanjem e-pošte Kako slati personalizirane masovne e-poruke u programu Outlook s spajanjem e-pošte .
Pomoću donjeg pristupa možete koristiti Word, Access ili Excel za čitanje HTML dokumenata na webu, mijenjati te dokumente i zatim ispisati sve što želite u novom prozoru preglednika.
Možda zvuči kao nešto što samo iskusni VBA programer može učiniti, ali u ovom ću vam članku pokazati kako to možete učiniti sami, počevši od osnovnog postupka izlaska podataka iz vlastite aplikacije na web stranicu.
Omogućivanje Microsoftovih internetskih kontrola
Prvi korak, bez obzira na to kako želite iskoristiti mogućnost unosa / ispisa vlastitog HTML-a putem VBA, jest omogućiti referencu Microsoft Internet Controls.
U Excelu to učinite klikom na ikonu “razvijač” stavka izbornika, klikanjem Način dizajna, a zatim kliknete na “Pogledaj kod” dugme. To se može činiti drugačijim u starijim verzijama Excela, ali u osnovi morate pronaći gdje možete pokrenuti uređivač VBA koda.
U uređivaču VBA kliknite na alat, i onda Reference.
U prozoru s referencama pomičite se skroz dolje dok ne ugledate “Microsoftove internetske kontrole“. Označite okvir, a zatim kliknite “u redu“.
Sada, unutar svog VBA koda, moći ćete kreirati predmete koji mogu dobivati informacije s Interneta, a možete i sami objavljivati svoje HTML dokumente koje korisnik može pregledavati u svom vlastitom pregledniku.
Unos i izlaz HTML-a
Prvo što ovdje želite postići je iznošenje informacija u HTML. Razmislite koliko možete učiniti nakon što iznesete informacije na savršeno oblikovanu HTML web stranicu. Možete izvući podatke iz proračunskih tablica u Excelu i iznijeti ih u lijepo oblikovanom izvješću.
Da biste stvorili ovu značajku, morat ćete na listu umetnuti naredbeni gumb. Ispod razvijač izbornika, kliknite na Način dizajna, a zatim kliknite gumb “Umetnuti” dugme. Vidjet ćete padajući izbor kontrola koje možete dodati na svoj list.
U tom slučaju kliknite kontrolu gumba i stavite ga na svoj list. Provjerite ima li nekih podataka na listu (ili bilo kojem listu) koje želite prikazati u izvješću kad se klikne gumb. Kliknite lijevi gumb da biste ga odabrali i kliknite “Pogledaj kod“.
Unesite sljedeći kôd:
Potisni gumb1_Click ()
Dim objIE kao objekt
Dim HTML kao niz
'---------- HTML KOD JE OVAJ I DOLAZI----------
HTML = "Stranica HTML izvješća" & _
"" & _
"Ovo su rezultati vašeg dnevnog izračuna"& _
""& _
"Dnevna proizvodnja:" & Sheet1.Cells (1, 1) & ""& _
"Dnevni zapis": "Sheet1.Cells (1, 2) &""
'---------- HTML KOD JE OSTAVIO OVDJE I DOSTOJI---------
Na pogrešci GoTo error_handler
Postavi objIE = CreateObject ("InternetExplorer.Application")Uz objIE
.Navigacija "about: blank"
Učinite Dok .Busy: DoEvents: petlja
Učinite Dok .ReadyState 4: DoEvents: petlja
.Vidljivo = Istina
.Document.Write HTML
Završi sa
Postavi objIE = Ništa
Izađite iz Sub
error_handler:
MsgBox ("Neočekivana greška, prestajem.")objIE.Quit
Postavi objIE = Ništa
Kraj Sub
Ovaj kôd daje HTML koji ste definirali u tom izlaznom nizu. Kao što vidite iz mog gornjeg primjera, podatke možete s bilo kojeg lista u Excelu umetnuti u svoj HTML niz. Evo rezultata izvješća web stranica:
Sada kada imate HTML izlaz, sljedeći korak da vaš VBA skripta funkcionira gotovo kao web preglednik jest čitanje u HTML-u s neke web stranice, manipuliranje podacima, a zatim izlazak na HTML stranicu s izlazima.
Potisni gumb1_Click ()
Dim objIE kao objekt
Dim HTML kao niz
Na pogrešci GoTo error_handler
Postavi objIE = CreateObject ("InternetExplorer.Application")Uz objIE
.Navigacija "http://www.google.com"
Učinite Dok .Busy: DoEvents: petlja
Učinite Dok .ReadyState 4: DoEvents: petlja
.Vidljivo = Istina
HTML = objIE.Document.Body.innerHTML
.Document.Write "Moji vlastiti Google rezultati!Ovo je uređena verzija Google stranice!
"& HTML &" "
Završi sa
Postavi objIE = Ništa
Izađite iz Sub
error_handler:
MsgBox ("Neočekivana greška, prestajem.")objIE.Quit
Postavi objIE = Ništa
Kraj Sub
Ovdje sam koristio IE objekt za čitanje Googleovog HTML-a u tekstualnu varijablu u VBA koja se zove HTML. Zatim sam stavio svoj vlastiti HTML izlazni tekst na vrh stranice, a potom isti HTML izveo u VBA HTML izlaz. Ovako to izgleda:
Ovo je vrlo osnovni primjer za što je ovo sposoban. Ali ako razmislite o tome, nakon što HTML s web stranice učitate u varijablu VBA niza, možete pretraživati određene retke na stranici, tražiti slike, pretraživati adrese e-pošte telefonskih brojeva - ili možete prepisati cijeli stranicu za unos u novu, uređenu verziju iste stranice u bilo kojem formatu koji želite i sa bilo kojim izmjenama koje želite.
To će zahtijevati malo stručnosti manipulacije nizom - ali ništa nije nemoguće nakon što iz web izvora pročitate HTML izvor.
Vidite li potencijal za upotrebu HTML unosa ili izlaza u vlastitim aplikacijama? Možete li smisliti neku korisnu upotrebu ovog scenarija? Podijelite svoje misli u odjeljku s komentarima u nastavku.
Kreditna slika: Shutterstock