如何從Datastore.prime使用VBA

Question

我試圖從本網站http://www.whoscored.com/regions/252/tournaments/2/england-premier-league

抽取數據當我使用檢查元素我看到的數據以表格形式如上圖下方抽取數據。

的源代碼在這個格式的數據。

DataStore.prime（ 'stagefixtures'，$ .extend（{級ID：12496，isAggregate：假}，calendar.parameter（）），〔959688,1，「週一，十二月'2015'，'20：00'，13，'Arsenal'，0,167，'曼城'，0，'2：1'，'2：0'，1,1，'FT'，'1'，0 ，1,112,0] ，[959683,4，'2015年12月26日星期六'，'12：45'，96'，'斯托克'，0,32，'曼聯'，0，'vs',, 0， 1，' - 1'，0,1,13,0] ，[959615,4'2015年12月26日星期六'''15:00''24'Aston Villa'，0,29'West Ham'，0，'vs',, 0,1 ,,' - 1'，0,1,6,0] ，[959625,4，'2015年12月26日星期六'，'15：00'，183 ，'伯恩茅斯'，0,162，'水晶宮'，0，'vs',, 0,1 ,,' - 1'，0,1,10,0] ，[959635,4，'2015年12月26日星期六'，'15：00'，15，'Chelsea'，0,27，'沃特福德'，0，'vs',, 0,1 ,,' - 1 '，0,1,15,0] ，[959645,4，'2015年12月26日星期六'，'15：00'，26，'利物浦'，0,14，'萊斯特'，0，'vs' ，0,1 ,,' - 1'，0,1,15,0] ，[959655,4，'2015年12月26日星期六'，'15：00'，167'曼城'，0， 16，'桑德蘭'，0，'vs',, 0,1 ,,' - 1'，0,1,4,0​​] ，[959691,4，'2015年12月26日星期六'，'15:00 '，259，'Swansea'，0,175，'West Bromwich Albion'，0，'vs',, 0,1 ,,' - 1'，0,1,5,0] ，[959698,4'，Saturday ，'2015年12月26日'，'15:00'，30'托特納姆'，0,168'諾維奇'，0，'vs',, 0,1 ,,' - 1'，0,1,8,0] ，[959665,4，'2015年12月26日星期六'，'17：30'，23，'紐卡斯爾聯'，0,31，'埃弗頓'，0，'vs',, 0,1 ,,' - 1 '，0,1,7,0] ，[959674,4，'2015年12月26日星期六'，'19：45'，18，'南安普敦'，0,13，'阿森納'，0，'vs' ，0,1 ,,' - 1'，0,1,11,0] ]）;

這段代碼應該從表格格式中抓取數據，但在這種情況下我不怎麼做。

Option Explicit 

Sub WeeklyFixtures() 


Dim IE As Object, obj As Object 

Dim r As Integer, c As Integer, t As Integer 
Dim elemCollection As Object 

Set IE = CreateObject("InternetExplorer.Application") 

With IE 
.Visible = True 
.navigate ("http://www.whoscored.com/regions/252/tournaments/2/england-premier-league") 
While IE.ReadyState <> 4 
DoEvents 
Wend 

Do While IE.busy: DoEvents: Loop 

ThisWorkbook.Sheet1.Clear 

Set elemCollection = IE.Document.getElementsByTagName("TABLE") 

    For t = 0 To (elemCollection.Length - 1) 

     For r = 0 To (elemCollection(t).Rows.Length - 1) 
      For c = 0 To (elemCollection(t).Rows(r).Cells.Length - 1) 
       ThisWorkbook.Worksheets(1).Cells(r + 1, c + 1) = elemCollection(t).Rows(r).Cells(c).innerText 
      Next c 
     Next r 
    Next t 

End With 

Set IE = Nothing 

End Sub 

Answer 1

試試這個代碼：

Option Explicit 

Sub GetWhoscoredData() 

    Dim strCont, arrRows, strComma, arrQuots, i, arrCols 

    With CreateObject("Microsoft.XMLHTTP") 
     .Open "GET", "http://www.whoscored.com/regions/252/tournaments/2/england-premier-league", False 
     .Send 
     strCont = .ResponseText 
    End With 

    strCont = Split(strCont, "'stagefixtures'")(1) 
    strCont = Split(strCont, "[[")(1) 
    strCont = Split(strCont, "]);")(0) 
    strCont = Replace(strCont, vbCrLf, "") 
    strComma = Mid(CreateObject("Scriptlet.TypeLib").GUID, 2, 36) 
    arrQuots = Split(strCont, "'") 
    For i = 1 To UBound(arrQuots) Step 2 
     arrQuots(i) = Replace(arrQuots(i), ",", strComma) 
    Next 
    strCont = Join(arrQuots, "") 
    arrRows = Split(strCont, "],[") 
    For i = 0 To UBound(arrRows) 
     arrCols = Split(arrRows(i), ",") 
     Cells(i + 1, 1).Value = Replace(arrCols(2), strComma, ",") 
     Cells(i + 1, 2).Value = Replace(arrCols(3), strComma, ",") 
     Cells(i + 1, 3).Value = Replace(arrCols(14), strComma, ",") 
     Cells(i + 1, 4).Value = Replace(arrCols(5), strComma, ",") 
     Cells(i + 1, 5).NumberFormat = "@" 
     Cells(i + 1, 5).Value = Replace(arrCols(10), strComma, ",") 
     Cells(i + 1, 6).Value = Replace(arrCols(8), strComma, ",") 
    Next 
    Cells.Columns.AutoFit 

End Sub 

它給我的輸出如下：

Answer 2

您是否有Excel 2016？你應該可以得到它：Data - >New Query - >From Other Sources - >From Web。在那裏你可以輸入你的網址。如果你記錄所有你甚至得到相應的VBA代碼。