Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datei öffnen mit ShellExecute
zurück: Inhalt email aus Outlook in Access importieren weiter: vbShortDate als Recordset in Datumsfeld eintragen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
gn090256
Gast


Verfasst am:
24. Apr 2014, 12:06
Rufname:

Datei öffnen mit ShellExecute - Datei öffnen mit ShellExecute

Nach oben
       Version: Office 2010

Hallo,
ich möchte per Aufwahl und Button eine pdf-Datei öffnen. Das fatale ist, dass es bei einigen Kollegen klappt, bei anderen nicht.
Code:
Public Sub Dokument_anzeigen(Dokument As String)
'*****************************************************'
'* vorhandenes Dokument öffnen und anzeigen          *'
'*****************************************************'
On Error GoTo Error
    Dim rcSE As Integer
   
    rcSE = ShellExecute(0, "open", Dokument, "", "", 1)
   ' MsgBox rcSE & "  " & Dokument
    If rcSE < 32 Then GoTo Error
    GoTo Ende
Error:
    MsgBox "Das Dokument" & vbCrLf & Dokument & vbCrLf _
         & "kann nicht geöffnet werden" & vbCrLf _
         & "entweder existiert das Dokument nicht " _
         & "oder sie haben keine Berechtigung" & vbCrLf _
         & "Rückgabewert " & rcSE
    Resume Next
Ende:
End Sub
Rückgabewert: 31
Deutet darauf hin, dass kein Standardprogramm für pdf vorhanden ist.
Aber in der Systensteuerung/Standardprogramme ist der Adobe Reader hinterlegt. Die Kollegen können die entsprechende Datei im Explorer öffnen.

Danke
Gasth
Gast


Verfasst am:
25. Apr 2014, 13:41
Rufname:

AW: Datei öffnen mit ShellExecute - AW: Datei öffnen mit ShellExecute

Nach oben
       Version: Office 2010

Hallo,

kopiere folgende Deklaration und Funktion in ein neues Modul.
Code:
Option Compare Database
Option Explicit

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

Public Function OpenPdfDatei()
'Bei Übergabe Public Function OpenPdfDatei(strPfad as string)
'sollte der String z. Bsp. so aussehen "C:\tmp\Testpdf.pdf"
    Dim hwn As Long, strPfad As String, Result As Long
   
    hwn = Screen.ActiveForm.Hwnd
    strPfad = "C:\tmp\Testpdf.pdf"
    Result = ShellExecute(hwn, "Open", strPfad, "", "", 1)
End Function
strPfad ist natürlich noch an deine Gegebenheiten anzupassen.

Tipp: API Deklarationen und ausführende Funktionen sollten besser in einem Modul angeordnet werden.

mfg Gasth
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Abfragen in Datei umleiten?!? 3 eiskalterengel 476 15. Sep 2008, 23:08
Willi Wipp Abfragen in Datei umleiten?!?
Keine neuen Beiträge Access Tabellen & Abfragen: Mit Hilfe einer Maske ein Verzeichnis einer Datei ermitteln! 0 Steveb 472 29. Jul 2008, 07:23
Steveb Mit Hilfe einer Maske ein Verzeichnis einer Datei ermitteln!
Keine neuen Beiträge Access Tabellen & Abfragen: Webbrowser über Ereignisprozedur öffnen 2 fizlipuzli 1491 21. Mai 2008, 13:37
fizlipuzli Webbrowser über Ereignisprozedur öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Importieren von Excel Datei als Memo 0 Gustl 1092 08. Mai 2008, 14:48
Gustl Importieren von Excel Datei als Memo
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungsabfragen sind zerballert nach erneutem öffnen 6 Forley 267 20. Feb 2008, 15:56
Forley Aktualisierungsabfragen sind zerballert nach erneutem öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Excel Tabelle aus Access öffnen 4 Gero16 1905 10. Feb 2008, 12:38
Gast Excel Tabelle aus Access öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Access-Datenbank öffnen 2 Wanda 971 27. Nov 2007, 17:18
Willi Wipp Access-Datenbank öffnen
Keine neuen Beiträge Access Tabellen & Abfragen: Import von Werten aus csv Datei in Access 1 Gast 670 23. Nov 2007, 18:00
steffen0815 Import von Werten aus csv Datei in Access
Keine neuen Beiträge Access Tabellen & Abfragen: TXT Datei in Tabelle importieren 30 Nuzzi71 2708 09. Jul 2007, 09:44
Nuzzi71 TXT Datei in Tabelle importieren
Keine neuen Beiträge Access Tabellen & Abfragen: "Dynamische Abfragen" Tabelle vor öffnen der Abfra 1 smux 1279 11. Jan 2007, 12:35
JörgG "Dynamische Abfragen" Tabelle vor öffnen der Abfra
Keine neuen Beiträge Access Tabellen & Abfragen: datei verlinken 2 office krüppl 676 20. Dez 2006, 10:50
Gast datei verlinken
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage nicht öffnen - trotzdem Abfragen - möglich? 3 mikase 599 01. Sep 2006, 12:50
mikase Abfrage nicht öffnen - trotzdem Abfragen - möglich?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project