Excel: Hinzufügen eines Links zum Öffnen einer 3dxml-Datei

Out of category
,
1

Hallo


Ich habe ein Makro (VBA), das eine Excel-Datei mit Referenzen liest

Für jede  Referenz erhalten wir Informationen aus unserem PLM (Material, Masse, Vorschaubild, PDF, 3dxml-Datei) .....

Das Makro vervollständigt die Excel-Datei, indem es diese Informationen hinzufügt

wenn es ein Bild oder ein PDF gibt, fügen wir einen Link = > aus Excel hinzu, wir klicken auf den Link, das Bild oder PDF öffnet sich!

Beispiel

    ' "=HYPERLINK(""Bild\R13550220.jpg"")"
    MyImage="=HYPERLINK(" & """" & "image\" & Myref & ".jpg" & """ & " & " & "ok" & """ & """ & "" & "" & ""
    XL.ActiveSheet.Cells(iRow, iCol). FormelR1C1 = Meinbild

Problem, auf diese Weise ( fügen Sie einen Link zur Datei 3dxml    hinzu ' "=HYPERLINK(""3dxml\R13550220.3dxml"")"

wenn ich auf den Link klicke, passiert nichts :-(

HILFE

Wie man einen Link oder Befehl in eine Excel-Datei einfügt, um eine 3dxml-Datei zu öffnen!

Achtung: Die Operation muss von einem Makro aus durchgeführt werden! Nicht interaktiv!

(siehe Beispiel in der angehängten Datei)


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

Hallo

Hier ist ein Beispiel für ein Solidworks Makro zum Öffnen einer 3D-XML-Datei über einen Hyperlink in Excel:

Seien Sie vorsichtig, vergessen Sie nicht, den Verweis auf "Microsoft Excel xx.0 Object Library" zu setzen, und es muss eine Standardanwendung in Windows definiert sein, um 3Dxml-Dateien zu öffnen.

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

Es ist möglich, andere Argumente an die Funktion Hyperlinks.Add zu übergeben, siehe HIER

Herzliche Grüße

1 „Gefällt mir“