html - Web scraping using excel VBA -
i looking @ html code link below:
<h1 class="wer wer"> <a href="http://somelink.com" rel="bookmark" title="permanent link title of page covers random topic"> short title of page...</a> </h1>
i using below code pull out innertext ("short title of page...")
for each ele in .document.all select case ele.classname case "wer wer" rowcount = rowcount + 1 sht.range("a" & rowcount) = ele.innertext end select next ele
how can modify code pull out title ("permanent link title of page covers random topic") , href ("http://somelink.com")?
any appreciated. thanks.