html öffnen

[lukasS]

Hallo,

ich möchte über VBA eine HTML - Seite öffnen. Aber irgendetwas mache ich falsch.

    Dim sPath As String
    sPath = App.Path + "\test.html"
    Shell sPath, vbNormalFocus

Muss ich noch irgendein Verweis mit einbinden oder was ist hier falsch? Hilfe

Lukas

 

[lukasS]

Problem mit API gelöst.

Lukas

 

[tYrEaL]

frage?!

hej Lukas ,

wie hast du es per API gelöst?

mfg,
dennis


p.s.: poste mal bitte den code!

 

[lukasS]

Den Code habe ich nicht selber gamcht, nur die Funktion showData ist meine. Wenn etwas nicht funktioniert, frag dann.

Private 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 ShowTypeEnum As Long) _
As Long
Private Enum ShowTypeEnum
    SW_HIDE = 0
    SW_SHOWNORMAL = 1
    SW_SHOWMINIMIZED = 2
    SW_SHOWMAXIMIZED = 3
    SW_SHOWNOACTIVATE = 4
    SW_SHOW = 5
    SW_MINIMIZE = 6
    SW_SHOWMINNOACTIVE = 7
    SW_SHOWNA = 8
    SW_RESTORE = 9
    SW_SHOWDEFAULT = 10
    SW_FORCEMINIMIZE = 11
End Enum


Private Function showData() As Boolean

    Dim sPath As String
    Dim Err As Long
    sPath = App.Path + "\xxx.exe"

    Err = ShellExecute(hWnd, "open", sPath, vbNullString, vbNullString, SW_SHOW)
    If Err = "2" Then
        MsgBox "Datei extistiert nicht"
        Exit Function
    End If

End Function

Lukas

 

[tYrEaL]

danke

hej lukasS,

danke für den Code, klappt super!


danke und tschüss,
tYrEaL