Excel: Voeg een link toe om een 3dxml-bestand te openen

Out of category
,
1

Hallo


Ik heb een Macro (VBA), die een Excel-bestand met referenties zal lezen

voor elke  referentie krijgen we informatie van onze PLM (Material, mass, preview image, PDF, 3dxml file) .....

De macro voltooit het Excel-bestand door deze informatie toe te voegen

als er een afbeelding of een PDF is, voegen we een link toe => vanuit Excel, we klikken op de link, de afbeelding of PDF wordt geopend!

voorbeeld

    ' "=HYPERLINK(""afbeelding\R13550220.jpg"")"
    MyImage="=HYPERLINK(" &"""" & "image\" & Myref & ".jpg" & """" & " & " & "ok" & """" & """ & ")"
    XL.ActiveSheet.Cells (iRow, iCol). FormulaR1C1 = Mijnafbeelding

Probleem, op deze manier ( voeg een link toe aan het bestand 3dxml    ' "=HYPERLINK(""3dxml\R13550220.3dxml"")"

als ik op de link klik, gebeurt er niets :-(

HELP

hoe voeg je een link of opdracht toe aan een Excel-bestand, om een 3dxml-bestand te openen!

Waarschuwing: de bewerking moet worden uitgevoerd vanaf een macro! Niet interactief!

(zie voorbeeld in het bijgevoegde bestand)


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

Hallo

Hier is een voorbeeld van een Solidworks-macro voor het openen van een 3D xml-bestand via een hyperlink in Excel:

Wees voorzichtig, vergeet niet de verwijzing naar "Microsoft Excel xx.0 Object Library" te plaatsen en er moet een standaardtoepassing zijn gedefinieerd in Windows om 3Dxml-bestanden te openen.

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

Het is mogelijk om andere argumenten door te geven aan de functie Hyperlinks.Add, zie HIER

Vriendelijke groeten

1 like