[已解决]请问能获取一个网站上的数据吗，如附件

lidaoying6

请问能获取一个网站上的数据吗，如附件

最佳答案

月排行榜 / 总排行榜

冥王

2015-6-7 17:31

今天刚看完吴姐的网抓教程，当练手了

1. Sub demo()
   
2.     Dim strText As String, s$, arr(1 To 3, 1 To 2)
   
3.     With CreateObject("MSXML2.XMLHTTP")
   
4.         .Open "GET", "http://www.shmet.com/MetalArea/8.html", False
   
5.         .send
   
6.         strText = .responsetext
   
7.         s = Split(strText, "<TR style=""mso-yfti-irow: 0; mso-yfti-firstrow: yes"">")(1)
   
8.         arr(1, 1) = Split(Split(s, "<STRONG>")(1), "<")(0)
   
9.         arr(1, 2) = arr(1, 1)
   
10.         arr(2, 1) = Split(Split(Split(s, """FONT-SIZE: 16pt"">")(1), "<")(0), "-")(0)
    
11.         arr(2, 2) = Split(Split(Split(s, """FONT-SIZE: 16pt"">")(1), "<")(0), "-")(1)
    
12.         arr(3, 1) = Split(Split(Split(s, """FONT-SIZE: 16pt"">")(2), "<")(0), "-")(0)
    
13.         arr(3, 2) = Split(Split(Split(s, """FONT-SIZE: 16pt"">")(2), "<")(0), "-")(1)
    
14.     End With
    
15.     Range("B3").Resize(3, 2) = arr
    
16. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. 
   
2. Sub BJCX()
   
3.     Dim IeStr as string, tmp() as string, re(1 To 3, 1 To 2)
   
4.     With CreateObject("Msxml2.XMLHTTP.3.0") '获取网页源代码
   
5.         .Open "GET", "http://www.shmet.com/MetalArea/8.html", False
   
6.         .send
   
7.         IeStr = .responsetext
   
8.     End With
   
9.     tmp = Split(IeStr, ">")
   
10.     re(1, 1) = Split(tmp(205), "<")(0): re(1, 2) = re(1, 1)
    
11.     re(2, 1) = Split(tmp(224), "-")(0)
    
12.     re(2, 2) = Split(Split(tmp(224), "-")(1), "<")(0)
    
13.     re(3, 1) = Split(tmp(244), "-")(0)
    
14.     re(3, 2) = Split(Split(tmp(244), "-")(1), "<")(0)
    
15.     Range("B3:C5") = re
    
16. End Sub

复制代码

冥王

今天刚看完吴姐的网抓教程，当练手了

1. Sub demo()
   
2.     Dim strText As String, s$, arr(1 To 3, 1 To 2)
   
3.     With CreateObject("MSXML2.XMLHTTP")
   
4.         .Open "GET", "http://www.shmet.com/MetalArea/8.html", False
   
5.         .send
   
6.         strText = .responsetext
   
7.         s = Split(strText, "<TR style=""mso-yfti-irow: 0; mso-yfti-firstrow: yes"">")(1)
   
8.         arr(1, 1) = Split(Split(s, "<STRONG>")(1), "<")(0)
   
9.         arr(1, 2) = arr(1, 1)
   
10.         arr(2, 1) = Split(Split(Split(s, """FONT-SIZE: 16pt"">")(1), "<")(0), "-")(0)
    
11.         arr(2, 2) = Split(Split(Split(s, """FONT-SIZE: 16pt"">")(1), "<")(0), "-")(1)
    
12.         arr(3, 1) = Split(Split(Split(s, """FONT-SIZE: 16pt"">")(2), "<")(0), "-")(0)
    
13.         arr(3, 2) = Split(Split(Split(s, """FONT-SIZE: 16pt"">")(2), "<")(0), "-")(1)
    
14.     End With
    
15.     Range("B3").Resize(3, 2) = arr
    
16. End Sub

复制代码

lidaoying6

xdragon 发表于 2015-6-7 16:53

好厉害啊，解决了，谢谢你

lidaoying6

冥王 发表于 2015-6-7 17:31
今天刚看完吴姐的网抓教程，当练手了

好厉害啊，解决了，谢谢你