MS Office 2000 i 2002 XP Tworzenie własnych aplikacji w VBA
IDZ DO IDZ DO PRZYKŁADOWY ROZDZIAŁ PRZYKŁADOWY ROZDZIAŁ MS Office 2000 i 2002/XP. SPIS TRE CI SPIS TRE CI Tworzenie własnych KATALOG KSIĄŻEK KATALOG KSIĄŻEK aplikacji w VBA KATALOG ONLINE KATALOG ONLINE Autor: Maciej Ło ISBN: 83-7197-878-2 ZAMÓW DRUKOWANY KATALOG ZAMÓW DRUKOWANY KATALOG Format: B5, stron: 138 TWÓJ KOSZYK TWÓJ KOSZYK Pakiet Microsoft Office to nie tylko zaawansowany zestaw aplikacji biurowych, ale także DODAJ DO KOSZYKA DODAJ DO KOSZYKA platforma, na podstawie której programi ci Visual Basica for Applications mogą pisać własne programy. Chociaż możliwo ci dostosowania poszczególnych aplikacji Office'a do specyficznych wymagań użytkownika bez konieczno ci pisania kodu są spore, CENNIK I INFORMACJE CENNIK I INFORMACJE dopiero użycie VBA pozwala na tworzenie własnych kreatorów, dodatków i asystentów. Książka MS Office 2000 i 2002/XP. Tworzenie własnych aplikacji VBA opisuje sposób ZAMÓW INFORMACJE ZAMÓW INFORMACJE O NOWO CIACH O NOWO CIACH tworzenia specyficznych dla MS Office dodatków z użyciem języka Visual Basic for Applications. Przeznaczona jest dla osób znających ten język programowania w stopniu ZAMÓW CENNIK podstawowym, chcących poznać tajniki programowania Worda, Excela i Accessa. ZAMÓW CENNIK Opisano: " Różne rodzaje plików, używanych przez MS Office CZYTELNIA CZYTELNIA " Wykorzystanie technologii ActiveX " Tworzenie własnych pasków narzędziowych FRAGMENTY KSIĄŻEK ONLINE FRAGMENTY KSIĄŻEK ONLINE " Tworzenie asystentów " Pisanie kreatorów Worda " Integrację poszczególnych składników pakietu Office " Pisanie własnej aplikacji wyszukującej pliki Excela " Tworzenie bazy danych opartej na Accessie jako samodzielnej aplikacji Programi ci VBA znajdą w tej książce także wiele cennych wskazówek dotyczących efektywnego wykorzystania dostępnych typów danych oraz optymalizacji kodu. Autor prezentuje wiele fragmentów kodu, które możesz zastosować we własnych aplikacjach. Dostosuj MS Office do swoich wymagań : " Pisz własne kreatory i dodatki do aplikacji Office " Naucz się integrować poszczególne programy pakietu Wydawnictwo Helion " Poznaj wewnętrzne mechanizmy działania Office'a ul. Chopina 6 44-100 Gliwice " Skorzystaj z ćwiczeń i fragmentów kodu dostępnych na płycie CD tel. (32)230-98-63 e-mail: helion@helion.pl Spis treści Podziękowania...................................................................................5 Zanim rozpoczniesz& .........................................................................7 Do kogo jest adresowana ta książka? ......................................................................... 7 O czym jest ta książka? ............................................................................................ 8 Rozdział 1. Programowanie informacje ogólne..................................................9 Projekt to podstawa ................................................................................................. 9 Czemu ma służyć aplikacja?................................................................................ 9 Kto będzie jej używał? ......................................................................................11 Wizualizacja.....................................................................................................11 Przelanie pomysłu na papier...............................................................................11 Podsumowanie .................................................................................................12 Najważniejsze informacje o VBA.............................................................................12 Efektywne stosowanie typów.............................................................................12 Prawda i fałsz (Boolean)....................................................................................15 Numeryczne typy danych ..................................................................................16 Tablice.............................................................................................................18 Optymalizacja kodu ..........................................................................................20 Odwołania do funkcji Windows API...................................................................31 Pliki pakietu Office ...........................................................................................34 Rozdział 2. Wspólne cechy i obiekty programów Office.......................................43 Obiekty Office 97 omówienie..............................................................................43 Dobrodziejstwo ActiveX....................................................................................43 Obiekt Application............................................................................................47 Obiekt Commandbars........................................................................................51 Obiekt Assistant................................................................................................59 Obiekt FileSearch .............................................................................................63 Obiekt DocumentProperties ...............................................................................64 Środowisko aplikacji...............................................................................................65 Funkcja Environ ...............................................................................................65 Funkcja Shell....................................................................................................67 Instrukcja AppActivate......................................................................................68 Funkcja DoEvents.............................................................................................69 Funkcja Timer ..................................................................................................69 Instrukcja SendKeys .........................................................................................70 Automakra .......................................................................................................71 4 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA Rozdział 3. Programowanie MS Word.............................................................77 Tworzenie szablonu z własnym paskiem narzędzi......................................................77 Tworzenie własnego kreatora...................................................................................80 Współpraca z innymi aplikacjami Office...................................................................87 Współpraca z MS Access...................................................................................88 Współpraca z MS Excel.....................................................................................90 Rozdział 4. Programowanie MS Excel ............................................................93 Własne okno dialogowe poszukiwania plików...........................................................93 Dodajemy element do menu kontekstowego nowa funkcja.....................................94 Tworzenie aplikacji krok po kroku ........................................................................96 Własne menu podręczne dla formularzy MS Word i MS Excel............................100 Wskaż katalog w formularzu MS Word i MS Excel............................................102 Współpraca z innymi aplikacjami Office.................................................................104 Rozdział 5. Programowanie MS Access .......................................................109 SQL jako motor baz danych ..................................................................................109 Tworzenie formularza wyszukującego dane ............................................................110 Uwagi o konstruowaniu zapytań w kodzie.........................................................114 Podformularze i podraporty ...................................................................................115 MS Access i Internet.............................................................................................116 Eksportowanie tabeli, kwerendy, formularza lub raportu w formacie HTML........116 Eksportowanie danych do serwera FTP w sieci Internet.....................................116 Współpraca z XML.........................................................................................117 Tworzenie bazy danych jako samodzielnej aplikacji................................................117 Ograniczenia bazy danych ...............................................................................117 Parametryzacja bazy danych............................................................................118 Zakończenie..................................................................................131 Skorowidz......................................................................................133 Rozdział 2. Wspólne cechy i obiekty programów Office Choć tak wiele różni aplikacje Office od siebie, bo każda służy do czego innego, to przyglądając się im od strony informatycznej widzimy, że mają wiele wspólnego. Jak wiele mają wspólnego, tak też wiele je różni. Rozdział 2 jest poświęcony właśnie tym podobieństwom i różnicom. Obiekty Office 97 omówienie W tym rozdziale zajmę się obiektami pakietu Office dostępnymi w każdej z omawia- nych aplikacji. Są nimi: obiekt Application, obiekt CommandBars, obiekt Assistant, obiekt FileSearch, obiekt DocumentProperties. Zanim jednak to uczynię, opowiem Ci pewną historię, a nazwę ją Dobrodziejstwo ActiveX . Dobrodziejstwo ActiveX Domyślam się, że nieraz spotkałeś się z terminem ActiveX. Być może nawet dokładnie wiesz, co on oznacza, ale tytułem przypomnienia: 44 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA ActiveX to nazwa zbioru technologii, które pozwalają budować i używać obiektów za pomocą technologii COM1 i DCOM2. Na czym polega to dobrodziejstwo w pakiecie Office? Aplikacje takie jak Word, Excel czy Access są właśnie obiektami ActiveX. To oznacza, że możesz manipulować jedną aplikacją Office z poziomu drugiej. Ba, mało tego, możesz również uzyskać dostęp do obiektów tej aplikacji, niezależnie od tego, czy będziesz to robił lokalnie na swoim kom- puterze, czy w sieci. Jak tego dokonać? Jeśli chcesz uruchomić kod w jednej aplikacji Office, który będzie pracował z obiek- tami w innej aplikacji, musisz wykonać następujące kroki: 1. Ustaw odwołanie do biblioteki tej innej aplikacji w oknie dialogowym Odwołania (menu Narzędzia). Jeśli tego dokonasz, uzyskasz dostęp do tej aplikacji oraz wszystkich jej obiektów, właściwości i metod. Chcesz odwołać się do Worda, wskaż Microsoft Word 8.0 Object Library. Chcesz odwołać się do Excela, wskaż Microsoft Excel 8.0 Object Library. Chcesz odwołać się do MS Access, wskaż Microsoft Access 8.0 Object Library. Pamiętaj, nie musisz wskazywać biblioteki typu do aplikacji, w której pracujesz, a tylko do aplikacji, do której chcesz uzyskać dostęp! 2. Zadeklaruj zmienną obiektową, która wskaże na obiekty w innej aplikacji określonego typu. Deklaracja zmiennej obiektowej za pomocą klauzuli spowoduje utworzenie zmiennej zawierającej odwołanie do dowolnego obiektu. Dostęp do tego obiektu będzie odbywał się w sposób opózniony, tzn. przez dowiązanie w trakcie wykonywania programu. Dlatego lepiej jest utworzyć zmienną obiektową określonego typu, tj. zadeklarować zmienną obiektową z określonym identyfikatorem klasy. Spowoduje to tzw. dowiązanie wczesne, dokonywane w trakcie kompilacji programu. Taką zmienną możesz na przykład utworzyć tak: lub . Używając odwołań bez numeru wersji utworzysz obiekt w wersji wywoływanej apli- kacji, takiej, jaka jest aktualnie zainstalowana na komputerze. Jeśli jesteś pe- wien, że jest to Office 97, to zadeklaruj zmienną obiektową z numerem wersji, np. . I jeszcze jedna istotna rzecz nie wszystkie obiekty, ich właściwości i metody będą dostępne w poprzednich wersjach aplikacji Office (z czasów, kiedy nabywało się każdą aplikację oddzielnie)! 1 COM (ang. Component Object Model) technologia umożliwiająca tworzenie obiektów oraz dostęp do nich z programu Windows. 2 DCOM (ang. Distributed Component Object Model) technologia umożliwiająca dystrybucję obiektów w sieci lokalnej i Internecie. RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 45 3. Użyj funkcji z identyfikatorem klasy aplikacji (OLE Programmatic Identifier), by uzyskać dostęp do tej aplikacji lub jej obiektów. Przypisanie do zmiennej obiektowej wartości będzie wyglądało tak: deklaracja zmiennej, przypisanie wartości. 4. Użyj właściwości i metod obiektu przechowywanego w zmiennej. Na przykład, następująca instrukcja spowoduje utworzenie nowego skoroszytu: . 5. Po zakończeniu prac z inną aplikacją, użyj metody , by ją zamknąć. Oto jak tego dokonać: . Listing 2.1 demonstruje, jak z programu MS Excel przenieść dane do programu MS Word. LIstIng 2.1. MS Word w MS Excel
46 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA
Przyjrzyj się dokładnie temu listingowi. Przede wszystkim chodzi o to, byś zwrócił uwa- gę na deklarację obiektów . Czy widzisz różnice? RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 47 Na dysku CD-ROM, w katalogu Przyklady\Cz_II, w pliku CreateDoc.xls znajduje się pełny kod, opisy i odpowiedz na pytanie. Obiekt Application Jest to bardzo interesujący obiekt i będzie on często przeze mnie używany w przykła- dach. Obiekt Application odwołuje się do aktywnej aplikacji Office. Oznacza to, że pod- czas pracy w edytorze tekstów Word, obiekt Application odwołuje się właśnie do tego programu oraz zawiera wszystkie obiekty i kolekcje obiektów tej aplikacji. Jak należy to rozumieć? Możesz użyć tego obiektu do zastosowania metod lub ustawień właści- wości dla całej aplikacji: lub do wywołania metod lub ustawień właściwości dla dowolnego obiektu (kolekcji obiektów) danej aplikacji, tak jakbyś osobiście tych obiektów używał: (otwieranie formularza Zamówienia ). W instrukcji pierwszej jawnie posłużyłem się obiektem Application. Przykład drugi już nie zawierał jawnego wywołania obiektu Application, a mimo to podany kod jest po- prawny i zostanie prawidłowo zinterpretowany przez aplikację Access. Jak to możliwe? Jeśli nie wiesz, przeczytaj jeszcze raz to, co dotychczas przeczytałeś. W zdaniu drugim zapewniam Cię, że obiekt Application posiada wszystkie obiekty danej aplikacji. Dla VBA nie musisz jawnie posługiwać się tym kwalifikatorem obiektu. Oczywiście przykład drugi będzie poprawny wyłącznie w aplikacji Access, ponieważ inne programy z pakietu Office nie posiadają obiektu . O obiektach poszcze- gólnych aplikacji dowiesz się w kolejnych częściach książki. Instancyjność aplikacji Rozpatrując aplikacje Office pod kątem wykorzystania ich w kodzie, a uściślając pod kątem tworzenia nowej instancji klasy aplikacji, wyróżniamy aplikacje jedno- lub wie- lokrotnego wystąpienia, użycia. Na przykład MS Word jest aplikacją jednokrotnego wystąpienia. Oznacza to, że kod:
niezależnie od tego, jak wiele w danej chwili jest uruchomionych instancji (kopii) MS Word, zawsze będzie tworzył nową instancję aplikacji. Zaś aplikacja wielokrotnego wystąpienia (jaką jest na przykład Outlook), niezależnie od tego, jak wiele w kodzie bę- dzie odwołań do instancji tej aplikacji, gdy ta aplikacja jest otwarta, zawsze będzie wska- zywać na aplikację już otwartą. Przykładowo, jeżeli Outlook będzie otwarty, wszystkie odwołania do nowej instancji klasy (aplikacji) w przedstawionym kodzie (Listing 2.2): LIstIng 2.2. Odwołania do instancji aplikacji
48 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA
zawsze będą wskazywać na tę samą instancję MS Outlook, już otwartą. Tabela 2.1 przedstawia typy aplikacji MS Office. TabeIa 2.1. Podział aplikacji MS Office ze względu na krotność instancji ApIIkacja Krotność InstancjI Tworzy za każdym razem... MS Access jedno& nową instancję aplikacji niezależnie od liczby już uruchomionych MS Excel jedno& nową instancję aplikacji niezależnie od liczby już uruchomionych MS Word jedno& nową instancję aplikacji niezależnie od liczby już uruchomionych MS FrontPage jedno& nową instancję aplikacji niezależnie od liczby już uruchomionych MS Outlook wielo& zmienną obiektową zwracającą instancję aplikacji już uruchomionej MS PowerPoint wielo& zmienną obiektową zwracającą instancję aplikacji już uruchomionej Jak zauważyłeś, do tworzenia nowej instancji klasy służy funkcja . Są dwa najważniejsze zastosowania tej funkcji: Sprawdzenie, czy na danym komputerze jest zainstalowana aplikacja, której tworzysz kopię. Przykładowy kod (Listing 2.3): LIstIng 2.3. Użycie funkcji CreateObject do sprawdzenia, czy na danym komputerze jest zainstalowana aplikacja
RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 49
Na dysku CD-ROM w katalogu \Przyklady\Cz_II\ znajdziesz plik CzyJest.xls, z ko- dem listingu 2.3. Zwróć też uwagę na deklarację obiektu aplikacji, odbywa się on w sposób opózniony. Odwołanie się do aplikacji, której nie na lokalnym komputerze ale jest na innym komputerze w sieci. Przykładem takiego zastosowania może być potrzeba wydrukowania raportu z bazy MS Access umiejscowionej na serwerze z pliku MS Excel, nawet jeśli MS Access nie jest zainstalowany na komputerze, z którego wyszło żądanie drukowania. Wtedy użycie funkcji musi odbyć się z dwoma argumentami: nazwą aplikacji i nazwą serwera. LIstIng 2.4. Drukowanie z serwera
Aby kod listingu 2.4 mógł zadziałać muszą być spełnione następujące warunki: zainstalowany MS Office XP (funkcja CreateObject z dwoma argumentami jest do- stępna dopiero od wersji XP) oraz odpowiednio skonfigurowany DCOM na serwe- rze i lokalnym komputerze (na przykład programem Dcomcnfg.exe). W tekście opisującym krotność instancji posłużyłem się również funkcją . Możesz jej używać do zwrócenia informacji o tym, czy: jest już uruchomiona aplikacja i utworzyć zmienną obiektową wskazującą na tę aplikację. Listing 2.5 ilustruje przykładowe zastosowanie funkcji . 50 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA LIstIng 2.5. Czy jest uruchomiona aplikacja?
Jeżeli masz uruchomionych kilka kopii aplikacji, którą chcesz zautomatyzować, nie masz gwarancji, która instancję zwróci Ci funkcja , ponieważ funkcja ta tworzy zmienną obiektową wskazującą na aktualnie otwartą aplikację jednokrotnego wystąpienia. oraz do otwarcia pliku przez odpowiednią aplikację MS Office. Przyjrzyj się listingowi 2.6. LIstIng 2.6. Otwarcie odpowiedniej aplikacji MS Office według rozszerzenia pliku.
RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 51
Instancyjność aplikacji nie jest łatwym zagadnieniem, ale mam nadzieję, że choć tro- chę przybliżyłem Ci tę tematykę. Obiekt Commandbars Każda z aplikacji Office posiada własny zestaw pasków menu i narzędzi. Programu- jąc własne programy pod Office zapewne chciałbyś umieć programowo tworzyć wła- sne paski narzędzi czy menu. W tej części tego rozdziału opiszę jak to zrobić. Na początek słowo wyjaśnienia: jeśli używam słowa pasek bez kontekstu, to mam na myśli pasek menu lub pasek narzędzi lub pasek menu podręcznego. W każdym innym przypadku precyzuję, o jaki pasek mi chodzi. Podobieństwa i różnice Wszystkie aplikacje Office używają tej samej technologii do tworzenia pasków menu i pasków narzędzi. Technologię tę firma Microsoft nazwała Commandbars Object Model . Są trzy rodzaje pasków: paski narzędzi, paski menu i menu podręczne. Menu podręczne są wyświetlane na trzy sposoby: jako przeciągnij-upuść z paska menu, jako podmenu i jako menu kontekstowe. Menu kontekstowe są wyświetlane, jeśli kliknie- my prawym klawiszem myszy. Ponieważ obiekty CommandBars są dostępne we wszystkich aplikacjach Office, możesz napisać kod, by manipulować paskami narzędzi czy menu we wszystkich aplikacjach Office. Każda aplikacja Office przechowuje informacje o swoich paskach w innym miej- scu i, w niektórych przypadkach, w inny sposób. Podstawową różnicą jest to, jak i gdzie każdy program Office przechowuje paski utworzone przez użytkownika. Kiedy poczynisz zmiany we wbudowanych paskach, informacje o tych zmianach zosta- ną zapisane w rejestrze Windows w profilu każdego użytkownika (jeśli Windows jest skonfigurowany na kilku użytkowników). Informacje o zakresie widzialności" i loka- lizacji" są przechowywane w rejestrze Windows bez podziału na użytkowników. Po- nadto każda aplikacja Office przechowuje swoje paski w dokumencie, w którym te paski zostały utworzone lub w konkretnym pliku. Oznacza to, że możesz kopiować paski tylko między dokumentami tego samego typu. Zatem, nie możesz skopiować paska z MS Word i używać go w MS Access. CommandBars aplikacji MS Access Paski, które utworzysz w programie MS Access, są przechowywane w bazie danych, w której zostały utworzone. Jeśli chcesz utworzyć pasek, który będzie dostępny w innych 52 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA bazach danych, musisz utworzyć go w bibliotecznej bazie danych i ustawić odwołanie do tej bibliotecznej bazy danych w każdej bazie, w której dany pasek ma być dostępny. Informacje o wbudowanych paskach narzędzi przechowywane są w rejestrze. CommandBars aplikacji MS Excel MS Excel umożliwia Ci przechowywanie pasków w danym skoroszycie lub w obszarze roboczym. Domyślnie paski Excel tworzone programowo są zapisywane w obszarze ro- boczym danego użytkownika. Jeśli Windows ma zdefiniowanych wielu użytkowników, jak na przykład w środowisku Windows NT, obszar roboczy użytkownika zapisywany jest w katalogu C:\Winnt\ w pliku utworzonym od nazwy użytkownika jak podano poniżej. Jeśli nie zostały utworzone profile użytkowników, to obszar roboczy użytkownika za- pisywany jest w katalogu C:\Windows w pliku o nazwie składającej się z następujących elementów: nazwy użytkownika podanej w oknie dialogowym rejestrującym produkty Office (na przykład: Dorcia), numeru wersji Office (na przykład: 8), rozszerzenia tego pliku *.xlb. W wyniku tego otrzymujemy nazwę pliku: Dorcia8.xlb. Aby zapisać pasek w danym skoroszycie, musisz otworzyć okno dialogowe Dostosuj& , a następnie nacisnąć przycisk Dołącz. W polu po lewej stronie wybierz swój pasek i kliknij przycisk Kopiuj. Niestety, możesz kopiować paski do skoroszytu tylko ręcznie , niemożliwe jest skopiowanie paska z poziomu VBA. Podobnie rzecz ma się, jeśli chodzi o usuwanie. Jeśli chcesz usunąć pasek z aktywnego skoroszytu, wybierz z okna po prawej stronie swój pasek, a następnie kliknij przycisk Usuń. Nie bój się dodawać i usuwać paski z aktywnego skoroszytu. Usuwasz tylko ich kopie z tego skoroszytu, a nie z obszaru roboczego. Wszystkie paski zapisane w obszarze roboczym będą dostępne w każdym z otwieranych skoroszytów. Jeśli chcesz, by dany pasek nie był dostępny w innych skoroszytach, musisz programowo go usunąć lub ukryć. Paski z danego skoroszytu będą dostępne tyl- ko w tym skoroszycie. Jeżeli wybierzesz polecenie z paska zapisanego w obszarze roboczym, utworzonego w skoroszycie X (tu jest zapisany kod, który polecenie ma wykonać), to skoroszyt X zostanie automatycznie otwarty i będzie widoczny. Jeśli otworzysz skoroszyt zawiera- jący pasek, który nie istnieje w Twoim obszarze roboczym, to zostanie on skopiowa- ny do obszaru roboczego. Ta kopia nie jest usuwana po zamknięciu tego skoroszytu. RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 53 CommandBars aplikacji MS Word MS Word może przechowywać paski w kilku miejscach: w pliku Normal.dot (szablo- nie globalnym), innym szablonie (*.dot) lub w danym dokumencie (*.doc). Różnica polega na tym, że paski przechowywane w pliku Normal.dot są dostępne dla każdego dokumentu, który tworzysz, nawet jeśli jest oparty na innym szablonie. Nie jest dobrą praktyką przechowywać własne paski narzędzi w pliku szablonu glo- balnego, ponieważ może to spowodować rozrost tego pliku do dużych rozmiarów i MS Word będzie ładował się wolno. Ponadto, będąc administratorem sam dbałbyś o to, by plik Normal.dot był chroniony przed zapisem. Uchroniłoby Cię to przed groz- nymi wirusami. Zatem przechowuj własne paski narzędzi w pliku zwykłego szablonu. Pasek utworzony w szablonie będzie dostępny w każdym dokumencie opartym na tym szablonie. Jeśli zaś pasek został utworzony w dokumencie, to będzie on dostępny tyl- ko po otwarciu tego dokumentu. Domyślnie wszystkie paski, które utworzysz, będą zapisane w pliku Normal.dot., chyba że zapiszesz je dla danego szablonu lub dokumentu w oknie Dostosuj\Zapisz w& Jeśli utworzysz własny pasek za pomocą VBA, musisz określić, gdzie ma zostać zapisany za pomocą właściwości CustomizationContext obiektu Application. CustomizationContext zwraca lub ustawia obiekt, szablon lub dokument, w którym zmieniasz paski. Właściwość ta jest zarówno do odczytu, jak i zapisu. Poniższy przy- kład (listing 2.7) dodaje kombinację klawiszy do polecenia Zamknij i zapisuje w pliku szablonu globalnego. LIstIng 2.7. Dodawanie kombinacji klawiszy do polecenia w pasku
Poniższy przykład (listing 2.8) dodaje przycisk Informacje o wersji pliku do paska Stan- dardowy i zapisuje w pliku szablonu, na którym oparty jest aktywny dokument. LIstIng 2.8. Dodawanie przycisku do paska
Obiekt CommandBars reprezentuje kolekcję obiektów CommandBar (pasków narzędzi, menu) w aplikacji. 54 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA Kolekcja pasków Każda z aplikacji Office posiada nie jeden, a wiele pasków. Jeśli chciałbyś wyliczyć wszystkie paski dostępne w aplikacji, posłuż się obiektem CommandBars, który re- prezentuje kolekcję pasków, by zwrócić pojedynczy obiekt CommandBar. Listing 2.9 przedstawia przykładową procedurę, która wyświetla w oknie Instrukcje bezpośrednie zarówno nazwę, jak i nazwę lokalną paska menu i paska narzędzi oraz wartość, która identyfikuje, czy pasek menu lub pasek narzędzi jest widoczny. LIstIng 2.9. Wyliczanie pasków
Dodawanie paska do kolekcji Dodawanie paska do kolekcji jest bardzo proste. Wystarczy posłużyć się metodą . Listing przedstawia procedurę, która tworzy pasek narzędzi i nadaje mu nazwę Moj- Pasek. Następnie wyświetla go jako pasek narzędzi pływający (nie mający stałej po- zycji wśród pasków narzędzi). Czytaj uwagi w dalszej części książki, by zrozumieć, dlaczego wyliczam zarówno nazwę, jak i nazwę lokalną. LIstIng 2.10. Tworzenie paska
Do utworzonego przed chwilą paska możesz dodać polecenia lub zmienić miejsce jego dokowania. Aby odwołać się do istniejącego paska, musisz użyć składni , gdzie jest nazwą lub indeksem paska narzędzi. Następująca instruk- cja dokuje pasek narzędzi nazwany MojPasek w dolnej części okna aplikacji: . Możesz używać nazwy lub indeksu, by określić pasek menu lub pasek narzędzi z li- sty dostępnych pasków menu lub pasków narzędzi w kolekcji aplikacji. Aczkolwiek, musisz posłużyć się nazwą, by określić menu, menu podręczne lub podmenu. Jeśli dwa lub więcej z pasków użytkownika będą miały tę samą nazwę, obiekt zwróci pierwszą z nich. By upewnić się, że zwracasz poprawne menu lub podmenu, zlokalizuj kontrolkę, która przechowuje to menu. Pasek Reprezentuje pojedynczy pasek narzędzi lub menu w kolekcji pasków narzędzi lub menu aplikacji. RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 55 Listing 2.11 przedstawia funkcję, która sprawdza, czy w kolekcji pasków znajduje się pasek o nazwie określonej przez procedurę, która wywołuje funkcję . Jeśli znajdzie, czyni go widocznym i chroni jego miejsce dokowania. Funkcja zwraca prawdę, jeżeli pasek został znaleziony i fałsz, jeżeli nie udało się znalezć określonego paska w kolekcji pasków aplikacji. LIstIng 2.11. Szukanie paska w kolekcji pasków
Kopiowanie paska Kopiowanie paska może być wykonane na dwa sposoby. Pierwszy polega na ręcznym skopiowaniu, drugi na skopiowaniu programowym. Aby programowo skopiować pa- sek, należy najpierw utworzyć nowy pasek, a następnie posłużyć się metodą , by skopiować każde z poleceń z oryginalnego paska do nowego. Przykładową procedurę kopiowania paska Formatowanie ilustruje listing 2.12. LIstIng 2.12. Kopiowanie paska
56 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA
Usuwanie paska Usuwanie paska, tak jak dodawanie czy kopiowanie, możesz wykonać ręcznie lub napisać odpowiednią funkcję, procedurę. Jest jednak jedno małe ale . Paska typu Pop-up nie możesz usunąć ręcznie w oknie dialogowym Dostosuj. Jedyną możliwo- ścią jest usunięcie takiego paska z kodu. Przykładową procedurę usuwającą pasek, który kopiowaliśmy w poprzednim rozdziale, przedstawia listing 2.13. LIstIng 2.13. Usuwanie paska
Jednak bardziej uniwersalnym rozwiązaniem będzie kod przedstawiony w listingu 2.14. LIstIng 2.14. Usuwanie paska z programem obsługi błędów
Jeżeli dobrze przyjrzałeś się listingowi, to zapewne zauważyłeś, że umieściłem tam instrukcję , która ma za zadanie przechwycić i obsłużyć błąd, kiedy podana nazwa nie jest nazwą paska lub paska nie ma w kolekcji pasków. Taka sytuacja może wystąpić również, jeżeli próbujesz usunąć któryś z wbudowanych pa- sków narzędzi, na przykład Standardowy. Blokowanie paska przed modyfikacjami Czasami trzeba zablokować pasek przed modyfikacjami ze strony innych użytkowników. Zadanie to nie jest takie proste, bo użytkownicy mogą dotrzeć do pasków na trzy sposoby: RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 57 1. używając polecenia Widok\Paski Narzędzi\Dostosuj, 2. klikając prawym klawiszem myszy, gdy wskaznik znajdzie się na szarym polu pasków, 3. klikając prawym klawiszem myszy, gdy wskaznik znajdzie się na którymś z pasków. Na szczęście jest rozwiązanie. Po pierwsze: ukryj pasek menu lub wyłącz polecenie Widok\Paski Narzędzi, wtedy będziesz miał pewność, że użytkownik nie będzie miał dostępu do modyfikacji pa- sków pierwszą z wymienionych metod. Po drugie: użyj poniższego polecenia, by zabrać prawa do przeglądania i modyfikowania niestandardowych pasków narzędzi za pomocą 2. i 3. metody: . Dodawanie poleceń do paska Poniższy przykład (listing 2.15) dodaje nowy przycisk w menu Narzędzia. W procedu- rze kliknięcia na tym przycisku umieszcza funkcję, która wyświetli komunikat. LIstIng 2.15. Dodanie polecenia z kodu i przypisanie mu procedury
Używaj nazwy, a nie nazwy lokalnej, by mieć pewność, że zwracasz prawidłowe menu. Pokazywanie i ukrywanie poleceń W zależności od tego, jak bardzo rozbudowana będzie Twoja aplikacja, będziesz musiał utworzyć jakiś uniwersalny pasek, w którym umieścisz tak wiele poleceń, jak będzie konieczne. Jednakże nie zawsze wszystkie polecenia muszą być w danym momencie widoczne. Przykładowo, na jednym formularzu użytkownik będzie miał dostępnych tylko pięć elementów paska, a na drugim już siedem. Taka sytuacja zaistnieje tylko wtedy, gdy każdy z formularzy będzie służyć do czego innego. Czy jednak zawsze trzeba ukrywać polecenia? Czasami wystarczy uniemożliwić dostęp do nich w inny sposób, ale o tym już w dalszej części książki. 58 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA Oto prosta instrukcja zmieniająca stan widzialności polecenia na pasku:
Jeśli często w aplikacji będziesz pokazywał lub ukrywał jakieś polecenie, lepiej jest napisać procedurę, która będzie pobierała 2 argumenty: etykietę polecenia i stan. Przykła- dowa procedura dla aplikacji Excel mogłaby wyglądać tak, jak przedstawia listing 2.16. LIstIng 2.16. Procedura pokazywania i ukrywania poleceń paska
Jeśli zechcesz zmienić pasek menu w innej aplikacji Office, użyj zamiast . Jeśli powyższa procedura (listing 2.16) zostanie wywołana tylko z argumentem , to domyślnie pokaże dane polecenie. Parametr nie jest wymagany. Aby ukryć jakieś polecenie, po etykiecie podaj również . Następujący kod: Plik pokazuje wcześniej ukryte polecenie. Do ustawiania domyślnych parametrów wywoływanej procedury lub funkcji służy słowo kluczowe . Przyjrzyj się dokładnie procedurze , a zauważysz, że stan zadeklarowałem jako wartość typu i od razu ustawi- łem na . Jeżeli w parametrach, które pobiera funkcja, znajdzie się wartość ty- pu , to nie możesz jej przypisać wartości domyślnej (ze względu na to, że nie wiesz jak konkretnie wartość zostanie przekazana do funkcji). Aby sprawdzić, czy procedura została wywołana z wartością, która nie jest wymagalna, musisz użyć funkcji , by zwrócić prawdę (podany argu- ment) lub fałsz. Następnie będziesz mógł przypisać jakąś wartość. Włączanie i wyłączanie poleceń Czy pamiętasz jak pisałem, że nie zawsze trzeba ukrywać polecenia i czasami wystar- czy wyłączyć to polecenie? Do włączania lub wyłączania poleceń paska służy właści- wość Enabled. Możesz ustawić dowolny stan dla danego polecenia na przykład tak:
lub posłuż się procedurą podobną do w poprzednim rozdziale, tylko zamiast właściwości Visible, użyj Enabled. Proste? Mam nadzieję, że tak. Za- pewne zauważyłeś, że zajmowałem się dotychczas tylko poleceniami głównymi. Jak dotrzeć do poleceń, umieszczonych wewnątrz tych poleceń? Zastanów się i spróbuj napisać odpowiedni kod. RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 59 Obiekt Assistant Obiekt Assistant to popularny w pakiecie Asystent. Wiadomo, że generalnie podpo- wiada, co mamy zrobić, przy okazji posługując się ciekawymi efektami graficznymi. Asystent to doskonałe narzędzie do Twoich aplikacji. Można go tak zaprogramować, by nie tylko wyświetlał podpowiedzi, ale również współdziałał z elementami interfej- su aplikacji. Możesz, na przykład, za pomocą Asystenta uruchamiać polecenia z paska lub wstawiać grafikę do dokumentu. Ciekawą sprawą jest to, że cały proces zachodzi bez zamykania okna aplikacji. Asystenta możesz zaprogramować tak, by wykonywał wszystkie czynności jakie chcesz. Do tego celu musisz ustawić zmienną obiektową, która pozwoli na manipulowanie wszystkimi właściwościami i metodami Asystenta. Możesz na przykład uczynić Asy- stenta widocznym, przenieść go w inne miejsce na ekranie, określić animację, którą chcesz uruchomić i wyświetlić Assistant balloons (słowa tego nie tłumaczymy, ale dla ułatwienia będę posługiwał się określeniem podpowiedz, podpowiedzi) zawierające okre- ślony przez Ciebie tekst i kontrolki (np. pola opcji). Obiekt Assistant reprezentuje Asystenta pakietu Office. Obiekt Assistant nie jest ko- lekcją obiektów Assistant i tylko jeden Assistant może być aktywny w danym czasie. Popularny Asystent może przyjmować jedną z wielu zaprogramowanych postaci. Po- staci te ukryte są w plikach o rozszerzeniu *.act i najczęściej znajdują się w katalogu C:\Program Files\Microsoft Office\Office\Actors. Tabela 2.2 przedstawia nazwy po- szczególnych plików dla każdej z postaci Asystenta. TabeIa 2.2. Nazwy plików Asystenta Postać (nazwa orygInaIna) Postać (poIskI odpowIednIk) Nazwa pIIku Office Logo Logo Logo.act PowerPup Super Pies Powerpup.act The Genius Geniusz Genius.act Hoverbot Poduszkobot Hoverbot.act Scribble Świstek Scribble.act The Dot Punkt Dot.act Clippit Spinacz Clippit.act Mother Nature Matka Natura MNature.act Will Will Will.act Posługując się nazwą pliku możesz określić, jakiego Asystenta chcesz w danej chwili wyświetlić. Służy do tego właściwość FileName obiektu Assistant. Musisz być jednak pewien, że na komputerze użytkownika zainstalowane są składniki odpowiadające za wyświetlanie odpowiedniej postaci Asystenta. W innym przypadku będzie występował błąd. Ponadto, każdy z użytkowników personalizuje Office, co oznacza, że tylko dana postać Asystenta może mu odpowiadać. 60 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA Aby wyświetlić aktualną (używaną przez użytkownika) postać Asystenta, wykonaj ten kod:
Samo wyświetlenie Asystenta jeszcze nic nie oznacza. Nic nie będzie podpowiadał. Do komunikacji z użytkownikiem poprzez Asystenta będziesz potrzebował obiektu Balloon. Różnice w programowaniu Asystenta dla pakietów Office: do pakietu Office XP Asy- stent jest albo widoczny i dostępny, albo niewidoczny i niedostępny, ale nigdy nie można go całkowicie wyłączyć. Od pakietu Office XP Asystent ma nową właściwość On i może być albo włączony, albo wyłączony. Ta właściwość decyduje o tym, czy Asystent jest dostępny w całym pakiecie. Dlatego, podczas programowania Asy- stenta w pakiecie Office XP, zwróć szczególną uwagę na to, w jakim stanie znaj- dował się Asystent zanim zacząłeś nim manipulować w kodzie. Najlepiej przypisz do zmiennej jego stan przed wywołaniem, a po zakończeniu prac z Asystentem, ustaw stan Asystenta na tę zmienną. Przyjrzyj się listingowi 2.17. LIstIng 2.17. Korzystanie z Asystenta
Balloon Jak już wspomniałem, obiekt Balloon Asystenta służy do komunikacji z użytkownikiem Twojej aplikacji. Jest on zaprojektowany tak, byś mógł łatwo go wywoływać, ale nie ma na celu zastąpienia okien dialogowych. Powiedzmy sobie, że jest tylko środkiem pomocniczym. Obiekt Balloon reprezentuje podpowiedz wyświetlaną za pomocą Asystenta, z na- główkiem i wiadomością tekstową. Może on zawierać kontrolki takie jak: pola wyboru (CheckBoxes) lub etykiety (Labels). Balloon nie jest kolekcją Balloons, ponieważ jest pojedynczym obiektem. W jednym czasie może być widoczny tylko jeden Balloon, aczkolwiek możliwe jest zdefiniowanie wielu Balloons i wywołanie dowolnego z nich wtedy, kiedy będzie potrzebny. Do utworzenia nowego obiektu Balloon służy właści- wość NewBalloon. RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 61 Listing 2.18 przedstawia przykład tworzenia pojedynczego obiektu Balloon. LIstIng 2.18. Tworzenie pojedynczego obiektu Balloon
Listing 2.19 przedstawia przykład tworzenia wielu obiektów Balloon. LIstIng 2.19. Przykład tworzenia wielu obiektów Balloon
62 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA
Listing 2.20 przedstawia trzy procedury. Pierwsza wywołuje procedurę tworzącą nową podpowiedz z kilkoma opcjami wyboru i wyświetla podpowiedz. Druga jest powołana do tego, by dowiedzieć się, jakiego wyboru dokonał użytkownik, a trzecia wyświetla, również przez Asystenta, odpowiedz. LIstIng 2.20. Kompleksowa obsługa Asystenta
RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 63
Obiekt FileSearch Obiekt FileSearch jest programowym odzwierciedleniem okna dialogowego Otwórz do- stępnego z menu Plik. Oznacza to, że masz do dyspozycji wszystkie metody i właści- wości, które są normalnie dostępne w powołanym oknie. Co ciekawe, wcale nie mu- sisz używać tego okna, a wręcz możesz skonstruować własne. Obiekt FileSearch posiada dwie metody i kilka właściwości, których możesz użyć do zbudowania własnego okna do poszukiwania plików. Musisz użyć właściwości File- Search, by zwrócić odwołanie do tego obiektu. Następnie posłuż się metodą NewSearch, by zresetować (wyczyścić) wszystkie kryteria poprzedniego poszukiwania. Metoda NewSearch nie czyści kryterium LookIn, czyli ścieżki, która jest przeszukiwa- na. Aby ją wyczyścić, a raczej ustawić na nowo, po prostu przypisz jej inną wartość. Listing 2.21 przedstawia przykład kodu, który powoduje wyświetlenie wszystkich pli- ków, które w nazwie mają słowo office , znalezionych w określonej lokalizacji. W przy- padku niepowodzenia wyświetlony zostanie komunikat, że nie znaleziono określonych plików. LIstIng 2.21. Poszukiwanie plików z kodu
64 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA
Na dysku CD-ROM w katalogu Przyklady\Cz_II znajdziesz przykład własnego okienka do poszukiwania plików, plik FileSearch.xls. Obiekt DocumentProperties Każdy plik pakietu Office ma wbudowane pewne właściwości. Możesz dodawać rów- nież własne właściwości, czy to manualnie, czy to z kodu. Używając tych właściwości możesz tworzyć, przechowywać i śledzić informacje o dokumentach pakietu Office. Są to między innymi: data utworzenia, autor, dane o osobie, która dokonała ostatnich zmian i wiele, wiele innych. MS Access nie posiada obiektu DocumentProperties do przechowywania wbudowa- nych i własnych właściwości wyświetlanych w oknie dialogowym Właściwości bazy danych. Aby zwrócić kolekcję DocumentProperties, użyj dwóch podstawowych właściwości: BuiltInDocumentProperties, zawierającej wszystkie wbudowane właściwości dokumentu, CustomDocumentProperties, zawierającej wszystkie dodane właściwości dokumentu. Listing 2.22 przedstawia przykładową procedurę wyliczającą po nazwie wbudowane wła- ściwości aktywnego skoroszytu i ich wartości. LIstIng 2.22. Wyliczanie wbudowanych właściwości aktywnego skoroszytu i ich wartości
RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 65
Identyczną procedurę należałoby napisać do wyliczenia własnych, dodanych właściwo- ści danego dokumentu. Oczywiście, jeśli dany kod miałby być uruchomiony dla aplika- cji MS Word, zamiast wyrażenia należałoby użyć . Posługując się tymi właściwościami można bardzo dużo się dowiedzieć o historii do- kumentu. Mianowicie, kiedy i przez kogo był ostatnio zapisany, czy został wydruko- wany i kto go drukował oraz uzyskać wiele innych ciekawych informacji. Zastanów się, jak mógłbyś je wykorzystać. Środowisko aplikacji Dlaczego środowisko aplikacji? Nazwałem ten rozdział tak, ponieważ wszystkie podane funkcje są związane ze środowiskiem, otoczeniem, sprawami związanymi z aplikacją, którą projektujesz. Bardzo często oprócz typowych informacji zawartych w dokumen- cie, skoroszycie czy bazie danych będziesz potrzebował innych, np. jaki użytkownik jest w tej chwili zalogowany? gdzie jest katalog systemowy, tymczasowy? jak wywołać inny program? i wiele, wiele innych. Funkcja Environ Pierwsza z kilku funkcji związanych ze środowiskiem aplikacji, bardzo interesująca. Służy do zwracania wartości typu odpowiadającej wartości zmiennej otocze- nia systemu operacyjnego. Ja osobiście używałem jej w kilku sytuacjach: 66 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA Dla aplikacji pracującej w Windows NT odczytywałem użytkownika. W ten sposób pomijałem proces logowania uprawnionych użytkowników. Oczywiście aplikacja kontrolowała, kto miał nadane uprawnienia. Do zwrócenia wartości ścieżki katalogu TEMP. Składnia tej funkcji jest następująca: . jest to wyrażenie znakowe zawierające nazwę zmiennej otoczenia. Argument nieobowiązkowy. jest to wyrażenie numeryczne odpowiadające liczbie porządkowej ciągu otoczenia w tablicy ciągów otoczenia. Argument może być dowolnym wyrażeniem numerycznym, ale przed użyciem jego wartość jest zaokrąglana do najbliższej liczby całkowitej. Argument nieobowiązkowy. Możesz posłużyć się tą funkcją na dwa sposoby: 1. Użyć argumentu , na przykład tak:
Jeżeli argument zostanie znaleziony w tablicy ciągów otoczenia, zwracana jest wartość Zmiennej środowiskowej. 2. Użyć argumentu :
Jeżeli argument zostanie znaleziony w tablicy ciągów otoczenia, zwracana jest nazwa zmiennej i jej wartość w następującej postaci:
Kiedy nie zostanie znaleziony żaden z argumentów, funkcja zwróci ciąg o zerowej długości (""). W listingu 2.23 funkcja zwraca nazwy i wartości wszystkich zmiennych śro- dowiska. LIstIng 2.23. Wyliczanie zmiennych środowiskowych
RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 67 Funkcja Shell Funkcja ta uruchamia określony program. W przypadku powodzenia zwraca wartość ty- pu ( ) reprezentującą identyfikator zadania odpowiadającego uruchomio- nemu programowi. W przypadku niepowodzenia zwraca zero. Składnia tej funkcji: . jest to nazwa programu, który ma być uruchomiony. Użycie wraz ze wszystkimi potrzebnymi argumentami lub opcjami podawanymi w wierszu poleceń; może zawierać nazwę katalogu lub folderu oraz nazwę dysku. Argument obowiązkowy typu ( ). podając ten argument określasz styl okna, w którym ma być wykonywany program. Pomijając go, uruchomisz program w postaci zminimalizowanej z fokusem. Argument nieobowiązkowy typu ( ). Argument ten może przyjąć jedną z wartości przedstawionych w tabeli 2.3. TabeIa 2.3. Wartości parametru windowstyle Wartość OpIs dzIałanIa 0 Okno jest ukrywane, a fokus jest przekazywany do tego ukrytego okna. 1 Okno otrzymuje fokus, a rozmiar i położenie okna są przywracane do stanu początkowego. 2 Okno jest wyświetlane w postaci zminimalizowanej z fokusem. 3 Okno jest maksymalizowane i ma fokus. 4 Odtwarzany jest ostatni rozmiar i położenie okna. Aktualnie aktywne okno pozostaje aktywne. 6 Okno jest wyświetlane jako ikona. Aktualnie aktywne okno pozostaje aktywne. Funkcja uruchamia programy w sposób asynchroniczny. Oznacza to, że pro- gram uruchomiony przez funkcję może się nie zakończyć przed rozpoczęciem wykonywania instrukcji występujących po funkcji . Przykład wykorzystania funkcji przedstawia listing 2.24. LIstIng 2.24. Przykład wykorzystania funkcji Shell
68 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA Spotkałem się z wykorzystaniem funkcji do pakowania plików, które były na- stępnie wysyłane do zainteresowanych osób. Muszę przyznać, że jest to bardzo ciekawe wykorzystanie tej funkcji. Instrukcja AppActivate Instrukcja uaktywnia okno aplikacji. Składnia: . wyrażenie znakowe określające tekst umieszczony na pasku tytułu uaktywnianego okna aplikacji. W celu uaktywnienia aplikacji zamiast argumentu można również użyć identyfikatora zadania zwracanego przez funkcję . Argument obowiązkowy. wartość typu , która określa, czy aplikacja wołająca inną aplikację ma fokus. Wartość (domyślnie) powoduje, że wywoływana aplikacja jest uaktywniana niezależnie od tego, czy aplikacja miała fokus. Wartość powoduje, że aplikacja wołająca czeka, aż zostanie do niej przekazany fokus, a następnie uaktywnia podaną aplikację. Argument nieobowiązkowy. Instrukcja przenosi fokus na podaną aplikację lub okno, ale nie wpływa na to, czy aplikacja jest minimalizowana czy maksymalizowana. Fokus jest przenoszony z okna uaktywnionej aplikacji, gdy użytkownik wykonuje czynność związaną ze zmianą fokusu lub zamyka okno dialogowe. Aby uruchomić aplikację lub ustawić styl okna, należy użyć funkcji . Podczas określania, która aplikacja ma zostać uaktywniona, argument jest porównywany z tytułami wszystkich aktualnie działających aplikacji. Jeśli żaden z tytułów okien nie jest zgodny z porównywanym wzorcem, uruchamiana jest ta aplikacja, dla której początkowa część tytułu odpowiada wartości argumentu . Jeśli zostało uruchomionych kilka kopii tej samej aplikacji o podanym tytule, zosta- nie wybrana jedna w nich. Gdy podany program jest już uruchomiony, uaktywniasz jego okno wywołując go w podany sposób:
Ponieważ instrukcja może używać wartości zwróconej przez funkcję , możesz uaktywnić okno aplikacji poprzednio uruchomionej funkcją . Przykłady wykorzystania funkcji i przedstawia listing 2.25. LIstIng 2.25. Przykłady wykorzystania funkcji Shell i AppActivate
RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 69 Funkcja DoEvents Funkcja ta przekazuje sterowanie do systemu operacyjnego, umożliwiając przetwarzanie zdarzeń. Sterowanie to zwracane jest po obsłużeniu przez system operacyjny wszystkich zdarzeń z systemowej kolejki oraz po wysłaniu z kolejki SendKeys wszystkich kluczy. We wszystkich aplikacjach Office funkcja zwraca wartość zero. Z kolei w au- tonomicznych wersjach systemu Visual Basic, jak np. Visual Basic, Standard Edition, funkcja zwraca wartość typu reprezentującą liczbę otwartych for- mularzy. Funkcja jest bardzo przydatna, gdy wykonywany program zajmuje dużo czasu procesora. Korzystając z tej funkcji (tylko w razie takiej potrzeby), pozwalasz systemo- wi operacyjnemu na obsługę bez zbytniego opóznienia zdarzeń takich, jak naciśnięcia klawiszy czy kliknięcia myszą. Przekazując sterowanie za pomocą funkcji , upewnij się, czy procedura oddająca sterowanie NIE ZOSTANIE ponownie wywołana z innej części programu przed powrotem sterowania po pierwszym wywołaniu funkcji . Grozi to trud- nymi do przewidzenia skutkami, uszkodzeniami plików, a nawet systemu. Pamię- taj też, że funkcji nie należy stosować, jeśli inne aplikacje mogą w tym czasie odwoływać się do procedury, która oddała sterowanie. Jak używać tej funkcji, pokażę przy opisywaniu kolejnej. Funkcja Timer Zwraca wartość typu określającą liczbę sekund, które minęły od północy. W tym przykładzie (listing 2.26) funkcja przerywa wykonywanie aplikacji na okre- ślony czas i pozwala, by w trakcie tej przerwy mogły działać inne procesy. LIstIng 2.26. Przykład przerwania wykonywania aplikacji
70 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA Aplikacja MS Excel posiada oddzielną funkcję. W aplikacji MS Excel do zatrzymania wykonywania kodu na określony czas lub do określonej godziny służy funkcja . Listing 2.27 ilustruje procedurę , która w parametrach wywołania pobiera czas w sekundach. LIstIng 2.27. Procedura Czekaj
Instrukcja SendKeys Wysyła do aktywnego okna dane generowane przez naciśnięcie klawiszy, tak jakby zostały one wprowadzone z klawiatury. Składnia: . wyrażenie znakowe określające naciśnięcia klawiszy. Argument obowiązkowy. Aby użyć klawiszy specjalnych, musisz wpisać ich kod (tabela 4.2). wartość typu określająca typ czekania. Wartość (domyślnie) oznacza, że sterowanie powróci do procedury zaraz po wysłaniu sekwencji naciśnięć klawiszy. Wartość oznacza, że sterowanie powróci do procedury po przetworzeniu wysłanych naciśnięć klawiszy. Argument nieobowiązkowy. Każdy klawisz jest reprezentowany przez jeden lub więcej znaków. Aby przesłać je- den znak umieszczony na klawiaturze, jako wartość należy podać ten znak. Na przy- kład, aby przesłać literę A, argumentowi należy nadać wartość . Aby przesłać więcej niż jeden znak, należy dołączać kolejne znaki do ciągu. I tak, aby przesłać lite- ry A, B i C, argumentowi należy nadać wartość . Znaki plus (+), daszek (^), procent (%), tylda (~) i nawiasy okrągłe ( ) mają w instrukcji specjalne znaczenie. Aby przesłać dowolny z tych znaków, należy umieścić je w nawiasach klamrowych {}. Na przykład, aby przesłać znak plus, należy napisać . RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 71 Nawiasy kwadratowe [ ] nie mają specjalnego znaczenia w instrukcji , jed- nakże muszą być one umieszczane w nawiasach okrągłych. Mogą one mieć znaczenie w innych aplikacjach, np. przy dynamicznej wymianie danych (DDE). Aby przesłać na- wiasy klamrowe, należy wpisać i . Znaki, które nie są wyświetlane po naciśnięciu klawisza, takie jak Enter czy Tab, oraz klawisze oznaczające akcje, a nie znaki, są reprezentowane przez następujące kody (tabela 2.4): Aby przesłać kombinację klawisza z klawiszami Shift, Ctrl, lub Alt, należy poprzedzić kod klawisza odpowiednimi kodami z tabeli 2.5 Aby określić, że klawisze Shift, Ctrl lub Alt mają być wciśnięte w momencie naciska- nia kilku innych klawiszy, należy kody tych klawiszy ująć w nawias. Na przykład, aby określić, że ma być wciśnięty klawisz Shift, podczas naciskania klawiszy E i C, należy napisać . Aby określić, że klawisz Shift ma być wciśnięty tylko podczas naciskania klawisza E, należy napisać . Aby określić kolejne naciśnięcia tego samego klawisza, należy napisać . Parametry i muszą być rozdzielone spacją. Na przykład, oznacza, że kod klawisza STRZAAKA W LEWO ma zostać wysłany 42 razy; oznacza, że kod klawisza H zostanie wysłany 10 razy. Za pomocą funkcji nie można wysyłać naciśnięć klawiszy do aplikacji, która nie została zaprojektowana dla systemu Microsoft Windows. nie umożliwia również wysłania klawisza PRINT SCREEN do żadnej aplikacji. Listing 2.28 ilustruje wykorzystanie funkcji do uruchomienia aplikacji Kalkulator systemu Microsoft Windows. Za pomocą funkcji wysyłane są naciśnięcia kla- wiszy w celu pomnożenia liczb i zakończenia pracy Kalkulatora. LIstIng 2.28. Użycie funkcji Shell i SendKeys w praktyce
Automakra Po serii ciekawych instrukcji i funkcji przyszedł czas na automakra. Są one nieroze- rwalnie związane ze środowiskiem aplikacji, to znaczy, że są wykonywane zaraz po uruchomieniu aplikacji czy dokumentu. 72 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA TabeIa 2.4. Kody klawiszy funkcyjnych KIawIsz Kod BACKSPACE , lub BREAK CAPS LOCK DEL lub DELETE lub STRZAAKA W DÓA END ENTER lub ESC HELP HOME INS lub INSERT lub STRZAAKA W LEWO NUM LOCK PAGE DOWN PAGE UP PRINT SCREEN
STRZAAKA W PRAWO SCROLL LOCK TAB STRZAAKA W GÓR F1 F2 F3 F4 F5 F6
F7 F8 F9
F10 F11 F12 F13 F14 F15 F16 RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 73 TabeIa 2.5. Kody klawiszy specjalnych KIawIsz Kod SHIFT CTRL ALT Automakra to takie makra, które noszą specjalną nazwę, przez co program automa- tycznie je uruchamia, gdy zajdzie określona sytuacja, na przykład, kiedy uruchomisz lub zamkniesz dany program lub dokument. Tabela 2.6 przedstawia nazwy makr rozpoznawane przez poszczególne aplikacje Office. TabeIa 2.6. Nazwy automakr Program Nazwa KIedy zostaje uruchomIone? Word Podczas otwierania (ładowania) szablonu globalnego Word.
Za każdym razem, kiedy tworzysz nowy dokument. Za każdym razem, kiedy otwierasz istniejący dokument (szablon). Za każdym razem, kiedy zamykasz dokument (szablon). Podczas zamykania szablonu globalnego lub zamykania aplikacji Word. Za każdym razem, kiedy otwierasz istniejący skoroszyt (szablon). Za każdym razem, kiedy uaktywniasz obiekt. Excel Za każdym razem, kiedy deaktywujesz obiekt. Za każdym razem, kiedy zamykasz skoroszyt (szablon). Access Za każdym razem, kiedy otwierasz bazę danych. Oczywiście automakra nie są jedynymi procedurami uruchamianymi podczas otwie- rania określonego rodzaju dokumentu. Większość dokumentów pakietu Office posia- da własne procedury uruchamiane wraz z otwarciem czy zamknięciem dokumentu. Podstawowe procedury przedstawione są w tabeli 2.7. Jeżeli chcesz poznać inne, zaj- rzyj do przeglądarki obiektów. TabeIa 2.7. Inne makra uruchamiane automatycznie ApIIkacja Nazwa procedury KIedy zostaje uruchomIone? Word Za każdym razem, kiedy tworzysz nowy dokument.
Za każdym razem, kiedy otwierasz istniejący dokument (szablon). Za każdym razem, kiedy zamykasz istniejący dokument (szablon). Excel Za każdym razem, kiedy otwierasz skoroszyt (szablon). Za każdym razem, kiedy zamykasz skoroszyt (szablon). 74 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA W literaturze spotkałem się z określeniem, iż automakra pozostały dla zachowania zgod- ności z poprzednimi wersjami VBA dla Office. Ale czy tak jest naprawdę? Nie wiem. Wielokrotnie spotkałem się nawet w najnowszych szablonach, kreatorach z autopro- cedurami, zamiast z nowymi procedurami uruchomieniowymi dla poszczególnych do- kumentów. Jak utworzyć automakro w Wordzie? Jeżeli automakro ma być umieszczone w szablonie globalnym& Wstaw moduł do i nadaj mu dowolną nazwę. W module tym umieść na przykład taką procedurę:
Jeżeli automakro ma być umieszczone w szablonie i (lub) dokumencie& Wstaw moduł do tego szablonu (dokumentu) i nadaj mu dowolną nazwę. W module tym umieść na przykład taką procedurę:
Automakra mogą być przechowywane w szablonie globalnym, innym szablonie lub dokumencie. W przypadku wystąpienia konfliktu nazw (wiele makr będzie miało tę samą nazwę), Word uruchomi makro w najbliższym kontekście. Na przykład, jeżeli utworzysz makro w szablonie i dokumencie, Word uruchomi tylko makro z dokumentu. Jeśli utworzysz makro w szablonie globalnym, makro to zosta- nie uruchomione pod warunkiem, że nie będzie zawierał takiego żaden z otwartych dokumentów lub szablonów. Jak utworzyć automakro w Excelu? Podobnie jak w Wordzie, do aktywnego skoroszytu musisz wstawić moduł i nadać mu dowolną nazwę. Następnie umieść w nim procedurę, jak pokazuje przykład poniżej:
Aby uruchomić makra lub , musisz posłużyć się me- todą . Metoda dla MS Excela ma następującą składnię:
określa skoroszyt. Argument obowiązkowy. argument obowiązkowy, określający makro do uruchomienia. Może przyjąć jedną z następujących postaci (tabela 2.8): RozdzIał 2. f& WspóIne cechy I obIekty programów OffIce 75 TabeIa 2.8. Wartości argumentu które dla metody RunAutoMacros Wartość UruchamIa& procedurę . procedurę . procedurę . procedurę . Jak utworzyć automakro w programie Access? Tu zagadnienie nieco się komplikuje, a to ze względu na kilka czynników. Postaram się jednak Ci to wszystko wytłumaczyć. Możesz utworzyć makro, które będzie automatycznie się uruchamiało podczas otwiera- nia bazy danych na dwa sposoby: 1. Dodać nowe makro (oczywiście odpowiednio je nazwać) i tam określić wszystkie polecenia do wykonania. Zawartość makra : PoIe Akcja PoIe Nazwa formuIarza
2. Wstawić moduł i umieścić w nim funkcję, którą każdorazowo będzie wykonywała baza danych podczas otwierania. Następnie dodać nowe makro, a w nim określić, jaki kod ma wykonać. W polu Akcja umieść , a w polu Nazwa funkcji nazwę funkcji, która ma zostać wykonana. Zawartość makra : PoIe Akcja PoIe Nazwa funkcjI
Zawartość modułu:
Oczywiście, sposób drugi jest bardziej wydajny, bo masz praktycznie nieograniczone możliwości (no, chyba że ograniczone do możliwości języka VBA i Twoich). Zaś sposób pierwszy pozwala Ci wykonać tylko akcje dostępne w polu Akcja. Zapewne zwróciłeś uwagę, że w aplikacjach Word i Excel używaliśmy słowa kluczo- wego , a w Access . I to jest właśnie ta podstawowa różnica w konstruk- cji modułu. 76 MS OffIce 2000 I 2002/XP. TworzenIe własnych apIIkacjI w VBA Aby wyłączyć działanie automakr, wystarczy podczas otwierania określonego doku- mentu Office przytrzymać klawisz Shift. Nie da się jednak zatrzymać automakr za- pisanych w dodatkach. Directory. Przejście przez dotychczasowe rozdziały powinno dać biegłość we wszyst- kich głównych elementach Active Directory i doprowadzić do rozpoczęcia pierwszego rzeczywistego Ostrzeżenie Wiesz już jak umieszczać automakra w dokumentach Office. Chcę Cię jednak ostrzec, że automakra są często wykorzystywane w wirusach. W dokumentach Word najczęściej dochodzi do zarażenia szablonu globalnego, po czym w tym szablonie umieszczana jest procedura z instrukcjami destrukcyjnymi. Jeżeli otwierasz jakikolwiek dokument Word, który nie powinien mieć żadnych makr czy kodu, a pojawia się ostrze- żenie o makrowirusach, oznacza to, że najprawdopodobniej masz zarażony szablon glo- balny. Oczywiście nic tak nie pomoże jak dobry program antywirusowy, ale możesz spróbować się bronić sam. Utwórz skrót do programu Word, po czym wejdz do wła- ściwości tego skrótu. W polu Obiekt docelowy dodaj na końcu ścieżki do programu po spacji parametr . Spowoduje to wywoływanie aplikacji Word bez opcji uruchamiania automakra. Oczywiście makro , które sam napisałeś, również nie zostanie uru- chomione. Jeśli jednak Twoja aplikacja wymaga, by jakieś makro było uruchamiane wraz z programem Word, musisz utworzyć makro i nadać mu na przykład nazwę , po czym otwierać aplikację przez skrót utworzony w następujący sposób: 1. Utwórz skrót do programu Word, po czym wejdz do właściwości tego skrótu. 2. W polu Obiekt docelowy dodaj na końcu ścieżki do programu po spacji parametr oraz nazwę Twego makra (bez spacji): . Excel posiada także pewne właściwości startowe. Jeśli chcesz, by jakiś skoroszyt był uruchamiany za każdym razem, kiedy jest uruchamiany Excel, wystarczy, że zapiszesz go w katalogu: \Program Files\Microsoft Office\Office\XlStart. Możesz w ten sposób monitować kto, kiedy i jaki otwierał skoroszyt. Taką metodę wykorzystywał słynny wirus o nazwie Laroux . Umieszczał on we wspo- mnianym katalogu skoroszyt o nazwie Personal , który automatycznie uruchamiał się wraz programem Excel. Po otwarciu skoroszytu uaktywniał się wirus, który sprawdzał, czy pozostałe skoroszyty (otwarte przez użytkownika lub nowo utworzone) zawierają ar- kusz o nazwie takiej, jak wirus. Jeśli nie, tworzył taki arkusz, ukrywał i wstawiał moduł z kodem wirusa. Otwarcie tak zarażonego pliku na dowolnym, innym komputerze powo- dowało utworzenie pliku Personal.xls (jeśli nie istniał) itd., itd. Istnieje kilkanaście odmian tego wirusa. Najłagodniejsza utrudnia życie tylko wtedy, jeśli wykonujesz jakieś czyn- ności automatycznie (z kodu), szczególnie kiedy w odwołaniach do arkuszy nie posługi- wałeś się nazwą, a indeksem. W najgrozniejszej swej odmianie wirus formatuje dyski. Przykłady skrótów z opcjami uruchamiania lub wyłączania automakr dla poszczegól- nych aplikacji znajdują się na dysku CD-ROM w katalogu Przykłady\Cz_II, pliki *.lnk.