Set objTable = objHTML.getElementById(tableId)
                
Row = 0
    For Each TR In objTable.getElementsByTagName("tr")
'  Debug.Print objTable.getElementsByTagName("tr").Count 'НЕ РАБОТАЕТ
                
    Row = Row + 1
    Column = 0
        For Each TD In TR.Cells
'      Debug.Print TD.Cells.Count 'НЕ РАБОТАЕТ
                    
       If TD.ClassName <> "flag" Then
                             
               Select Case TD.ClassName
               Case "bold left noWrap elp"
                   Column = Column + 1
                   rngStart.Cells(Row, Column) = Split(TD.innerText, " ")(1)
               Case Else
                    Column = Column + 1
                    rngStart.Cells(Row, Column) = Replace(TD.innerText, ",", ".")
               End Select
       End If
       Next TD
    Next TR

Private Function HD_TimeFrame(Pair_Id As String) As String
      Dim XMLHTTP As Variant, URL As String
          
      URL = "http://ru.investing.com/common/modules/js_instrument_chart/api/data.php?symbol=S%2526P%2B500&pair_id=" & Pair_Id & "&pair_id_for_news=166&chart_type=area&pair_interval=week&candle_count=120&events=yes&volume_series=yes"
                      
      Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
        With XMLHTTP
          .Open "GET", URL, False
          .setRequestHeader "Accept", "application/json, text/javascript, */*; q=0.01"
          .setRequestHeader "Accept-Encoding", "gzip, deflate, sdch"
          .setRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
          .setRequestHeader "Host", "ru.investing.com"
          .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.71 Safari/537.36"
          .setRequestHeader "X-Requested-With", "XMLHttpRequest"
          .send
        End With

        HD_TimeFrame = XMLHTTP.responsetext
        Set XMLHTTP = Nothing
End Function

Private Sub test_HD_TimeFrame()
        Debug.Print HD_TimeFrame("166")
End Sub

{"_comment":"pair_id: 166, interval: week, candles: 120","candles":[[1345939200000,1406.58,0],[1346544000000,1437.92,0],[1347148800000,1465.77,0],[1347753600000,1460.15,0],[1348358400000,1440.67,0],[1348963200000,1460.9301,0],[1349568000000,1428.59,0],[1350172800000,1433.1899,0],[1350777600000,1411.9399,0],[1351382400000,1414.2,0],[1351987200000,1379.85,0],[1352592000000,1359.88,0],[1353196800000,1409.15,0],[1353801600000,1416.1801,0],[1354406400000,1418.0699,0],[1355011200000,1413.58,0],[1355616000000,1430.15,0],[1356220800000,1402.4301,0],[1356825600000,1466.47,0],[1357430400000,1472.05,0],[1358035200000,1485.98,0],[1358640000000,1502.96,0],[1359244800000,1513.17,0],[1359849600000,1517.9301,0],[1360454400000,1519.79,0],[1361059200000,1515.6,0],[1361664000000,1518.2,0],[1362268800000,1551.1801,0],[1362873600000,1560.7,0],[1363478400000,1556.89,0],[1364083200000,1569.1899,0],[1364688000000,1553.28,0],[1365292800000,1588.85,0],[1365897600000,1555.25,0],[1366502400000,1582.24,0],[1367107200000,1614.42,0],[1367
712000000,1633.7,0],[1368316800000,1667.47,0],[1368921600000,1649.6,0],[1369526400000,1630.74,0],[1370131200000,1643.38,0],[1370736000000,1626.73,0],[1371340800000,1592.4301,0],[1371945600000,1606.28,0],[1372550400000,1631.89,0],[1373155200000,1680.1899,0],[1373760000000,1692.09,0],[1374364800000,1691.65,0],[1374969600000,1709.67,0],[1375574400000,1691.42,0],[1376179200000,1655.83,0],[1376784000000,1663.5,0],[1377388800000,1632.97,0],[1377993600000,1655.17,0],[1378598400000,1687.99,0],[1379203200000,1709.91,0],[1379808000000,1691.75,0],[1380412800000,1690.5,0],[1381017600000,1703.2,0],[1381622400000,1744.5,0],[1382227200000,1759.77,0],[1382832000000,1761.64,0],[1383436800000,1770.61,0],[1384041600000,1798.1801,0],[1384646400000,1804.76,0],[1385251200000,1805.8101,0],[1385856000000,1805.09,0],[1386460800000,1775.3199,0],[1387065600000,1818.3199,0],[1387670400000,1841.4,0],[1388275200000,1831.37,0],[1388880000000,1842.37,0],[1389484800000,1838.7,0],[1390089600000,1790.29,0],[1390694400000,1782.59,0],[139129920
0000,1797.02,0],[1391904000000,1838.63,0],[1392508800000,1836.25,0],[1393113600000,1859.45,0],[1393718400000,1878.04,0],[1394323200000,1841.13,0],[1394928000000,1866.52,0],[1395532800000,1857.62,0],[1396137600000,1865.09,0],[1396742400000,1815.6899,0],[1397347200000,1864.85,0],[1397952000000,1863.4,0],[1398556800000,1881.14,0],[1399161600000,1878.48,0],[1399766400000,1877.86,0],[1400371200000,1900.53,0],[1400976000000,1923.5699,0],[1401580800000,1949.4399,0],[1402185600000,1936.16,0],[1402790400000,1962.87,0],[1403395200000,1960.96,0],[1404000000000,1985.4399,0],[1404604800000,1967.5699,0],[1405209600000,1978.22,0],[1405814400000,1978.34,0],[1406419200000,1925.15,0],[1407024000000,1931.59,0],[1407628800000,1955.0601,0],[1408233600000,1988.4,0],[1408838400000,2003.37,0],[1409443200000,2007.71,0],[1410048000000,1985.54,0],[1410652800000,2010.4,0],[1411257600000,1982.85,0],[1411862400000,1967.9,0],[1412467200000,1906.13,0],[1413072000000,1886.76,0],[1413676800000,1964.58,0],[1414281600000,2018.05,0],[1414886400
000,2031.92,0],[1415491200000,2039.8199,0],[1416096000000,2063.5,0],[1416700800000,2067.5601,0],[1417305600000,2075.3701,0],[1417910400000,2026.14,0]],"dummy_candle":[[1418515200000,2026.14]],"dummy_volume":[[1418515200000,0]],"events":{"news":[],"ec":[]},"attr":{"decimals":2,"last_value":2026.14,"last_close_value":2026.14,"server_time":1418298158,"interval":"week","pair_id":166,"exchange_id  ":1,"symbol":"S&P 500","last_update_datetime":null},"html":{"chart_info":"<span id=\"chart-info-symbol\" class=\"arial_16\">S&P 500<\/span>\n<span id=\"chart-info-arrow\" class=\"newSiteIconsSprite a1 redArrowIcon\"> <\/span> <span id=\"chart-info-last\" class=\"arial_16 bold\">2,026.14<\/span>\n<span class=\"arial_14 bold redFont\">\n\t<span id=\"chart-info-change\">-33.68<\/span>\n\t(<span id=\"chart-info-change-percent\">-1.64<\/span>%)\n<\/span>\n","chart_last_update":"Last update: <span>1418245237000<\/span>"}}