如何提取网页上的所有链接名称和链接地址

www.36600.net

例如:将http://hao123.com/music.htm上的网址名称和网址链接提取出来?
谢谢

northwolves

1. 
   
2. 
   
3. Sub MACRO1()
   
4. With CreateObject("InternetExplorer.Application")
   
5. .Visible = True
   
6. .navigate "http://hao123.com/music.htm"
   
7. Do Until .Readystate = 4
   
8. DoEvents
   
9. Loop
   
10. Dim l
    
11. For Each l In .Document.Links
    
12. Debug.Print l.href; vbTab; l.innertext
    
13. Next
    
14. End With
    
15. MsgBox "Ok"
    
16. End Sub
    

复制代码

www.36600.net

太感谢狼版了

wensg2006

怎么用呀。

bipl607

我以为是一般的宏,真的如楼上说的,怎么用呢?

yanjie

我用这个循环提取过excelhome网站的所有链接地址：
For i = 0 To IE.Document.Links.Length - 1
      
        Cells(i + 1, 1).Value = IeDoc.Links(i).href
  Next i

kresty

请高人帮忙解释下要怎样用？谢谢。

赵莲

{:soso_e191:}{:soso_e178:}笔记

1808835746

学无止境，山外有山；高山仰止，信步登攀。