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.


Popular posts from this blog

php - How should I create my API for mobile applications (Needs Authentication) -

5 Reasons to Blog Anonymously (and 5 Reasons Not To)

Google AdWords and AdSense - A Dynamic Small Business Marketing Duo