Ich habe eine Lösung gefunden
------> Quellcode im Accessformular
Option Compare Database
Option Explicit
Private WithEvents appIE As InternetExplorer
Private Sub appIE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim strHTML As String
With appIE
strHTML = .Document.documentElement.outerHTML
End With
'Me.txtHTML.Value = strHTML
MsgBox strHTML
End Sub
Private Sub Form_Load()
Set appIE = New InternetExplorer
appIE.Visible = False
appIE.Navigate "http://localhost/"
End Sub
Private Sub Form_Unload(Cancel As Integer)
appIE.Quit
End Sub
Private Sub webBrowser_StatusTextChange(ByVal Text As String)
End Sub
-----< Ende Quellcode
Gruß Robert