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: 6
  • Query.jpg
    Query.jpg
    219.3 KB · Views: 7

Excel Facts

Which Excel functions can ignore hidden rows?
The SUBTOTAL and AGGREGATE functions ignore hidden rows. AGGREGATE can also exclude error cells and more.
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
407
netspeedz
netspeedz
G
  • Question
GetElementsById shows Error
Replies
8
Views
1K
Anthony47
A
C
  • Solved
VBA to scrape web table - Error 91
Replies
2
Views
98
Chrican
C
X
  • Question
how to get data form html frame but not first div
Replies
1
Views
33
xyz987
X

Forum statistics

Threads
1,214,614
Messages
6,120,530
Members
448,969
Latest member
mirek8991

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