Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige