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

Dateien mit richtiger Anwendung ffnen

Wenn Sie von VBA aus eine Datei direkt mit der richtigen Anwendung ffnen mchten, mssen Sie auf die API-Funktion ShellExecute zurckgreifen. Diese Funktion wrappen Sie mit einer eigenen Funktion, die lediglich den Namen der zu ffnenden Datei als Parameter erwartet.

Fgen Sie die folgenden Zeilen in ein beliebiges Modul ein.

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

Der Aufruf erfolgt beispielsweise folgendermaen:

OpenDocument "c:\test.txt"

© 2003-2015 André Minhorst Alle Rechte vorbehalten.