Internet Seite via VBA öffnen

[derhard]

Bitte um Hilfe :
Wie kann ich via VBA die Internet Seite mit einem Button von Weltsparen öffnen ??
Vielen Dank für Eure Hilfe 
DAnke für Eure Hilfe

Gruß Gerhard

[volti]

Hallo Gerhard,

wenn Du einfach nur Internetseiten z.B. mit Deinem Standard-Browser öffnen möchtest, ohne später per VBA auf irgendwelche Daten zugreifen zu wollen, bietet sich die Shellexecute-Funktion an.

Diese gibt es über die Window-API oder über die Shell. Such Dir was aus....

Code:

Private Declare PtrSafe Function ShellExecuteA Lib "Shell32.dll" ( _
        ByVal hwnd As LongPtr, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, _
        ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

Sub Web_Site_Open_API()
  '9 = SW_RESTORE
  ShellExecute 0&, "Open", "https://www.clever-excel-forum.de/Thread...BA-oeffnen", 0, 0, 9
End Sub


Sub Web_Site_Open_Shell()
  With CreateObject("Shell.Application")
       .ShellExecute "https://www.clever-excel-forum.de/Thread...BA-oeffnen", "", "", "Open", 4
  End With
End Sub

_________
viele Grüße
Karl-Heinz

[volti]

Hallo,

tja, wenn man mal schnell nachträglich was ändert.....

Es muss natürlich so sein:

Code:

Sub Web_Site_Open_API()
  '9 = SW_RESTORE
  ShellExecuteA 0&, "Open", "https://www.clever-excel-forum.de/Thread...BA-oeffnen", 0, 0, 9
End Sub

_________
viele Grüße
Karl-Heinz

[26865]

Ein Hyperlink wäre auch ein denkbarer Ansatz.

[snb]

nicht nur denkbar, doch der beste Ansatz.