|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 PDF über Application.GetOpenFilename öffnen |
26.07.2015 17:24:56 |
Sven W. |
|
|
|
26.07.2015 18:17:02 |
Gast65204 |
|
|
|
28.07.2015 10:33:42 |
Gast42620 |
|
|
|
28.07.2015 11:06:09 |
Gast65204 |
|
|
Von:
Sven W. |
Datum:
26.07.2015 17:24:56 |
Views:
2834 |
Rating:
|
Antwort:
|
Thema:
PDF über Application.GetOpenFilename öffnen |
|
Hallo, ich habe schon viel probiert und gesucht nur leider habe ich nix gefunden. Ich habe einen Button, mit dem ich über Excel eine Datei öffnen Fenster erzeuge, in dem Fenster werden alle vorhanden Dateien, des zuvor definierten Ordners angezeigt. Nun will ich eine PDF Datei auswählen und öffnen. Der Name der Datei wechselt täglich, so dass ich die Datei nicht fest definieren kann. Wenn ich die Datei anklicke öffnet sich auch der PDF Reader, nur leider nicht die PDF Seite. Wäre nett wenn ihr mir helfen könntet.
Hier mein bisheriger Code:
Private Sub CommandButton2_Click()
' Dateiauswahlfenster öffnen
Dim AppWD As Object
Dim fn
Const StartDrive = "X:"
Const StartDir = "X:\Public-Kammer_Heinrich"
ChDrive StartDrive
ChDir StartDir
fn = Application.GetOpenFilename("alle-Dokumente, *.", , "Bitte Datei auswählen")
If fn = False Then Exit Sub 'Abbrechen gedrückt
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe"
Vielen Dank für eure Hilfe
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
PDF über Application.GetOpenFilename öffnen |
26.07.2015 17:24:56 |
Sven W. |
|
|
|
26.07.2015 18:17:02 |
Gast65204 |
|
|
|
28.07.2015 10:33:42 |
Gast42620 |
|
|
|
28.07.2015 11:06:09 |
Gast65204 |
|
|