Optimized version shows error

Status
Not open for further replies.
G

gurunathblessings

New Member
Joined
Sep 15, 2016
Messages
22
Follows my original VBA which is very long but works.

VBA Code: 
Sub Get_Web_Data()

Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim price As Variant


website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-03.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(2, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-04.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(3, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-05.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(4, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-06.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(5, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-07.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(6, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-08.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(7, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-09.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(8, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-10.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(9, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-11.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(10, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-12.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(11, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-13.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(12, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-14.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(13, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-15.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(14, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-16.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(15, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-17.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(16, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-18.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(17, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-19.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(18, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-20.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(19, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-21.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(20, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-22.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(21, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-23.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(22, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-24.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(23, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-25.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(24, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-26.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(25, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-27.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(26, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-28.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(27, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-29.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(28, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-30.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(29, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-july-31.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(30, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-01.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(31, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-02.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(32, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-03.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(33, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-04.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(34, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-05.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(35, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-06.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(36, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-07.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(37, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-08.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(38, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-09.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(39, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-10.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(40, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-11.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(41, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-12.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(42, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-13.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(43, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-14.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(44, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-15.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(45, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-16.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(46, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-17.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(47, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-18.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(48, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-19.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(49, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-20.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(50, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-21.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(51, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-22.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(52, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-23.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(53, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-24.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(54, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-25.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(55, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-26.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(56, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-27.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(57, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-28.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(58, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-29.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(59, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-30.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(60, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-august-31.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(61, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-01.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(62, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-02.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(63, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-03.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(64, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-04.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(65, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-05.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(66, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-06.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(67, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-07.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(68, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-08.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(69, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-09.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(70, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-10.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(71, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-11.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(72, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-12.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(73, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-13.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(74, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-14.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(75, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-15.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(76, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-16.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(77, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-17.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(78, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-18.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(79, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-19.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(80, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-20.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(81, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-21.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(82, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-22.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(83, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-23.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(84, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-24.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(85, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-25.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(86, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-26.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(87, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-27.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(88, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-28.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(89, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-29.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(90, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-september-30.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(91, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-01.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(92, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-02.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(93, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-03.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(94, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-04.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(95, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-05.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(96, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-06.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(97, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-07.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(98, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-08.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(99, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-09.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(100, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-10.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(101, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-11.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(102, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-12.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(103, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-13.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(104, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-14.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(105, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-15.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(106, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-16.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(107, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-17.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(108, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-18.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(109, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-19.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(110, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-20.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(111, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-21.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(112, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-22.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(113, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-23.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(114, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-24.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(115, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-25.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(116, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-26.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(117, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-27.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(118, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-28.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(119, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-29.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(120, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-30.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(121, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-october-31.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(122, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-01.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(123, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-02.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(124, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-03.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(125, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-04.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(126, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-05.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(127, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-06.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(128, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-07.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(129, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-08.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(130, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-09.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(131, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-10.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(132, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-11.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(133, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-12.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(134, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-13.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(135, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-14.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(136, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-15.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(137, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-16.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(138, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-17.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(139, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-18.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(140, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-19.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(141, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-20.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(142, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-21.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(143, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-22.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(144, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-23.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(145, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-24.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(146, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-25.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(147, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-26.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(148, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-27.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(149, "B") = price

website = "https://www.prokerala.com/astrology/tamil-panchangam/1997-november-28.html?loc=1880252"
Set request = CreateObject("MSXML2.XMLHTTP")
request.Open "GET", website, False
request.send
response = StrConv(request.responseBody, vbUnicode)
html.body.innerHTML = response
price = html.getElementsByClassName("t-sm").Item(8).innerText
Cells(150, "B") = price

End Sub

Someone very kind suggested the following VBA

Code: 
Sub Get_Web_Data()

Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim price As Variant
Dim FstDate As Date
Dim TheDate  As String
Dim r As Long

'String of initial date
FstDate = CDate("1997-july-03")  '<<<<< Edit forst date string if required or have entered via an input box?


    For r = 0 To 148   ' r+2 will fill rows 2 to 150
    
        TheDate = CStr(Format(FstDate + r, "yyyy-mmmm-dd"))
        
            website = "https://www.prokerala.com/astrology/tamil-panchangam/" & TheDate & ".html?loc=1880252"
            Set request = CreateObject("MSXML2.XMLHTTP")
            request.Open "GET", website, False
            request.send
            response = StrConv(request.responseBody, vbUnicode)
            html.body.innerHTML = response
            price = html.getElementsByClassName("t-sm").Item(8).innerText
            Cells(r + 2, "B") = price
    
    Next r
End Sub

However it showed error-refer to attachment (Error2)

Can the Error be solved?

If not, I wonder whether it can be done in another way according to the attachment (Query) where I manually key in the website addresses with different dates in Column "B" and get the data from the website in Column "C" using VBA. Talking about Cells "B18" to "B20" and "C18" to "C20".

I tried but could not create the correct VBA.

(Data from Cells "C2" to "C17" that can be seen in the attachment (Query), were created by my original VBA)

Thanking in advance.
 

Attachments

  • Error2.jpg
    Error2.jpg
    201.5 KB · Views: 9
  • Query.jpg
    Query.jpg
    219.3 KB · Views: 10

Excel Facts

Back into an answer in Excel
Use Data, What-If Analysis, Goal Seek to find the correct input cell value to reach a desired result
Sort by date Sort by votes
Duplicate to: a way to simply

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.
 
Upvote 0
Status
Not open for further replies.

Similar threads

G
  • Locked
  • Solved
a way to simply
2
Replies
12
Views
1K
Fluff
Fluff
netspeedz
  • Solved
Extracting Data From Kitco.com [Using VBA]
Replies
6
Views
1K
netspeedz
netspeedz
G
  • Question Question
GetElementsById shows Error
Replies
8
Views
2K
Anthony47
A
E
  • Question Question
"GET" HTML values from the 'current URL' aka "active" tab in internet explore
Replies
1
Views
4K
John_w
J
J
  • Solved
VBA: GetElementbyClassName
2 3
Replies
22
Views
2K
Anthony47
A

Forum statistics

Threads
1,223,903
Messages
6,175,289
Members
452,631
Latest member
a_potato

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top