![\"Tabelle](\"..\/fileadmin\/_temp_\/2022_06\/pic_1394_001.png\")
<\/p>\nEs gibt viele Gelegenheiten, zu denen man gern eine Datei per VBA öffnen möchte. Ein gutes Beispiel ist ein soeben auf Basis eines Berichts erstelltes PDF-Dokument. Doch der Standardumfang von VBA liefert keine Möglichkeit, diese Aufgabe zu erledigen. Und tatsächlich ist das Anzeigen einer Datei nicht trivial, zumindest dann nicht, wenn wir vorher noch nicht wissen, welchen Dateityp die Datei hat und mit welcher Anwendung diese geöffnet werden soll. Allerdings weiß Windows ja auch meistens, mit welcher Anwendung eine Datei geöffnet werden soll, wenn wir diese im Windows Explorer doppelt anklicken. Also muss es einen Weg geben, diese Aufgabe per Code zu erledigen. Und die Lösung ist eine API-Funktion namens ShellExecute.<\/b><\/p>\nBeispieltabelle mit Dateiinformationen<\/h2>\n
Zu Beispielzwecken haben wir einer Datenbank eine Tabelle namens tblDateien <\/b>hinzugefügt. Diese sieht wie in Bild 1 aus und enthält neben einer Bezeichnung den Namen von Dateien. Auf Pfadangaben haben wir der besseren Nutzbarkeit der Beispieldatenbank halber verzichtet und gehen davon aus, dass die angegebenen Dateien sich im gleichen Verzeichnis wie die Datenbank befinden. Auf diese Weise können wir in den folgenden Beispielen per Code unter Zuhilfenahme von CurrentProject.Path <\/b>auf die Dateien zugreifen.<\/p>\n
<\/p>\n
Bild 1: Tabelle mit Dateiangaben<\/span><\/b><\/p>\n Um die Funktion zum Anzeigen der Dateien einfach aufrufen zu können, erstellen wir ein Formular, dass die Daten der Tabelle tblDateien <\/b>anzeigt und eine Schaltfläche bereitstellt, mit der wir die Datei anzeigen können (siehe Bild 2). Diese Schaltfläche heißt cmdDateiOeffnen<\/b>. Gleich fügen wir der Schaltfläche den Code zum Öffnen der Datei aus dem Feld Dateiname <\/b>hinzu.<\/p>\n Bild 2: Entwurf eines Formulars zur Anzeige von Dateien in der jeweiligen Anwendung<\/span><\/b><\/p>\n Für das Anzeigen von Dateien benötigen wir die API-Funktion ShellExecuteA<\/b>. Diese deklarieren wir wie in Listing 1 in zweifacher Ausführung, einmal für Access-Versionen, die ein älteres VBA verwenden und einmal für die aktuellen Fassungen. Die Deklaration platzieren wir oben in einem neuen Standardmodul namens mdlDateienAnzeigen<\/b>. Der Unterschied besteht in der Verwendung des Schlüsselworts PtrSafe <\/b>sowie dem Datentyp LongPtr <\/b>für den Parameter hWnd<\/b> bei der Version für aktuelles VBA.<\/p>\n <\/p>\n Listing 1: Deklaration der API-Funktion ShellExecute für 32-Bit und 64-Bit-VBA<\/span><\/b><\/p>\n Die Funktion erwartet einige Parameter, die wir uns hier anschauen:<\/p>\n Die möglichen Werte für nCmdShow <\/b>lauten:<\/p>\n Damit wir die Konstanten statt der Zahlenwerte angeben können, deklarieren wir diese oberhalb der API-Deklaration im gleichen Modul:<\/p>\n Die API-Funktion soll in unserem Fall zwar eigentlich nur eine Datei anzeigen, aber sie liefert auch noch einen Rückgabewert. Dieser kann die folgenden Werte annehmen – hier direkt in der Form, wie wir sie im Modul deklarieren wollen:<\/p>\n Damit wollen wir nun endlich einen Aufruf dieser API-Funktion programmieren. Diesen hinterlegen wir wie folgt für die Schaltfläche cmdDateiOeffnen<\/b>:<\/p>\n Dies öffnet die aktuell im Feld Dateiname <\/b>angegebene Datei, sofern sich diese im Datenbankverzeichnis befindet.<\/p>\n Wenn die Datei nicht vorhanden ist, soll der Benutzer eine Meldung darüber erhalten.<\/p>\nFormular zum Anzeigen der Beispieldateien<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2022_06\/pic_1394_002.png\")
<\/p>\nAPI-Funktion zum Anzeigen von Dateien<\/h2>\n
#If VBA7 Then\r\n Public <\/span>Declare PtrSafe Function ShellExecuteA Lib \"Shell32\" (ByVal hWnd As Long<\/span>Ptr, ByVal lpOperation As String<\/span>, _\r\n ByVal lpFile As String<\/span>, ByVal lpParameters As String<\/span>, ByVal lpDirectory As String<\/span>, ByVal nCmdShow As Long<\/span>) As Long<\/span>\r\n#Else\r\n Public <\/span>Declare Function ShellExecuteA Lib \"Shell32\" (ByVal hWnd As Long<\/span>, ByVal lpOperation As String<\/span>, ByVal _\r\n lpFile As String<\/span>, ByVal lpParameters As String<\/span>, ByVal lpDirectory As String<\/span>, ByVal nCmdShow As Long<\/span>) As Long<\/span>\r\n#End If<\/pre>\n\n
\n
Public <\/span>Const SW_HIDE = 0\r\nPublic <\/span>Const SW_MAXIMIZE = 3\r\nPublic <\/span>Const SW_MINIMIZE = 6\r\nPublic <\/span>Const SW_NORMAL = 1\r\nPublic <\/span>Const SW_SHOW = 5\r\nPublic <\/span>Const SW_RESTORE = 9\r\nPublic <\/span>Const SW_SHOWMAXIMIZED = 3\r\nPublic <\/span>Const SW_SHOWMINIMIZED = 2\r\nPublic <\/span>Const SW_SHOWMINNOACTIVE = 7\r\nPublic <\/span>Const SW_SHOWNA = 8\r\nPublic <\/span>Const SW_SHOWNOACTIVATE = 4\r\nPublic <\/span>Const SW_SHOWNORMAL = 1<\/pre>\nRückgabewerte der API-Funktion ShellExecuteA<\/h2>\n
Public <\/span>Const ERROR_BAD_FORMAT = 11&\r\nPublic <\/span>Const SE_ERR_ACCESSDENIED = 5\r\nPublic <\/span>Const SE_ERR_ASSOCINCOMPLETE = 27\r\nPublic <\/span>Const SE_ERR_DDEBUSY = 30\r\nPublic <\/span>Const SE_ERR_DDEFAIL = 29\r\nPublic <\/span>Const SE_ERR_DDETIMEOUT = 28\r\nPublic <\/span>Const SE_ERR_DLLNOTFOUND = 32\r\nPublic <\/span>Const SE_ERR_FNF = 2\r\nPublic <\/span>Const SE_ERR_NOASSOC = 31\r\nPublic <\/span>Const SE_ERR_OOM = 8\r\nPublic <\/span>Const SE_ERR_PNF = 3\r\nPublic <\/span>Const SE_ERR_SHARE = 26<\/pre>\nDateien anzeigen<\/h2>\n
Private Sub <\/span>cmdDateiOeffnen_Click()\r\n Dim <\/span>strPath As String<\/span>\r\n strPath = CurrentProject.Path & \"\\\" & Me!Dateiname\r\n ShellExecuteA 0, \"Open\", strPath, vbNullString, _\r\n vbNullString, SW_NORMAL\r\nEnd Sub<\/span><\/pre>\nFehler bei nicht vorhandener Datei abfangen<\/h2>\n
![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2022_06\/pic_1394_003.png\")
<\/p>\n