Цитата |
---|
Ball_bes написал: Вроде там пару строчек кода |
Откуда такое понимание, если не знаете наверняка? Почему думаете, раз это руками делается в три движения, кодом будет еще проще? Бывают ситуации совершенно обратные - простые действия мыши на VBA реализовываются сотней строк...
По идее надо что-то вроде:
Код |
---|
Sub Test()
Dim oIE As Object, s, sPageTExt As String
Dim asSp
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = 0
s = "http://www.livescore.in/ru/"
oIE.Navigate (s)
Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop
sPageTExt = oIE.Document.body.innerText
asSp = Split(sPageTExt, vbNewLine)
Cells(1, 1).Resize(UBound(asSp), 1).Value = Application.Transpose(asSp)
oIE.Quit
Set oIE = Nothing
End Sub
|
Но при этом есть необходимость разбить нормально на столбцы. И убрать пустые и лишние строки. Через HTML не очень-то получается, т.к. результаты выводятся на страницу скриптами.