Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

PDF per VBA öffnen

Betrifft: PDF per VBA öffnen von: Dirk
Geschrieben am: 10.10.2020 13:27:00

Hallo ins Forum,

ich möchte eine PDF-Datei per Hyperlink öffnen, bekomme aber imm er eine Fehlhermeldung.


Hier mein Code :

Private Sub Label101_Click()
    Dim LW As String
    Dim Ordner1 As String
    Dim Ordner2 As String
    Dim Datei As String
    Dim File As String
    LW = ThisWorkbook.Sheets("Verzeichnisse").Range("F1").Value
    Ordner1 = ThisWorkbook.Sheets("Verzeichnisse").Range("G1").Value
    Ordner2 = ThisWorkbook.Sheets("Verzeichnisse").Range("H7").Value
    File = "DSE_KD_FCA.pdf"
    Datei = LW & Ordner1 & Ordner2 & File
    ThisWorkbook.FollowHyperlink Datei
End Sub

Betrifft: AW: PDF per VBA öffnen
von: Hajo_Zi
Geschrieben am: 10.10.2020 13:33:26

Datei öffnen Word, Powerpoint oder sonst was
Option Explicit
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

Sub Open_File(strFileName As String, windowType As Integer)
    ShellExecute 0, "Open", strFileName, "", "", windowType
End Sub

Sub test()
    '1 = vbNormalFocus
    '2 = Minimized
    '3 = Maximized
    Open_File "c:\DeineDatei.txt", 1
End Sub
‘   von Ramses Rainer
GrußformelHomepage

Betrifft: AW: PDF per VBA öffnen
von: Dirk
Geschrieben am: 10.10.2020 13:58:40

Vielen Dank für die schnelle Antwort. Der Fehler lag bei mir, man sollte natürlich auch was in Zelle H7 reinschreiben, wenn VBA danch suchen soll....