a way to simply

Status
Not open for further replies.
G

gurunathblessings

New Member
Joined
Sep 15, 2016
Messages
22
This program works as it is but too long. Tried to simplify but did not work. Thanks.


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
 

Excel Facts

Round to nearest half hour?
Use =MROUND(A2,"0:30") to round to nearest half hour. Use =CEILING(A2,"0:30") to round to next half hour.
Sort by date Sort by votes
@gurunathblessings
Maybe try this. I have not been able to test it.

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

Hope that helps.
 
Upvote 0
Snakehips said:
@gurunathblessings
Maybe try this. I have not been able to test it.

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

Hope that helps.
Click to expand...
Hi, Thanks.

Tried but it shows error.
 

Attachments

  • Error.jpg
    Error.jpg
    161.6 KB · Views: 15
Upvote 0
Snakehips said:
@gurunathblessings
Maybe try this. I have not been able to test it.

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

Hope that helps.
Click to expand...


Sorry please ignore the earlier error.

It was my mistake for not activating Microsoft HTML Object Library.

Even after activating the above, I still get the following error.

Thanks.
 

Attachments

  • Error2.jpg
    Error2.jpg
    201.5 KB · Views: 14
Upvote 0
I'm sorry but I have no idea why that might be failing.
Your many blocks of code are all very similar, as i see it, varying only by the date element in the website string and the Row of the final Cells() line.

I believe that my looping is providing the equivalent date strings / website string and Row for the Cell.
Otherwise the main code element is exactly as per your original.

It would appear to be failing at the line that is....
VBA Code: 
 price = html.getElementsByClassName("t-sm").Item(8).innerText
That is a line is exactly as in your many blocks of original code, which you say works ok?
I have no experience of 'web scraping' or whatever this represents.
Apologies if my code is not helpful.
 
Upvote 0
I really appreciate your help despite the error.

The details you see in Column see are the results using my original "very Long" VBA.

I was wondering whether it can be done by another method I have highlighted in the picture. Meaning, I key the website addresses manually in "B" Column and get the data in Column "C".

I posted it on the forum also.

If I get any response, it will be good.

Thanks and Regards.
 

Attachments

  • Query.jpg
    Query.jpg
    219.3 KB · Views: 12
Upvote 0
Status
Not open for further replies.

Similar threads

G
  • Locked
  • Question Question
Optimized version shows error
Replies
1
Views
505
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
3K
John_w
J
J
  • Solved
VBA: GetElementbyClassName
2 3
Replies
22
Views
2K
Anthony47
A

Forum statistics

Threads
1,223,228
Messages
6,170,871
Members
452,363
Latest member
merico17

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