求助网抓展位号

cocojyg

求助网抓展位号
以下是一个个手工查找, 还有200多项, 请帮忙~
  

http://www.ddgjw.com/peitao/wei.asp?c_id=262

  

展位号：A151

  

http://www.ddgjw.com/peitao/wei.asp?c_id=261

  

展位号：A129

  

http://www.ddgjw.com/peitao/wei.asp?c_id=260

  

展位号：E125

  

http://www.ddgjw.com/peitao/wei.asp?c_id=259

  

展位号：D126

  

http://www.ddgjw.com/peitao/wei.asp?c_id=258

  

展位号：A171

  

http://www.ddgjw.com/peitao/wei.asp?c_id=257

  

展位号：D130

  

http://www.ddgjw.com/peitao/wei.asp?c_id=256

  

展位号：A111

  

http://www.ddgjw.com/peitao/wei.asp?c_id=255

  

展位号：B133

  

http://www.ddgjw.com/peitao/wei.asp?c_id=254

  

展位号：E128

  

http://www.ddgjw.com/peitao/wei.asp?c_id=253

  

展位号：A179

  

http://www.ddgjw.com/peitao/wei.asp?c_id=252

  

展位号：E108

  

http://www.ddgjw.com/peitao/wei.asp?c_id=251

  

展位号：B166

  

http://www.ddgjw.com/peitao/wei.asp?c_id=250

  

展位号：B151

qcw911

这个不难吧，直接去的就可以了吧 q57726980

qcw911

你这个自己人工取也用不了多久吧

屌爆了z

1. Sub test()
   
2. With CreateObject("msxml2.xmlhttp")
   
3.         For m = 1 To [a65536].End(3).Row
   
4.             .Open "GET", Cells(m, 1), False
   
5.             .send
   
6.             s = StrConv(.responsebody, vbUnicode)
   
7.             s = Split(Split(s, "strong>")(1), "<")(0)
   
8.             Cells(m, 4) = s
   
9.             Next
   
10.         End With
    
11. End Sub

复制代码