Excel: Dodawanie łącza w celu otwarcia pliku 3dxml

Out of category
,
1

Witam


Mam makro (VBA), które odczyta plik Excela z odwołaniami

dla każdego  referencji otrzymujemy informacje z naszego PLM (Materiał, masa, obraz podglądu, PDF, plik 3dxml) .....

Makro uzupełnia plik programu Excel, dodając te informacje

gdy jest obraz lub plik PDF, dodajemy link => z Excela, klikamy na link, otwiera się obraz lub plik PDF!

przykład

    ' "=HIPERŁĄCZE(""obraz\R13550220.jpg"")"
    MyImage="=HIPERŁĄCZE(" &" & " & "obraz\" & Myref & ".jpg" & " & " & "ok" & "ok" & " & " & "" & "" & ")"
    XL.ActiveSheet.Cells(iRow, iCol). FormułaR1C1 = Mójobraz

Problem, w ten sposób ( dodaj link do pliku 3dxml    ' "=HYPERLINK(""3dxml\R13550220.3dxml"")"

jeśli kliknę w link, nic się nie dzieje :-(

POMOC

jak dodać link lub polecenie w pliku Excel, aby otworzyć plik 3dxml!

Ostrzeżenie: operacja musi być wykonana z makra! Nie jest interaktywny!

(patrz przykład w załączonym pliku)


rpm20-rupture-raccord-2019-09-10-08-04.zip
2

Witam

Oto przykład makra SolidWorks do otwierania pliku xml 3D za pomocą hiperłącza w programie Excel:

Bądź ostrożny, nie zapomnij umieścić odniesienia do "Microsoft Excel xx.0 Object Library" i musi istnieć domyślna aplikacja zdefiniowana w systemie Windows, aby otwierać pliki 3Dxml.

Sub OpenExcel()

Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Dim wbk As Excel.Workbook
Dim sht As Excel.Worksheet

With xlApp
    .Visible = True
    Set wbk = .Workbooks.Add
    Set sht = wbk.ActiveSheet
End With

sht.Hyperlinks.Add sht.Range("A1"), "C:\Temp\Pièce1.3DXML"

End Sub

Możliwe jest przekazanie innych argumentów do funkcji Hyperlinks.Add, zobacz TUTAJ

Pozdrowienia

1 polubienie