Ordnerauswahl unter VBA?

3D Design Volume Model
1

Hallo

Wenn ich darum bitte, einen Ordner in VBA auszuwählen, finde ich den Pfad überhaupt nicht intuitiv. Kennt jemand einen Befehl zum Öffnen eines Windows Explorer-Fensters, der eine Doppelklick-Erweiterung von Ordnern ermöglicht?

Ich verwende den folgenden Befehl:

"Wahl der Datei
 FlagChoix = &H1
    msg = "Ordner auswählen:"
    Legen Sie objShell = CreateObject("Shell.Application") fest
     Bei Fehler: Weiter fortsetzen
        Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix)
         Wenn NbPoint = 0, dann
         Pfad = objFolder.ParentFolder.ParseName(objFolder.Title). Pfad & ""
         Oder
         Sub beenden
         Ende, wenn

 

Danke im Voraus,

1 „Gefällt mir“
2

Hallo

Ich habe ein kleines Tutorial erstellt, um den Windows Explorer zu öffnen und einen Ordner auszuwählen, es ist ganz praktisch:

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

Wenn das Tutorial nicht funktioniert, kann ich die Datei hier auf den PC legen, fragen Sie einfach.

2 „Gefällt mir“
3

Hallo

Ich möchte die Datei in PJ haben, Tutorials funktionieren für mich a priori nicht...

Vielen Dank!

1 „Gefällt mir“
4

Vielleicht ein Fehler, weil ich keinen Zugriff auf Ihr Tutorial habe either@PL

1 „Gefällt mir“
5

Ja, die Tutorials funktionieren nicht, es ist ein Fehler, der den Mitarbeitern gemeldet wurde, und leider wurde er mit dem Update vom 1. Oktober nicht behoben...

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

 

Der Code, der in ein Makro aufgenommen werden soll, befindet sich hier:

http://we.tl/C85tB1qRGr

3 „Gefällt mir“
6

Also, ich bekomme es auch zurück, es kann mir eines Tages immer nützlich sein. Haha

1 „Gefällt mir“
7

.PL, wäre es möglich, das Tutorial auch zu senden? Der Code funktioniert bei mir nicht, er könnte mir helfen zu verstehen...

"FileDialog" wird nicht erkannt. Wenn Sie eine Spur haben, bin ich interessiert, wenn nicht, werde ich in einer Weile graben.

Ein +

 

8

Hallo

Mit ein wenig Recherche:

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

Es gibt Dutzende von Beispielen im Internet

1 „Gefällt mir“
9

Tut mir leid, dass mein vorheriger Code für Excel funktioniert, und ich ging davon aus, dass er auch für SolidWorks ohne Tests funktionieren würde, aber das tut er nicht!

Hier ist die richtige Datei:

http://we.tl/CgWO3GxU8T

Und das richtige Tutorial:

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

 

 

2 „Gefällt mir“
10

@remrem: Gerade der FileDialog ist nicht mit SolidWorks kompatibel, sondern nur mit Excel!

1 „Gefällt mir“
11

Ich setze mich auf -1!

;-)

1 „Gefällt mir“