Wybór folderu w VBA?

3D Design Volume Model
1

Witam

Kiedy proszę o wybranie folderu w VBA, uważam, że ścieżka wcale nie jest intuicyjna. Czy ktoś zna polecenie otwarcia okna typu Eksplorator Windows, które umożliwiłoby dwukrotne rozszerzenie folderów?

Używam następującego polecenia:

"Wybór pliku
 FlagaChoix = &H1
    Msg = "Wybierz folder:"
    Ustaw objShell = CreateObject("Shell.Application")
     W przypadku błędu Wznów następny
        Ustaw objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix)
         Jeśli NbPoint = 0, to
         Ścieżka = objFolder.ParentFolder.ParseName(objFolder.Title). Ścieżka & ""
         Inaczej
         Wyjdź z subwoofera
         Zakończ jeżeli:

 

Z góry dzięki,

1 polubienie
2

Witam

Stworzyłem mały samouczek, aby otworzyć Eksploratora Windows w celu wybrania folderu, jest to całkiem praktyczne:

http://www.lynkoa.com/tutos/3d/selectionner-un-repertoire-en-vba

Jeśli samouczek nie zadziała, mogę umieścić plik na komputerze tutaj, po prostu zapytaj.

2 polubienia
3

Witam

Chcę plik w PJ, samouczki nie działają dla mnie a priori...

Dziękuję!

1 polubienie
4

Może to błąd, bo nie mam dostępu do twojego tutoriala either@PL

1 polubienie
5

Tak, samouczki nie działają, jest to błąd zgłoszony personelowi i niestety nie został rozwiązany wraz z aktualizacją z 1 października...

http://www.lynkoa.com/tutos/3d/selectionner-un-repertoire-en-vba

 

Kod, który należy uwzględnić w makrze , znajduje się tutaj:

http://we.tl/C85tB1qRGr

3 polubienia
6

Więc ja też go dostaję, zawsze może mi się kiedyś przydać. Haha

1 polubienie
7

.PL, czy byłoby możliwe wysłanie samouczka, jak również? Kod nie działa dla mnie, może mi pomóc zrozumieć...

"FileDialog" nie jest rozpoznawany. Jeśli masz jakiś trop, jestem zainteresowany, jeśli nie, poszperam za chwilę.

A +

 

8

Witam

Z odrobiną badań:

GirlDialog: https://msdn.microsoft.com/fr-fr/library/office/ff836226.aspx

W sieci można znaleźć dziesiątki przykładów

1 polubienie
9

Przepraszam, mój poprzedni kod działa dla Excela i zakładałem, że będzie działał również dla SolidWorks bez testowania, ale tak się nie dzieje!

Oto właściwy plik:

http://we.tl/CgWO3GxU8T

I prawy samouczek:

http://www.lynkoa.com/tutos/solidworks/api-solidworks-explorateur-windows-pour-selection-de-fichier-vba-0

 

 

2 polubienia
10

@remrem: to właśnie FileDialog nie jest kompatybilny z SolidWorks, a jedynie z Excelem!

1 polubienie
11

Stawiam sobie -1!

;-)

1 polubienie