AW: Inhalt aus URL/Webseiten auslesen
29.01.2009 10:18:00
Tino
Hallo,
also genau dies habe ich in diesem Forum schon mal geschrieben,
dies ist eine Java programmierte Seite, bei manschen kommt man nicht an die Daten ran.
Dies wurde natürlich von einigen Provis dementiert geht wie bei jeder anderen Seite auch
,
wie haben diese aber nicht gezeigt.
Man kommt zwar auf die Kader Seite, aber an die Daten kommt man nicht heran,
weil diese nicht im Quellcode stehen.
Ich habe bis heute noch keinen Weg gefunden,
an solche Daten heranzukommen um diese nach Excel zu bekommen.
Außer mit SendKeys die Daten zu markieren und zu kopieren.
Vielleicht aber auch, weil ich mich mit Java nicht auskenne.
Solltest Du einen Weg finden, kannst Du Ihn hier ruhig preis geben.
Hier mal ein Beispiel wie es bei mir Funktioniert, aber mit SendKeys.
Option Explicit
Sub SearchAndClickLink()
Dim AnkerCount As Integer
Dim index As Integer
Dim Linkname As String
Dim appIE As Object
Dim i As Integer
Set appIE = CreateObject("InternetExplorer.application")
Application.ScreenUpdating = False
appIE.Navigate2 "http://www.ksm-soccer.eu/verein.php?id=2730"
appIE.Visible = True
While Not appIE.ReadyState = 4
DoEvents
Wend
Application.Wait Now + TimeSerial(0, 0, 2)
Call TabelleVorbereiten
AnkerCount = appIE.Document.all.tags("a").Length
For index = 0 To AnkerCount - 1
If appIE.Document.all.tags("a")(index).innerText = "Kader" Then
appIE.Document.all.tags("a")(index).Click
AppActivate "KSM-Soccer"
DoEvents
Application.Wait Now + TimeSerial(0, 0, 3)
DoEvents
SendKeys "^a", True
SendKeys "^c", True
appIE.Quit
Exit For
End If
Next
'sollte sich die NumLock-Taste ausschalten sonst löschen
SendKeys "{pgup}", True
Application.OnTime Now + TimeSerial(0, 0, 1), "Einfuegen"
Application.ScreenUpdating = True
End Sub
'Daten aus Zwischenablage einfügen
Sub Einfuegen()
Range("A1").PasteSpecial
Range("A1").Select
End Sub
'Tabelle Daten Löschen und Bilder entfernen
Sub TabelleVorbereiten()
Dim meShapes As Shape
Cells.Clear
For Each meShapes In ActiveSheet.Shapes
If meShapes.Name Like "Picture*" Then
meShapes.Delete
End If
Next meShapes
End Sub
Man könnte die Daten auch aus der Zwischablage Zeile für Zeile auslesen (GetFromClipboard...)
um nur die gewünschten Daten zu bekommen.
Gruß Tino