|
Nein, das ist eine abendfüllende Aufgabe. :)
Wenn du die Seite oder wohl deren Werte in die tabvelle klopfen willst,
must du das HTML parsen.HTML ist aber nur eine besoindere Variante von XML.
Und da gibt es das DOMDocument. welches man über die Referenzierung (Verweis) auf das Microsoft XML Object erreicht.
Also erst diese DLL in dem VBA Anmelden. !
Hinterher kann man dann das HTML/XML wie auch immer auseinander nehmen
Private Sub xmlLoad(file_name, Sheet As String)
Dim xml_doc As DOMDocument
Dim ROOT_NODE As IXMLDOMElement
Dim FCR_node As IXMLDOMElement
Dim TXT As String
Dim VALUES() As String
Dim i As Integer
' Compose the XML file's name.
' file_name = App.Path
' Read the XML file.
Set xml_doc = New DOMDocument
xml_doc.LOAD file_name
Set ROOT_NODE = xml_doc.documentElement
' Use the first node to make the column
' headers.
Set FCR_node = ROOT_NODE.FirstChild
TXT = GetAttributesAndNames(FCR_node)
VALUES = split(TXT, "|")
If Start = 0 Then
For i = 0 To UBound(VALUES)
''debug.print values(i)
Sheets(Sheet).Cells(1, i + 1).Value = VALUES(i)
Next i
End If
' Read the values.
For Each FCR_node In ROOT_NODE.childNodes
TXT = GetAttributeAndNameValues(FCR_node)
VALUES = split(TXT, "|")
If UBound(VALUES) > 0 Then
' 'debug.print values(0)
For i = 0 To UBound(VALUES)
''debug.print values(i)
''debug.print Len(values(i)), nr
Sheets(Sheet).Cells(NR, i + 1).Value = Left(VALUES(i), 1024)
Next i
NR = NR + 1
'If right(STR(NR), 2) = "00" Then 'debug.print NR
End If
Next
End Sub
|