Jak ustawić katalog domowy użytkownika jako domyślną ścieżkę plików programu Excel?

Skrypciarze odpowiadają na Wasze pytania

Jak ustawić katalog domowy użytkownika jako domyślną ścieżkę plików programu Excel?

Cześć, Skrypciarze! Jak ustawić katalog domowy użytkownika jako domyślną ścieżkę plików programu Excel?

-- LL

Cześć, LL. Mamy nadzieję, że skrypt, który za chwilę pokażemy, rozwiąże Twój problem; jeśli nie, to niestety chwilę potrwa, zanim będziemy mogli do niego wrócić – Skrypciarz piszący te słowa nie jest dzisiaj w pracy. A to dlatego, że utknął w Sądzie Okręgowym Hrabstwa King w Seattle.

No tak, wiemy, co sobie pomyśleliście. Ale jednak okazuje się, że pisanie artykułów skrypciarskich w których pisze się o wszystkim oprócz skryptów nie jest póki co nielegalne. (Chociaż rzecz jasna nie wiemy, co będzie w przyszłości.) Skrypciarz piszący te słowa nie jest więc sądzony, lecz przeciwnie – okazało się, że musi spełnić „zaszczytny obowiązek” pracy jako sędzia przysięgły. Tak więc cały dzień spędzi w towarzystwie recydywistów, łotrów i innych typków.

Co w sumie nie różni się tak bardzo od dnia spędzonego w towarzystwie innych Skrypciarzy.

Ale nie martwcie się. Przed wyruszeniem na wojnę o prawdę i sprawiedliwość, Skrypciarz piszący te słowa przygotował drobny podarek:

Set objUser = GetObject("LDAP://cn=Ken Myer,ou=Finance,dc=fabrikam,dc=com")

strHomeDirectory = objUser.homeDirectory



Set objExcel = CreateObject("Excel.Application")

objExcel.DefaultFilePath = strHomeDirectory

objExcel.Quit

Jak widać, nasz skrypt składa się z dwóch części: w części pierwszej pobieramy informacje o katalogu domowym użytkownika, a w części drugiej modyfikujemy domyślną ścieżkę programu Excel. Aby znaleźć katalog domowy, łączymy się z odpowiednim kontem użytkownika w Active Directory. Następnie za pomocą poniższego wiersza kodu pobieramy wartość atrybutu homeDirectory i zapisujemy ją w zmiennej o nazwie:

strHomeDirectory = objUser.homeDirectory

W gruncie rzeczy trzeba przyznać, że część pierwsza nie była trudna. A teraz dobra wiadomość: część druga będzie równie łatwa. Zaczynamy tu od utworzenia wystąpienia obiektu Excel.Application. Kiedy tylko Excel się uruchomi, użyjemy poniższego wiersza kodu, by przypisać wartość zmiennej strHomeDirectory właściwości DefaultFilePath:

objExcel.DefaultFilePath = strHomeDirectory

I już. Wystarczy teraz wywołać metodę Quit, by zamknąć wystąpienie programu Excel.

Gratulacje, jeśli ktoś zwrócił uwagę, że w większości skryptów programu Excel używamy polecenia objExcel.Visible = True, dzięki któremu widzimy okno Excel na ekranie. Dlaczego tym razem postąpiliśmy inaczej? Otóż, po pierwsze, wykonanie skryptu trwa tylko sekundę czy dwie – przez ten czas i tak nie napatrzylibyśmy się na Excel. Po drugie, ustawiamy tylko właściwość obiektu Application; na ekranie i tak nic się nie dzieje.

Chcemy poruszyć jeszcze jeden problem: w jaki sposób Skrypciarz piszący te słowa stwierdzi, czy ktoś jest winnym, czy nie? Szczerze mówiąc, Skrypciarz nie ma pojęcia; koniec końców, nigdy wcześniej nie był sędzią przysięgłym. Wie on tylko jedno: niezależnie od wszystkiego innego, lepiej, aby osoba oskarżona dała Skrypciarzowi dobrą ocenę w tygodniu Windows PowerShell.

Do początku strony