logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Jak napisać kod VBA w Corel 2018 do importu plików pdf/eps z wyborem lokalizacji?

MiiN 14 Sie 2019 23:37 540 3
REKLAMA
  • #1 18115840
    MiiN
    Poziom 2  
    Posty: 4
    Ocena: 2
    Witam Wszystkich.
    Szukam pomocy w napisaniu do Corela 2018 kodu VBA w którym będę mógł wybrać z określonej lokalizacji plik pdf lub eps,
    Jak napisać kod VBA w Corel 2018 do importu plików pdf/eps z wyborem lokalizacji?
    a jaśniej:
    z listy 'Dysk sieciowy' wybieram zmapowany dysk sieciowy.
    W tym przykładzie N:\
    Jak napisać kod VBA w Corel 2018 do importu plików pdf/eps z wyborem lokalizacji?
    z listy 'Katalog' wybieram katalog jeden z katalogów istniejących w danej lokalizacji sieciowej.
    W tym przykładzie 29544
    Jak napisać kod VBA w Corel 2018 do importu plików pdf/eps z wyborem lokalizacji?
    z listy 'Plik w Katalogu' wybieram plik pdf lub eps (tytaj chciałbym aby pokazały się tylko pliki typy pdf lub eps.
    Jak napisać kod VBA w Corel 2018 do importu plików pdf/eps z wyborem lokalizacji?
    Znalazłem w sieci podobny kod, ale w nim jest dostępna tylko określona lokalizacja. Nie ma wybory różnych katalogów.
    Kod: VBScript
    Zaloguj się, aby zobaczyć kod

    tak wygląda okno z listą plików istniejących w danej lokalizacji
    Jak napisać kod VBA w Corel 2018 do importu plików pdf/eps z wyborem lokalizacji?

    POMOŻECIE? :-)
  • REKLAMA
  • Pomocny post
    #2 18117184
    adamas_nt
    VIP Zasłużony dla elektroda
    Posty: 5320
    Pomógł: 1508
    Ocena: 659
    Nie mam Corel'a, ale VBA chyba wszędzie podobny...

    Najprościej byłoby z FileDialog. Jeśli konieczna jest lista dysków w ComboBox, to można połączyć z FileSystemObject.

    Załączam przykład takiej listy plików w Excel'u.
    Załączniki:
    • Zeszyt.zip (11.63 KB) Musisz być zalogowany, aby pobrać ten załącznik.
  • REKLAMA
  • #3 18124171
    MiiN
    Poziom 2  
    Posty: 4
    Ocena: 2
    Bardzo dziękuję adamas_nt :-)
    W Excelu działa, że aż miło.
    Zobaczymy jak miło będzie w Corelu ;-)

    Dodano po 23 [minuty]:

    No i w Corelu nie jest już tak miło.
    Podejrzewam, że nie jest to trudne, ale na moim poziomie wiedzy o VBA jest to zbyt skomplikowane.
    Wybór plików działa, ale po wybraniu dysku pojawia się następujący komunikat
    Jak napisać kod VBA w Corel 2018 do importu plików pdf/eps z wyborem lokalizacji?

    Jak napisać kod VBA w Corel 2018 do importu plików pdf/eps z wyborem lokalizacji?
  • #4 18126646
    adamas_nt
    VIP Zasłużony dla elektroda
    Posty: 5320
    Pomógł: 1508
    Ocena: 659
    No tak, racja, odwołanie do komponentu Office... Ale jeśli Initialize przechodzi bez błędu, to spróbuj:

    Dim fDialog As Object 'Office.FileDialog
    Set fDialog = CreateObject("Scripting.FileSystemObject")

    Być może będzie trzeba poszukać odpowiednika 'msoFileDialogFolderPicker' w Corelu. Klawisz [F2] w edytorze VB.
    Tak to wygląda w Office
    Jak napisać kod VBA w Corel 2018 do importu plików pdf/eps z wyborem lokalizacji?
REKLAMA