Elektroda.pl
Elektroda.pl
X
Elektroda.pl
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA Excel - drukowanie wielu plików word z poziomu excela

zbbyn 22 Sie 2018 18:43 270 4
  • #1 22 Sie 2018 18:43
    zbbyn
    Poziom 8  

    Witam

    Znalazłem w sieci makro które powinno drukować w pętli wszystkie dokumenty doc. w określonej lokalizacji, niestety makro zatrzymuje się po wydrukowaniu pierwszego pliku.

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod


    Niestety nie wiem gdzie jest błąd, i co należy zmienić aby drukowało wszystkie dokumenty docx w podanej lokalizacji

    0 4
  • Pomocny post
    #2 22 Sie 2018 22:56
    Devli
    Poziom 9  

    Trochę lekkich poprawek kodu, i rozłożenie na 2 pętle spowodowało że kod działa prawidłowo. W jednej pętli drukowało 1 plik i koniec, nie miałem pomysłu i czasu na dłuższą zabawę z tym kodem dlatego wrzucam w takiej formie w jakiej mi się udało (przetestowane, działa)

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    0
  • #3 23 Sie 2018 09:15
    zbbyn
    Poziom 8  

    Dzięki faktycznie działa.

    Kombinowałem z tą pętlą, ale mam zbyt mało umiejętności i efekt był mizerny...

    0
  • #4 23 Sie 2018 18:42
    clubs
    Poziom 32  

    zbbyn napisał:
    Kombinowałem z tą pętlą, ale mam zbyt mało umiejętności i efekt był mizerny..

    Poczytaj o funkcji dir i zobaczysz dlaczego był błąd.

    0
  • #5 23 Sie 2018 22:09
    lanzul
    Poziom 28  

    zbbyn napisał:
    działa

    W kodzie:
    Kod: vba
    Zaloguj się, aby zobaczyć kod

    niepotrzebny jest ten "/" w "/*.docx".
    Również "Set plik = Nothing" i "Set ob = Nothing" - w tym kodzie te zmienne nie występują.
    Funkcja "drukuj_doc_worda" jest w zbędny sposób wielokrotnie wywoływana, tzn. chodzi o to, że niepotrzebnie za każdym razem tworzy nowy obiekt "Word".

    0