Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDF-Datei öffnen

Forumthread: PDF-Datei öffnen

PDF-Datei öffnen
17.01.2006 13:40:52
Beni
Hallo Excel-Freaks,
ich habe eine PeronenDB und für jede Person gibt eine PDF-Datei,
ich möchte für die ausgewählte Person das ensprechnde PDF öffnen.
Der richtige Codeschnipsel für diese Prozedur habe ich niegens gefunden.
Besten Dank
Gruss Beni

Sub PDFdatei_öffnen()
Dim acrApp As Object
Dim sFile As String
Dim iRow As Integer
iRow = ActiveCell.Row
sFile = ThisWorkbook.Path & "\" & Cells(iRow, 1) & ".pdf"
Set acrApp = CreateObject("Acrobat.Application")'<<<<<<<
acrApp.OpenCurrentDatabase sFile
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF-Datei öffnen
17.01.2006 15:31:14
yogi
Tach Beni
versuchs mal mit:
Dim strDateiName As String
Dim MyShell As Object, StrPfad As String
Dim datei_is As String
Set MyShell = CreateObject("WScript.Shell")
strDateiName1 = Chr(34) & StrPfad & datei_is & Chr(34)
MyShell.Run strDateiName1
Set MyShell = Nothing
ist zwar Excel 97, sollte aber auch bei 10.0 laufen
GRuss
yogi
Anzeige
AW: PDF-Datei öffnen
17.01.2006 15:56:09
Beni
Hallo yogi,
besten Dank für Deine Hilfe, ich musste Code noch bisschen anpassen.
Gruss Beni

Sub PDFdatei_öffnen()
Dim strDateiName1 As String
Dim MyShell As Object, StrPfad As String
Dim datei_is As String
StrPfad = ThisWorkbook.Path
datei_is = Cells(ActiveCell.Row, 1) & ".pdf"
Set MyShell = CreateObject("WScript.Shell")
strDateiName1 = StrPfad & "\" & datei_is
MyShell.Run strDateiName1
Set MyShell = Nothing
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige