Hallo Expertinnen und Experten!
Ich stehe mal wieder vor einem kleinen VBA-Problem, bei dem ich mich über eure Hilfe freuen würd.
Und zwar möcht ich ganz gern, eine PDF-Datei über VBA öffnen lassen (durch entsprechende Auswahl in einer User Form). Hab schon viel gesucht, bislang fehlt mir nur leider der richtige Befehl. Kann mir hier jemand weiterhelfen?
Schon mal herzlichen Dank für eure Hilfe
Viele Grüße,
Tobi
Hallo Tobi!
Wie du vieleicht schon weisst kannst du ja mit ‚Shell‘ Anwendungen öffnen. Das Funktioniert aber leider nicht mit Dateien. Dazu benötigst du ein paar API`s. Schließlich muss dein Programm ja wissen, mit welcher Anwendung es die Datei öffnen soll. Mit folgendem Code wir die Datei mit dem Windows Standard-Programm geöffnet. (in deinem Fall wohl mit dem Adobe Acrobat)
Code im Kopf der Form oder des Moduls:
Private Declare 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
Private Declare Function GetDesktopWindow Lib „user32“ () As Long
Und noch eine kleine Sub um es etwas komfortabler zu machen:
Sub OpenFile(Filename As String)
Call ShellExecute(GetDesktopWindow(), „Open“, Filename, _
„“, „C:“, 1)
End Sub
Gruss, Phil
Hallo Phil,
danke für die schnelle Hilfe! Auf den Code wär ich selbst nie gekommen! Werd mich gleich mal an die weitere Umsetzung und Einbindung machen.
Schönen Tag noch
mfg, Tobi