Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Public 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
'Variablen und Objekte deklarieren
Dim fso As FileSystemObject
'Objekte erzeugen
Set fso = New FileSystemObject
'Prüfen, ob die Excel-Datei existiert
If fso.FileExists("C:\eigene.xls") Then
ShellExecute Me.hwnd, "open", "C:\eigene.xls", "", "", 0
Else
MsgBox "Datei nicht gefunden.", vbExclamation, "Fehler"
End If
'Objekte wieder freigeben
Set fso = Nothing