Code umwandeln - Quelltext importieren
03.10.2012 08:38:09
Wolfgang
noch auf der Suche nach einer Möglichkeit, bestimmte Daten aus HTML-Quelltext zu importieren, entdeckte ich unter Recherche folgenden Code. Wie könnte/müßte der Code angepasst werden, dass ich aus einer aktiven (also, nicht aus einer Datei) Website -Internetexplorer- den Quelltext in Tabelle 2 der Excel-Mappe importieren kann?
Danke schon jetzt für die Rückantworten.
Gruß - Wolfgang
Option Explicit
Sub GetInnerText()
Dim objBrowser As Object
Dim objDoc As Object
Dim vFile, vTxt
On Error GoTo ErrorHandler
vFile = Application.GetOpenFilename(, , "Lieferscheine- Datei")
If VarType(vFile) = vbBoolean Then Exit Sub
Set objBrowser = CreateObject("InternetExplorer.Application")
With objBrowser
.Visible = False
.Navigate vFile
Do While objBrowser.Busy
Loop
Set objDoc = objBrowser.Document
Do While objDoc.readyState "complete"
Loop
vTxt = Split(objDoc.Body.InnerText, vbCrLf)
.Quit
End With
With Sheets("Tabelle2")
.Cells.Delete
.Cells(1, 1).Resize(UBound(vTxt) + 1).Value = Application.Transpose(vTxt)
End With
ErrorHandler:
If Not objBrowser Is Nothing Then
objBrowser.Quit
End If
Set objDoc = Nothing
Set objBrowser = Nothing
End Sub