ich würde gerne eine Webseite mit Firefox öffnen und dann in die Zwischenablage kopieren.
Mit der folgenden Funktion und Subroutine (siehe unten) kann ich die Seite in Firefox öffnen (im Internetexplorer 11 geht es nicht mehr bei mir).
Nun fehlt mir aber der vba code zum kopieren der vollständigen webseite in die Zwischenablage.
Kann mir da jemand helfen?
Besten Dank vorab
Bernd
______________________________________________________________________
Function OpenUrl(sURL As String, InFireFox As Boolean) As Integer
If InFireFox Then
OpenUrl = Shell("C:\Programme\Mozilla Firefox\firefox.exe " & sURL)
Else
OpenUrl = Shell("C:\Programme\Internet Explorer\iexplore.exe " & sURL)
End If
End Function
_______________________________________________________________________
Sub TestOpenUrl()
intResult = OpenUrl("https://www.wsj.com/market-data/stocks/marketsdiary", True)
End Sub