Robert: mit Access eine Datei aus dem Internet holen

Beitrag lesen

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