Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Funktionssammlung: Datei mit passender Anwendung ffnen

Eine oft gesuchte Funktion ist das ffnen von Dateien mit der richtigen Anwendung per VBA. Das ganze ist einfacher, als man denkt: Man muss nur die richtige API-Funktion mit einer passenden VBA-Funktion wrappen, schon erscheinen alle Dokumente im rechten Licht.

Beschreibung

Die Funktion OpenDocument erwartet lediglich die Angabe des kompletten Pfads des anzuzeigenden Dokuments.

Funktionscode

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 OpenDocument(DocumentFile As String) As Long

    Dim ret As Long

    If Len(DocumentFile) > 0 Then

        ret = ShellExecute(Application.hWndAccessApp, "open", DocumentFile, vbNullChar, "", 1)

        If Err Then

            OpenDocument = 0

        ElseIf ret > 32 Then

            OpenDocument = -1

        Else

            OpenDocument = ret

        End If

    Else

        OpenDocument = 0

    End If

End Function

Syntax

OpenDocument "c:\test.pdf"

© 2003-2015 André Minhorst Alle Rechte vorbehalten.