Как отменить данные таблицы в Excel/VBA?

Question

страница закодирована в html5 и мой код не может ломом с помощью этого метода:

Sub Macro1() 
With ActiveSheet.QueryTables.Add(Connection:= _ 
“URL;https://exchange.btcc.com/”, Destination:=Range(“$A$1″)) 
.Name = “market_trend” 
.FieldNames = True 
.RowNumbers = False 
.FillAdjacentFormulas = False 
.PreserveFormatting = True 
.RefreshOnFileOpen = False 
.BackgroundQuery = True 
.RefreshStyle = xlInsertDeleteCells 
.SavePassword = False 
.SaveData = True 
.AdjustColumnWidth = True 
.RefreshPeriod = 0 
.WebSelectionType = xlSpecifiedTables 
.WebFormatting = xlWebFormattingNone 
.WebTables = “4″ 
.WebPreFormattedTextToColumns = True 
.WebConsecutiveDelimitersAsOne = True 
.WebSingleBlockTextImport = False 
.WebDisableDateRecognition = False 
.WebDisableRedirections = False 
.Refresh BackgroundQuery:=False 
End With` 
End Sub 

Любая идея, как лом цены Ticker таблица с этого сайта?

Answer 1

Почему бы не использовать тот же метод, что и в ваш последний вопрос:

Sub Tester() 

    Dim IE As Object 
    Dim tbl, trs, tr, tds, td, r, c 

    Set IE = CreateObject("internetexplorer.application") 

    IE.Navigate "https://exchange.btcc.com/" 

    Do While IE.Busy = True Or IE.readyState <> 4: DoEvents: Loop 

    Set tbl = IE.Document.getElementsByTagName("table")(5) 
    Set trs = tbl.getElementsByTagName("tr") 

    For r = 0 To trs.Length - 1 
     Set tds = trs(r).getElementsByTagName("td") 
     If tds.Length = 0 Then Set tds = trs(r).getElementsByTagName("th") 

     For c = 0 To tds.Length - 1 
      ActiveSheet.Range("A1").Offset(r, c).Value = tds(c).innerText 
     Next c 
    Next r 

End Sub 

Это даст вам результат следующим образом: