deutsches Forum rund um Apache OpenOffice und LibreOffice
http://de.openoffice.info/
Und wie sollte OOo / Calc das können?Martial57 hat geschrieben:Die anderen Daten (Regisseur, Premierendatum, Genre, usw.) kann man wie schon leider gesagt nur über den Link erreichen.
Dann verschaffe dir zunächst einen Überblick und Einstieg: Informationen zur StarBasic-Programmierung. Und deine Fragen zur Programmierung stellst du dann im Forum OOo Basic und Java.Martial57 hat geschrieben:Und wie kann man das? Würde das gerne erlernen.
Code: Alles auswählen
REM ***** BASIC *****
Option VBASupport 1
Sub Main
Dim oSheet As Object
Dim IEApp As Object
Dim IEDocument As Object
Dim objNode As Object
Dim objRow As Object
Dim objCol As Object
Dim i As Long, j As Integer
oSheet = ThisComponent.currentController.ActiveSheet
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "http://www.imdb.de/chart/top"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.readyState = "complete"
i = -1
For Each objNode In IEDocument.getElementsByTagName("TBODY")
For Each objRow In objNode.childNodes
i = i + 1
j = -1
For Each objCol In objRow.childNodes
j = j + 1
oSheet.getCellByPosition(j, i).String = objCol.innerText
Next
Next
Next
Set IEApp = Nothing
End Sub