PDF Dateien mit VBA öffnen
Gerhard
habe folgendes Problem:
Wie bekomme ich aus dem Unterpfad der aktuellen Exceldatei pdf Dateien geöffnet ?
'sucht in der Zeile von Range("B16")
' Inhalt von DateinameA ist "Lacke\DR-4070.pdf"
'Acrobat wird gestartet aber "AppActivate pdf als auch AppActivate Alle_D"
bringt Fehler "Ungültiger Prozeduraufruf oder ungültiges Argument! "
bei "pdf" wird komischerweise immer eine Nummer zur LW-Angabe vorangestellt.
Ist das der Fehler ?
Sub Oeffnen()
Dim Alle_D As String
Dim pfad
Dim xlAnw As Object, pdf
Range("B16").Select 'nur für Testbetrieb
zeileA = Selection.Row
DateinameA = Cells(zeileA, SpalteS_Daten)
pfad = MeinPfad
Alle_D = pfad + DateinameA
If pfad "" Then
' pdf = Shell("C:\Programme\Adobe\Acrobat 8.0\Reader\AcroRd32.exe" & pfad & DateinameA, 3) ' _
Meldung !Datei nicht gefunden !
pdf = Shell("C:\Programme\Adobe\Reader 8.0\Reader\AcroRd32.exe", 3) & pfad & DateinameA ' _
nur Acrobat läuft
' AppActivate pdf
AppActivate Alle_D
End If
MsgBox ("Sicherheit steht noch nicht zur Verfügung !")
End Sub