08.05.2017, 18:42
Hallo VBA Sportler,
ich möchte eine PDF-Datei auf einer bestimmten Seite öffnen.
Das mache ich so:
Die PDF Datei wird dabei auf der Seite 120 geöffnet.
Mein Problem: Wie schaffe ich das Ganze mit Early Binding?
Ich hoffe ihr könnt mir helfen und den entsprechenden Code ergänzen.
ich möchte eine PDF-Datei auf einer bestimmten Seite öffnen.
Das mache ich so:
Code:
Option Explicit
Private Declare PtrSafe 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 PDF_Datei_an_best_Seite_öffnen()
Dim strParameter, strPfad
strParameter = "/A " & Chr(34) & "page=" & 120 & Chr(34) & " " & "C:\T\A.pdf"
strPfad = "C:\Program Files (x86)\Foxit Software\Foxit PhantomPDF\FoxitPhantomPDF.exe"
Dim shX As Object
Set shX = CreateObject("Shell.Application")
Call ShellExecute(0&, "open", strPfad, strParameter, "", 1)
End Sub
Die PDF Datei wird dabei auf der Seite 120 geöffnet.
Mein Problem: Wie schaffe ich das Ganze mit Early Binding?
Code:
Sub Alternative_mit_EarlyBinding()
Dim strParameter, strPfad
strParameter = "/A " & Chr(34) & "page=" & 120 & Chr(34) & " " & "C:\T\A.pdf"
strPfad = "C:\Program Files (x86)\Foxit Software\Foxit PhantomPDF\FoxitPhantomPDF.exe"
Dim shX As Shell32.Shell
Set shX = New Shell32.Shell
'Problemstelle: Wie müssen hier die Parameter gesetzt werden?
shX.ShellExecute ????????????????????
End Sub
Ich hoffe ihr könnt mir helfen und den entsprechenden Code ergänzen.