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

EXCEL - VBA - Outlook Załącznik

bystrotrecon 04 Lip 2016 12:00 2709 17
  • #1 04 Lip 2016 12:00
    bystrotrecon
    Poziom 7  

    Witam. Mam problem z dodaniem załącznika z konkretnego katalogu. Próbowałem na wszelkie sposoby. Nie wiem jak dodać ścieżkę. Chodzi o to, że codziennie plik jest inny i chciałbym tylko otworzyć katalog z konkretnymi plikami (załącznikami). Proszę o pomoc. Dziękuje. Pozdrawiam.

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0 17
  • #2 04 Lip 2016 12:43
    kinggustav
    Poziom 19  

    Najprościej gdy masz ten katalog z plikami tam gdzie jest Excel z makrem. Wtedy:
    Pth = Application.ActiveWorkbook.Path -katalog skąd uruchomiono plik Excela.
    Jeżeli jest gdzieś "w pobliżu" to złóż: Pth & "\Katalog", albo Pth & "\..\Katalog" w zależności od potrzeb.
    Jeżeli w innej lokalizacji to wpisz ją do makra, jeżeli jest to trudne albo scieżka się zmienia, to wybieraj oknem dialogowym. Jeżeli wybierzesz najlepszy dla Ciebie sposób, to łatwo znajdziesz lub ktoś ci podpowie szczegóły jak to zrobić.

    0
  • #3 03 Wrz 2016 07:08
    bystrotrecon
    Poziom 7  

    Nadal poszukuje rozwiązania. Proszę o pomoc.

    Dodano po 3 [minuty]:

    Plik jest wybierany z sieci. Chdir / Chdrive nic tu nie pomaga..

    0
  • #4 03 Wrz 2016 13:25
    bystrotrecon
    Poziom 7  

    Pilna prośba.

    0
  • #5 03 Wrz 2016 13:31
    JRV
    Specjalista - VBA, Excel

    MsgBox Szablon pokazuje rzeczywiste ścieżki do pliku?
    Bez 'On Error Resume Next' nie pokazuje żadnych błędów?

    bystrotrecon napisał:
    Plik jest wybierany z sieci

    Jest to '\\Computer\folder\...\plik' lub np. 'Z:\folder\plik' ?

    0
  • #6 03 Wrz 2016 13:36
    bystrotrecon
    Poziom 7  

    hmm, no właśnie nie działa..

    0
  • #7 05 Wrz 2016 09:34
    kinggustav
    Poziom 19  

    A czy możesz ten plik zobaczyć w jakimś eksploratorze plików? Jaka jest wtedy ścieżka do niego?
    Może masz plik na jakimś ftpie, albo jakiejś innej usłudze sieciowej?

    0
  • #8 05 Wrz 2016 19:51
    bystrotrecon
    Poziom 7  

    tak jest: \\poluser1\katalog\katalog...

    0
  • #9 02 Paź 2016 10:21
    bystrotrecon
    Poziom 7  

    Po dłuższym czasie udało się mi stworzyć funkcjonujący kod, lecz w pewnym momencie utknąłem.. chodzi o zamknięcie kolejnego nowo utworzonego arkusza z rzędu. Proszę o pomoc.

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod


    Dodano po 27 [minuty]:

    chyba zjadłem:

    Dim i as Integer

    0
  • #10 03 Paź 2016 08:15
    adamas_nt
    Moderator Programowanie

    Skoro pętla, to pewnie chcesz zamknąć >1 plików (wszystkie, oprócz ThisWorkbook). Po co w takim razie wyjście?
    Logiczna wydaje się taka postać:

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    Ponieważ tylko w jednym pliku zapisujesz zmiany.

    0
  • #11 11 Paź 2016 20:39
    Prot
    Poziom 27  

    Autor postu rozpoczął:

    bystrotrecon napisał:
    Mam problem z dodaniem załącznika z konkretnego katalogu


    Jeden z kolegów naprowadzał na Explorator plików, drugi na okno dialogowe :!: - ale autor zamiast krótkiego kodu wyboru pliku przy użyciu okna dialogowego np.
    Kod: vbscript
    Zaloguj się, aby zobaczyć kod


    wybrał okrężną drogę :D tworząc specjalne funkcje do uchwycenia tego pliku raportu.
    Jeśli to wszystko będzie obsługiwał Autor - to OK (w razie problemów wie chociaż gdzie szukać pomocy :D ), ale jeśli użytkownikiem skryptu będzie ktoś mniej obeznany z VBA - to moim zdaniem im dłuższy kod tym potencjalnie więcej błędów i nieprzewidzianych niespodzianek.

    0
  • #12 13 Sty 2017 16:26
    bystrotrecon
    Poziom 7  

    Witam. Doszedł problem z wyborem i wysłaniem kilku załączników. Czy istnieje możliwość dodania np. 3 załączników i wysyłki jednym mailem?

    0
  • #13 14 Sty 2017 23:04
    bystrotrecon
    Poziom 7  

    Proszę o pomoc.

    0
  • #14 15 Sty 2017 16:46
    clubs
    Poziom 29  

    Witam
    Podaj ten kod który obecnie używasz.

    0
  • #15 16 Sty 2017 00:46
    bystrotrecon
    Poziom 7  

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    0
  • #16 16 Sty 2017 11:23
    clubs
    Poziom 29  

    Witam

    Sprawdź (jest to już bez tej funkcji getfile)

    Kod: vbnet
    Zaloguj się, aby zobaczyć kod

    0
  • #17 18 Sty 2017 16:24
    kinggustav
    Poziom 19  

    Najprościej dodać kilka załączników poprzez kilka linii .Attachments.Add z kolejnymi nazwami plików, bo chyba to będą pliki.

    0
  • #18 20 Sty 2017 12:44
    bystrotrecon
    Poziom 7  

    Dzięki serdeczne.

    0