Bestand openen vanuit excel

Status
Niet open voor verdere reacties.
G

GhorR

Nieuwe gebruiker
Lid geworden
1 aug 2022
Berichten
2
Hallo allemaal,

Ik wil graag het volgende voor elkaar krijgen, maar lukt me niet:

In een excel bestand heb ik een knop gemaakt die een extern bestand moet openen.
Het excel bestand kan in meerdere varianten zijn opgeslagen ergens op de server, maar het bestand wat geopend moet worden heeft altijd dezelfde naam en staat altijd in dezelfde map als het excelbestand wat erbij hoort.
Oftewel:

bestand1.xlsm bevat een knop met verwijzing naar externbestand.pdf, beide in map1
bestand2.xlsm bevat een knop met verwijzing naar externbestand.pdf, beide in map2

Eventueel mag het ook zo zijn dat de VBA achter de knop eerst de locatie van het excel bestand ophaald en dan het externbestand.pdf eraan plakt en dan gaat openen, maar als het makkelijker kan dan heeft dat de voorkeur...

Wie kan mij helpen?
 
Code: 
Sub hsv()
 CreateObject("shell.application").ShellExecute ThisWorkbook.Path & "\[COLOR=#3E3E3E]externbestand[/COLOR].pdf"
End Sub
 
Of als je de PDF in je Excelbestand wilt hebben:

Code: 
Sub InsertPDF()
    ActiveSheet.OLEObjects.Add(Filename:=ActiveWorkbook.Path & "\Externbestand.pdf", Link:=False, DisplayAsIcon:=False).Activate
End Sub
 
In het actieve werkblad plaatsen doen we zonder activate.

Code: 
Sub [COLOR=#3E3E3E]InsertPDF[/COLOR]()
 ActiveSheet.OLEObjects.Add , thisworkbook.path & "\externbestand.pdf"
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan