Otwieranie pliku PDF z Solidworks za pomocą makra

Macro
1

Cze wszystkim
Chcę otworzyć plik PDF (ze znaną lokalizacją) za pomocą makra uruchomionego z Solidworks
Zrobiłem trochę badań i nic rozstrzygającego
Znajduję rozwiązania z Excela, ale nie z solidworks

Czy myślisz, że jest to możliwe?

Którą kolejność wybrać?

Dziękuję :wink:

2

Witam
Z jednej strony musisz zadeklarować funkcję, aby korzystać z domyślnego programu do otwierania plików PDF:

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

Następnie nazwij to tak:

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

Przy czym ret jest zmienną typu long

2 polubienia
3

Bardzo dziękuję za odpowiedź, pozwoliła mi iść do przodu
Myślę, że jestem na dobrej drodze
Adobe otwiera się, ale plik nie jest wyświetlany
Znowu kopię :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

Witam
Zamiast " C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe ", " USMEC000121-C.PDF "
I zamiast " U:\PLAN\01 PDF\USMEC000121-C.PDF " po prostu "U:\PLAN\01 PDF\"

1 polubienie
5

Ja też prawie tam byłem
dziękuję za pomoc :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 polubienie