Kiedy naprawdę przestajesz o tym myśleć, przeglądarka internetowa w najprostszej formie nie jest tak imponującą aplikacją. Mam na myśli, że tak, Internet jest niesamowity jak na wszystkie standardy. Koncepcja połączenia tak wielu komputerów i urządzeń mobilnych na świecie w ramach tej ogromnej sieci, jest epicka. Ale koncepcja przeniesienia pliku tekstowego ze specjalnym kodem i wyświetlenia tego przesłanego tekstu na ekranie komputera - to naprawdę nic wielkiego.

W rzeczywistości, dzięki osadzonym odnośnikom w aplikacjach korzystających z VBA, możesz wprowadzać i wyprowadzać strony internetowe za pomocą własnych aplikacji. Jeśli śledziłeś nasze poprzednie artykuły na temat skryptów, wiesz, że uwielbiamy skrypt VB i VBA, podobnie jak mój artykuł na temat maksymalizacji systemu Windows 3 sposoby otwierania aplikacji i Windows zmaksymalizowane za pomocą skryptu VB [Windows] 3 sposoby otwierania aplikacji i Windows zmaksymalizowane za pomocą VB Skrypt [Windows] Jeśli jest jedna rzecz, którą uwielbiam robić, to pisać skrypty VB. Niezależnie od tego, czy jest to plik skryptu Windows, czy skrypt VBA wewnątrz aplikacji, skrypty zapewniają możliwość dodawania funkcji do aplikacji… Paul's na samoregulujących wykresach Jak tworzyć samoregulujące wykresy Excel w trzech łatwych krokach Jak tworzyć samonaktualizujące się Excel Wykresy w trzech prostych krokach Pokażemy, jak samodzielnie aktualizować wykresy Excel. Po prostu dodaj nowe dane i zobacz, jak automatycznie pojawiają się na wykresie. To szybkie i łatwe. , a Saikat wysyła masowe wiadomości e-mail Jak wysyłać spersonalizowane wiadomości e-mail w programie Outlook za pomocą korespondencji seryjnej Jak wysyłać spersonalizowane wiadomości e-mail w programie Outlook za pomocą korespondencji seryjnej .

Korzystając z poniższego podejścia, możesz używać programu Word, Access lub Excel do odczytywania dokumentów HTML w Internecie, modyfikowania tych dokumentów, a następnie generowania wszystkiego, co chcesz w nowym oknie przeglądarki.

Może to zabrzmieć jak coś, co może zrobić tylko doświadczony programista VBA, ale w tym artykule pokażę, jak możesz to zrobić sam, zaczynając od podstawowej procedury wyprowadzania danych z własnej aplikacji na stronę internetową.

Włączanie Microsoft Internet Controls

Pierwszym krokiem, bez względu na to, jak chcesz skorzystać z możliwości wprowadzania / wysyłania własnego HTML przez VBA, jest włączenie odwołania Microsoft Controls.

W Excelu robisz to, klikając “Deweloper” kliknięcie pozycji menu Tryb projektowania, a następnie klikając “Wyświetl kod” przycisk. Może to wyglądać inaczej w starszych wersjach programu Excel, ale zasadniczo musisz znaleźć miejsce, w którym można uruchomić edytor kodu VBA.

W edytorze VBA kliknij Przybory, i wtedy Referencje.

W oknie Odnośniki przewiń do końca, aż zobaczysz “Microsoft Internet Controls“. Zaznacz pole, a następnie kliknij “dobrze“.

Teraz, w ramach kodu VBA, będziesz mógł tworzyć obiekty, które mogą pobierać informacje z Internetu, a także możesz wysyłać własne dokumenty HTML, które użytkownik może przeglądać we własnej przeglądarce.

Wprowadzanie i wysyłanie HTML

Pierwszą rzeczą, którą chcesz tutaj osiągnąć, jest przesyłanie informacji do HTML. Pomyśl o tym, ile możesz zrobić, kiedy możesz wyprowadzić informacje na idealnie sformatowaną stronę HTML. Możesz wyodrębnić dane z arkuszy kalkulacyjnych Excel i wydrukować je w ładnie sformatowanym raporcie.

Aby utworzyć tę funkcję, musisz wstawić przycisk polecenia na arkuszu. Pod Deweloper menu, kliknij Tryb projektowania, a następnie kliknij “Wstawić” przycisk. Zobaczysz listę kontrolek, które możesz dodać do swojego arkusza.

W takim przypadku kliknij przycisk przycisku i umieść go w arkuszu. Upewnij się, że w arkuszu (lub dowolnym arkuszu) znajdują się dane, które chcesz wydrukować w raporcie po kliknięciu przycisku. Kliknij lewym przyciskiem przycisk, aby go wybrać i kliknij “Wyświetl kod“.

Wpisz następujący kod:

Sub Button1_Click ()

 Dim objIE As Object

 Dim HTML as String

 „---------- KOD HTML JEST Z TUTAJ I NA DÓŁ----------

 HTML = „Strona raportu HTML” i _

 „” I _

 „Poniżej przedstawiono wyniki codziennych obliczeń„I _

 „
„I _

 „Dzienna produkcja:” i arkusz 1. Komórki (1, 1) i „
„I _

 „Daily Scrap:” i Sheet1.Cells (1, 2) i „
„

 „---------- KOD HTML JEST TUTAJ I POWYŻEJ---------

 W przypadku błędu GoTo moduł obsługi błędów

 Ustaw objIE = CreateObject („InternetExplorer.Application”)

 Z objie

 .Nawiguj „about: blank”

 Do While .Busy: DoEvents: Loop

 Do While .ReadyState 4: DoEvents: Loop

 .Widoczny = Prawda

 .Document.Write HTML

 Kończyć z

 Ustaw objIE = Nic

 Wyjdź z Sub

moduł obsługi błędów:

 MsgBox („Nieoczekiwany błąd, wychodzę.”)

 objIE.Quit

 Ustaw objIE = Nic

Napis końcowy

Ten kod wyświetla kod HTML zdefiniowany w tym ciągu wyjściowym. Jak widać z mojego przykładu powyżej, możesz osadzić dane z dowolnego arkusza w Excelu w swoim ciągu HTML. Oto wynikowy raport na stronie:

Teraz, gdy masz wyjście HTML, następnym krokiem, aby skrypt VBA działał praktycznie tak, jak przeglądarka internetowa, jest czytanie HTML z jakiejś strony internetowej, manipulowanie danymi, a następnie wyprowadzanie go na stronę wyjściową HTML.

Sub Button1_Click ()

 Dim objIE As Object

 Dim HTML as String

 W przypadku błędu GoTo moduł obsługi błędów

 Ustaw objIE = CreateObject („InternetExplorer.Application”)

 Z objie

 .Nawiguj „http://www.google.com”

 Do While .Busy: DoEvents: Loop

 Do While .ReadyState 4: DoEvents: Loop

 .Widoczny = Prawda

 HTML = objIE.Document.Body.innerHTML

 .Document.Write „Moje własne wyniki Google!
To jest edytowana wersja strony Google!
„& HTML i” ”

 Kończyć z

 Ustaw objIE = Nic

Wyjdź z Sub

moduł obsługi błędów:

 MsgBox („Nieoczekiwany błąd, wychodzę.”)

 objIE.Quit

 Ustaw objIE = Nic

Napis końcowy

To, co zrobiłem tutaj, to użycie obiektu IE do odczytu HTML z Google do zmiennej tekstowej w VBA o nazwie HTML. Następnie umieściłem własny tekst wyjściowy HTML na górze strony, a następnie wypisałem ten sam kod HTML na wyjście HTML VBA. Tak to wygląda:

To bardzo podstawowy przykład tego, do czego jest zdolny. Ale jeśli się nad tym zastanowisz, po załadowaniu kodu HTML ze strony internetowej do zmiennej łańcucha VBA możesz wyszukiwać określone linie na stronie, szukać obrazów, wyszukiwać adresy e-mail numerów telefonów - lub możesz przepisać cały wprowadź stronę do nowej, edytowanej wersji tej samej strony w dowolnym formacie i dowolnych modyfikacjach.

Wykonanie tego wymagałoby odrobiny sprawności manipulacji ciągami - ale nic nie jest niemożliwe po przeczytaniu źródła HTML z sieci.

Czy widzisz jakiś potencjał wykorzystania wejścia lub wyjścia HTML we własnych aplikacjach? Czy możesz wymyślić jakieś fajne zastosowania tego skryptu? Podziel się swoimi przemyśleniami w sekcji komentarzy poniżej.

Źródło zdjęcia: Shutterstock