Makro äquivalent zu (Datei/Öffnen in einem bestimmten Ordner)

Macro
1

Hallo

Ich möchte ein SOLIDWORKS Makro erstellen, um das Äquivalent von Datei/Öffnen auszuführen und auf einen bestimmten Ordner zu zeigen, um dann die Datei meiner Wahl zu öffnen.

Danke für Ihre Hilfe.

Lionel

2

Hallo

Hier eine Antwort:

Funktion SelectFolder(Optional Title As String, Optional TopFolder As String) As String

    Dim objShell As New Shell32.Shell

   Dim objFolder As Shell32.Folder

'Wenn Sie in der nächsten Zeile 16384 anstelle von 1 verwenden, werden auch Dateien angezeigt  

  Set objFolder = objShell.BrowseForFolder (0, Title, 1, TopFolder)   

Wenn nicht objFolder nichts ist, dann     

  SelectFolder = objFolder.Items.Item.Path

    End If

End-Funktion

 

http://www.your-save-time-and-improve-quality-technologies-online-resource.com/vba-select-folder.html

 

3

Vielen Dank für die Reaktionsfähigkeit, aber kleines Problem:

4

Sollte die entsprechende Referenz fehlen, können Sie versuchen, etwas wie  

"Microsoft Shell-Steuerelemente ... "

Im Menü Extras > VBA-Referenzen 

1 „Gefällt mir“
5

Genau .PL gut gemacht... Das heißt, es ist nur eine Ordnerauswahl, unmöglich, eine Datei zu öffnen.

Die Idee ist, eine Datei zu öffnen, nachdem der Ordner im Makro "vorausgewählt" wurde.

6

Siehe vielleicht hier:

http://www.eng-tips.com/viewthread.cfm?qid=165464

Oder hier:

http://www.eng-tips.com/faqs.cfm?fid=1164

 

7

So etwas wie 'swApp.GetOpenFileName(.....) ` ?

 

http://help.solidworks.com/2013/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.ISldWorks~GetOpenFileName.html

 

Es öffnet sich ein Fenster ähnlich der Schaltfläche "Öffnen", in dem Sie die Filter (anzuzeigende Dateitypen), die ursprüngliche Datei usw. auswählen können.
Die Funktion gibt den Pfad der ausgewählten Datei zurück, wenn der Benutzer auf das Kreuz klickt, ist der Rückgabepfad leer.

1 „Gefällt mir“
8

Vielen Dank.PL wir kommen näher...

Wie deklariere ich einen bestimmten Pfad?

9

In der Tat, mit get it could work haben wir hier ein Beispiel:

http://help.solidworks.com/2013/english/api/sldworksapi/Open_File_Example_VB.htm

fileName = swApp.GetOpenFileName("Anzuhängende Datei", "", Filter, fileOptions, fileConfig, fileDispName)

Mit den Anweisungen :
value = instance. GetOpenFileName(DialogTitle, InitialFileName, FileFilter, OpenOptions, ConfigName, DisplayName)
InitialDateiname
Pfad und Dateiname der zu öffnenden Datei
1 „Gefällt mir“
10

In der Tat hatte ich die Zitate nicht gesehen ....

Ein großes Dankeschön an you.PL

11

Hoppla... zu schnell geantwortet...

Warum lässt sich die zum Öffnen ausgewählte Datei nicht öffnen?

12

Ich weiß es nicht! Mir gehen die Ideen aus, vielleicht ist es nicht möglich!

13

swApp.GetOpenFileName(...)

 

Gibt den Pfad der Datei als 'String' zurück. 

Um die Datei zu öffnen, müssen Sie die Funktion 'swApp.OpenDoc6' verwenden.
http://help.solidworks.com/2012/English/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.ISldWorks~OpenDoc6.html

Wenn Sie weitere Hilfe benötigen, verwenden Sie den SolidWorks Makrorekorder, und öffnen Sie eine Datei. Sie werden sehen, wie Sie 'swApp.OpenDoc6(...) verwenden. `

 

Ps: Wenn Sie Ihr Problem gelöst haben, fügen Sie eine "Beste Antwort" hinzu