Öffnen einer PDF-Datei aus Solidworks über ein Makro

Macro
1

Hallo ihr alle
Ich möchte eine PDF-Datei (mit einem bekannten Speicherort) über ein Makro öffnen, das von Solidworks ausgeführt wird
Ich habe etwas recherchiert und nichts Schlüssiges
Ich finde Lösungen aus Excel, aber nicht aus Solidworks

Glauben Sie, dass das möglich ist?

Welche Reihenfolge soll ich wählen?

Vielen Dank :wink:

2

Hallo
Auf der einen Seite müssen Sie die Funktion deklarieren, um das Standard-PDF-Öffnungsprogramm zu verwenden:

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dann nennen Sie es so:

ret = ShellExecute(0, "open", "nom de fichier", vbNullString, "répertoire de stockage", 1)

Dabei ist ret eine Variable vom Typ long

2 „Gefällt mir“
3

Vielen Dank für Ihre Antwort, sie hat es mir ermöglicht, voranzukommen
Ich denke, ich bin auf dem richtigen Weg
Adobe wird geöffnet, aber die Datei wird nicht geöffnet
Ich grabe wieder :grinning:

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    
    
    
Sub main()

ret = ShellExecute(0, "open", "C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe", vbNullString, "U:\PLAN\01 PDF\USMEC000121-C.PDF", 1)

End Sub
4

Hallo
Anstelle von " C:\Programme\Adobe\Acrobat DC\Acrobat\Acrobat.exe " " USMEC000121-C.PDF "
Und statt " U:\PLAN\01 PDF\USMEC000121-C.PDF " einfach "U:\PLAN\01 PDF\"

1 „Gefällt mir“
5

Ich war auch fast am Ziel
Danke für Ihre Hilfe :pray: :+1:

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    
    
    
Sub main()

ret = ShellExecute(0, "open", "USMEC000121-C.PDF", vbNullString, "U:\PLAN\01 PDF\", 1)

End Sub
1 „Gefällt mir“