Thema Datum  Von Nutzer Rating
Antwort
26.07.2015 17:24:56 Sven W.
NotSolved
Blau PDF über Application.GetOpenFilename öffnen
 26.07.2015 18:17:02 Gast65204
*****
Solved
28.07.2015 10:33:42 Gast42620
NotSolved
28.07.2015 11:06:09 Gast65204
NotSolved

Ansicht des Beitrags:
Von:
Gast65204		 Datum:
26.07.2015 18:17:02		 Views:
2034		 Rating:
     
Antwort:
 Nein
Thema:
PDF über Application.GetOpenFilename öffnen

Geht simpler:

Option Explicit

Private Sub CommandButton2_Click() ' Dateiauswahlfenster öffnen
  
  Const C_ROOTPATH = "X:\Public-Kammer_Heinrich"
  
  Dim vntFilename As Variant
  
  Call ChDrive(Left$(C_ROOTPATH, InStr(1, C_ROOTPATH, ":\") + 1))
  Call ChDir(C_ROOTPATH)
  
  vntFilename = Application.GetOpenFilename("PDF-Dokumente, *.pdf", Title:="Bitte PDF-Dokument auswählen")
  If vntFilename = False Then Exit Sub 'Abbrechen gedrückt
  
  With CreateObject("Shell.Application")
    Call .Open(vntFilename)
  End With
  
End Sub

Das entspricht einem Doppelklick auf die Datei (oder rechtsklick -> Öffnen), d.h. es nutzt die mit dem Dateityp verknüpfte Standardanwendung.

Ihre Antwort
  • 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: Name: Email:



  • 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
26.07.2015 17:24:56 Sven W.
NotSolved
Blau PDF über Application.GetOpenFilename öffnen
 26.07.2015 18:17:02 Gast65204
*****
Solved
28.07.2015 10:33:42 Gast42620
NotSolved
28.07.2015 11:06:09 Gast65204
NotSolved