PDF-Datei über Makro öffnen

Hallo Forum,
ich benutze folgenden Code um PDF-Dateien über ein Label oder CommandButton aus meiner Excel-Datei heraus zu öffnen.


Private Sub LblInfo001_3_Click()
Dim sFile As String
sFile = Worksheets("Texte").Range("A1").Value & "\VAInfo 002_5.pdf"
If Dir(sFile) <> "" Then
ShellExecute GetActiveWindow, "Open", Worksheets("Texte").Range("A1").Value & "\VAInfo 002_5.pdf", "", "", SHOWMAXIMIZED
Else
frmPDF.Show
End If
End Sub

Das funktioniert einwandfrei. Bei folgendem Code habe ich nur den Dateinamen ausgetauscht (Datei ist auf jeden Fall in dem Verzeichnis vorhanden). Die Datei lässt sich über den Code nicht anzeigen!!


Private Sub LblInfo001_4_Click()
Dim sFile As String
sFile = Worksheets("Texte").Range("A1").Value & "\Va600.pdf"
If Dir(sFile) <> "" Then
ShellExecute GetActiveWindow, "Open", Worksheets("Texte").Range("A1").Value & "\Va600.pdf", "", "", SHOWMAXIMIZED
Else
frmPDF.Show
End If
End Sub

Zur Erstellung der PDF-Dateien benutze ich "gotomaxx".
Als Acrobat-Reader ist 7.0 im Einsatz.
Wenn ich die Dateien im Explorer über Doppelklick öffne, funktionieren beide.
Aus meiner Excel-Anwendung heraus aber nur die aus dem ersten Code.
(Die Datei aus dem ersten Code wurde vor Installation von Acrobat 7.0 erstellt, die Datei aus dem 2 Code danach).
Was mache ich falsch? Hat jemand einen Tipp oder eine Idee?
Gruß
Dieter.K

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dieter,
schau mal, ob es nicht an der nicht ganz sauber programmierten Funktion liegt. Die sollte eigentlich alles aufbekommen, was sich mit einem Doppelklick öffnen lässt.

Option Explicit
Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" ( _
     ByVal lpszLongPath As String, _
     ByVal lpszShortPath As String, _
     ByVal cchBuffer As Long) As Long
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 GetActiveWindow Lib "user32.dll" () As Long
Private Const MAX_PATH = 260&
Public Const SW_MAXIMIZE = 3&
Private Sub prcOpen_PDF()
    Dim strPath As String, strShortPath As String, strFile As String
    strFile = "bpl08827.pdf"
    strPath = Trim$(Worksheets("Texte").Cells(1, 1).Text) & "\"
    strShortPath = Space(MAX_PATH)
    GetShortPathName strPath & "\" & strFile, strShortPath, MAX_PATH
    ShellExecute GetActiveWindow, "open", strShortPath, "", strPath, SW_MAXIMIZE
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PDF-Datei über Makro öffnen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread