Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: VBA (Excel)
Autor: Nightlight
Datum: 03.02.02 18:52
Kein Problem in Verbindung mit dem Trick "Standardbrowser ermitteln", der allerdings leicht abgeändert werden muss (weil es in Excel kein App.path gibt z.B.): 'Hier die benötigten API-Deklarationen Private Declare Function FindExecutable Lib "shell32.dll" _ Alias "FindExecutableA" (ByVal lpFile As String, _ ByVal lpDirectory As String, _ ByVal lpResult As String) As Long 'Diese Funktion ermittelt den im System festgelegten 'Standard-Browser und gibt den Pfad inkl. Dateinamen 'zurück. ' 'Zusätzlich wird in der Variable sName noch der Name 'des Browsers zurückgegegen ' 'Ist kein Standard-Browser eingerichtet, so wird ein 'Leerstring zurückgegeben Public Function StandardBrowser(sTemppath As String, sName As String) As String Dim sExe As String Dim tmpFile As String Dim F As Integer tmpFile = sTemppath + IIf(Right$(sTemppath, 1) <> "\", _ "\", "") + "test~12345.html" F = FreeFile Close #F: Open tmpFile For Output As #F Close #F sExe = AnwendungFuerDatei(tmpFile) Kill tmpFile If sExe <> "" Then If InStr(LCase$(sExe), "iexplore") > 0 Then sName = "Microsoft Internet Explorer" ElseIf InStr(LCase$(sExe), "netscape") > 0 Then sName = "Netscape Communicator" ElseIf InStr(LCase$(sExe), "opera") > 0 Then sName = "Opera-Browser" Else sName = "" End If End If StandardBrowser = sExe End Function 'Diese Funktion ermittelt die Standard-Anwendung 'in Verbindung mit einem bestimmten Dateityp ' 'Die Funktion gibt als Ergebnis den Dateinamen mit 'vollständigen Pfad zurück ' 'Kann keine assoziierte Anwendung ermittelt werden 'wird ein Leerstring zurückgegeben 'Diese Funktion stammt aus einem vorigen Tipp Public Function AnwendungFuerDatei(ByVal Datei As String) _ As String 'Datei: Pfad+Dateinamen einer existierenden Datei Dim Pfad As String Pfad = Space$(256) FindExecutable Datei, vbNullString, Pfad If Pfad <> "" Then Pfad = Left$(Pfad, InStr(Pfad, vbNullChar) - 1) End If If UCase$(Pfad) = UCase$(Datei) Then Pfad = "" AnwendungFuerDatei = Pfad End Function Dann startest du den Browser so: Shell(Standardbrowser("C:windows emp", ""))

VBA (Excel)	72	Christoph	02.02.02 18:13
Re: VBA (Excel)	59	Nightlight	03.02.02 18:52

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen