html商城价格抓取求助

savills1128

如题，附件中是批发的价格，想把商城的零售价格也做成莴附件中的那样，求帮助，http://www.cy365.com/shop/category-20.html

ione_fox

1. Sub Getcy365_20()
   
2.     Dim StrRes$, Url$, I&, K&
   
3.     I = 1
   
4.     K = 2
   
5.     Do
   
6.         Url = "http://www.cy365.com/shop/category-20-sortID-desc-image-" & I & "-0.html "
   
7.         With CreateObject("MSXML2.XMLHTTP")
   
8.             .Open "GET", Url, False
   
9.             .setRequestHeader "If-Modified-Since", "0"
   
10.             .Send
    
11.             Do While .ReadyState <> 4
    
12.                 DoEvents
    
13.             Loop
    
14.             StrRes = .ResponseText
    
15.         End With
    
16.         
    
17.         Dim LN, TLN, T
    
18.         'Set odom = CreateObject("HTMLFILE")
    
19.         Dim oDom As New HTMLDocument
    
20.         oDom.body.innerHTML = StrRes
    
21.         Set TLN = oDom.getElementsByClassName("text")
    
22.         For Each T In TLN
    
23.             K = K + 1
    
24.            Cells(K, 1) = Trim(Split(T.innerText, vbCrLf)(0))
    
25.            Cells(K, 2) = Trim(Split(T.innerText, vbCrLf)(1))
    
26.            Cells(K, 3) = Trim(Split(T.innerText, vbCrLf)(2))
    
27.         Next
    
28.         Stop
    
29.         I = I + 1
    
30.        Debug.Print oDom.getElementsByClassName("box")(0).innerText
    
31.     Loop While oDom.getElementsByClassName("box")(0).innerText = "下一页"
    
32. End Sub

复制代码

ione_fox

需要前期绑定

张道贤

这个要提取网页代码，以前用过网页小说提取，后来忘记放什么地方了

savills1128

ione_fox 发表于 2018-12-13 19:46
需要前期绑定

运行错误，具体不知道你说的前期绑定是什么意思，能否写到我的附件里，谢谢老师

ione_fox

savills1128 发表于 2018-12-14 15:05
运行错误，具体不知道你说的前期绑定是什么意思，能否写到我的附件里，谢谢老师

IE8浏览器以上，前期绑定请看我第一张截图

duquancai

最后 返回的是 xml数据  post请求。下面是第一页返回的数据

1. <?xml version="1.0" encoding="utf-8" ?><xjx><cmd cmd="as" id="text_101412" prop="innerHTML"><![CDATA[S<div class="title">
   
2.         <a title="进口牛展" target="_blank" href="http://www.cy365.com/shop/goods-16165101393.html">
   
3.                 进口牛展
   
4.         </a>
   
5.         </div>
   
6. 订购数：25695 KG<br />
   
7. 
   
8.         销售价：<span class="price">79.00 </span>元/KG]]></cmd><cmd cmd="as" id="bargain_101412" prop="innerHTML">S63.80</cmd><cmd cmd="as" id="bargain_101412" prop="style.display">Sblock</cmd><cmd cmd="as" id="text_101413" prop="innerHTML"><![CDATA[S<div class="title">
   
9.         <a title="翅根" target="_blank" href="http://www.cy365.com/shop/goods-20164101394.html">
   
10.                 翅根
    
11.         </a>
    
12.         </div>
    
13. 订购数：2300 KG<br />
    
14. 
    
15.         销售价：<span class="price">25.00 </span>元/KG]]></cmd><cmd cmd="as" id="bargain_101413" prop="innerHTML">S21.80</cmd><cmd cmd="as" id="bargain_101413" prop="style.display">Sblock</cmd><cmd cmd="as" id="text_101414" prop="innerHTML"><![CDATA[S<div class="title">
    
16.         <a title="翅中" target="_blank" href="http://www.cy365.com/shop/goods-20164101395.html">
    
17.                 翅中
    
18.         </a>
    
19.         </div>
    
20. 订购数：1153 KG<br />
    
21. 
    
22.         销售价：<span class="price">47.00 </span>元/KG]]></cmd><cmd cmd="as" id="bargain_101414" prop="innerHTML">S41.80</cmd><cmd cmd="as" id="bargain_101414" prop="style.display">Sblock</cmd><cmd cmd="as" id="text_101421" prop="innerHTML"><![CDATA[S<div class="title">
    
23.         <a title="鸭肫" target="_blank" href="http://www.cy365.com/shop/goods-20164101402.html">
    
24.                 鸭肫
    
25.         </a>
    
26.         </div>
    
27. 订购数：1294 KG<br />
    
28. 
    
29.         销售价：<span class="price">40.60 </span>元/KG]]></cmd><cmd cmd="as" id="text_101422" prop="innerHTML"><![CDATA[S<div class="title">
    
30.         <a title="鸭边腿" target="_blank" href="http://www.cy365.com/shop/goods-20164101403.html">
    
31.                 鸭边腿
    
32.         </a>
    
33.         </div>
    
34. 订购数：922 KG<br />
    
35. 
    
36.         销售价：<span class="price">17.20 </span>元/KG]]></cmd><cmd cmd="as" id="text_101425" prop="innerHTML"><![CDATA[S<div class="title">
    
37.         <a title="2-4两昌鱼" target="_blank" href="http://www.cy365.com/shop/goods-20163101406.html">
    
38.                 2-4两昌鱼
    
39.         </a>
    
40.         </div>
    
41. 订购数：90 KG<br />
    
42. 
    
43.         销售价：<span class="price">68.50 </span>元/KG]]></cmd><cmd cmd="as" id="bargain_101425" prop="innerHTML">S50.00</cmd><cmd cmd="as" id="bargain_101425" prop="style.display">Sblock</cmd><cmd cmd="as" id="text_104261" prop="innerHTML"><![CDATA[S<div class="title">
    
44.         <a title="博达雪雪白内酯豆腐350g" target="_blank" href="http://www.cy365.com/shop/goods-20183104257.html">
    
45.                 博达雪雪白内酯豆腐350g
    
46.         </a>
    
47.         </div>
    
48. 订购数：356 盒<br />
    
49. 
    
50.         销售价：<span class="price">1.30 </span>元/盒]]></cmd><cmd cmd="as" id="text_104262" prop="innerHTML"><![CDATA[S<div class="title">
    
51.         <a title="博达水晶拉皮" target="_blank" href="http://www.cy365.com/shop/goods-20183104258.html">
    
52.                 博达水晶拉皮
    
53.         </a>
    
54.         </div>
    
55. 订购数：17 袋<br />
    
56. 
    
57.         销售价：<span class="price">2.50 </span>元/袋]]></cmd><cmd cmd="as" id="text_104551" prop="innerHTML"><![CDATA[S<div class="title">
    
58.         <a title="去皮羊后腿" target="_blank" href="http://www.cy365.com/shop/goods-20170104548.html">
    
59.                 去皮羊后腿
    
60.         </a>
    
61.         </div>
    
62. 订购数：1338 KG<br />
    
63. 
    
64.         销售价：<span class="price">63.00 </span>元/KG]]></cmd><cmd cmd="as" id="bargain_104551" prop="innerHTML">S58.00</cmd><cmd cmd="as" id="bargain_104551" prop="style.display">Sblock</cmd><cmd cmd="as" id="text_106694" prop="innerHTML"><![CDATA[S<div class="title">
    
65.         <a title="大鲳鱼（300g-400g)" target="_blank" href="http://www.cy365.com/shop/goods-20163106691.html">
    
66.                 大鲳鱼（300g-400g)
    
67.         </a>
    
68.         </div>
    
69. 订购数：95 KG<br />
    
70. 
    
71.         销售价：<span class="price">160.00 </span>元/KG]]></cmd><cmd cmd="as" id="text_111831" prop="innerHTML"><![CDATA[S<div class="title">
    
72.         <a title="博达雪雪白豆腐400g" target="_blank" href="http://www.cy365.com/shop/goods-20183111827.html">
    
73.                 博达雪雪白豆腐400g
    
74.         </a>
    
75.         </div>
    
76. 订购数：1724 盒<br />
    
77. 
    
78.         销售价：<span class="price">1.70 </span>元/盒]]></cmd><cmd cmd="as" id="text_111967" prop="innerHTML"><![CDATA[S<div class="title">
    
79.         <a title="牛腩" target="_blank" href="http://www.cy365.com/shop/goods-20168111966.html">
    
80.                 牛腩
    
81.         </a>
    
82.         </div>
    
83. 订购数：3234 KG<br />
    
84. 
    
85.         销售价：<span class="price">51.80 </span>元/KG]]></cmd><cmd cmd="as" id="bargain_111967" prop="innerHTML">S43.80</cmd><cmd cmd="as" id="bargain_111967" prop="style.display">Sblock</cmd><cmd cmd="as" id="text_112040" prop="innerHTML"><![CDATA[S<div class="title">
    
86.         <a title="博达百叶" target="_blank" href="http://www.cy365.com/shop/goods-20183112038.html">
    
87.                 博达百叶
    
88.         </a>
    
89.         </div>
    
90. 订购数：1712 KG<br />
    
91. 
    
92.         销售价：<span class="price">14.50 </span>元/KG]]></cmd><cmd cmd="as" id="text_112064" prop="innerHTML"><![CDATA[S<div class="title">
    
93.         <a title="有皮羊排" target="_blank" href="http://www.cy365.com/shop/goods-20170112061.html">
    
94.                 有皮羊排
    
95.         </a>
    
96.         </div>
    
97. 订购数：292 KG<br />
    
98. 
    
99.         销售价：<span class="price">62.00 </span>元/KG]]></cmd><cmd cmd="as" id="bargain_112064" prop="innerHTML">S59.80</cmd><cmd cmd="as" id="bargain_112064" prop="style.display">Sblock</cmd><cmd cmd="as" id="text_112577" prop="innerHTML"><![CDATA[S<div class="title">
    
100.         <a title="博达素鸡" target="_blank" href="http://www.cy365.com/shop/goods-20183112576.html">
     
101.                 博达素鸡
     
102.         </a>
     
103.         </div>
     
104. 订购数：501 KG<br />
     
105. 
     
106.         销售价：<span class="price">14.00 </span>元/KG]]></cmd><cmd cmd="as" id="text_112583" prop="innerHTML"><![CDATA[S<div class="title">
     
107.         <a title="博达盐卤五香干" target="_blank" href="http://www.cy365.com/shop/goods-20171112582.html">
     
108.                 博达盐卤五香干
     
109.         </a>
     
110.         </div>
     
111. 订购数：629 KG<br />
     
112. 
     
113.         销售价：<span class="price">15.00 </span>元/KG]]></cmd><cmd cmd="as" id="text_112697" prop="innerHTML"><![CDATA[S<div class="title">
     
114.         <a title="馥润牛脖骨" target="_blank" href="http://www.cy365.com/shop/goods-20168112696.html">
     
115.                 馥润牛脖骨
     
116.         </a>
     
117.         </div>
     
118. 订购数：534 KG<br />
     
119. 
     
120.         销售价：<span class="price">31.80 </span>元/KG]]></cmd><cmd cmd="as" id="text_112709" prop="innerHTML"><![CDATA[S<div class="title">
     
121.         <a title="冷冻调味海鲈鱼（约400g/袋）" target="_blank" href="http://www.cy365.com/shop/goods-20163112698.html">
     
122.                 冷冻调味海鲈鱼（约400g/袋）
     
123.         </a>
     
124.         </div>
     
125. 订购数：45 条<br />
     
126. 
     
127.         销售价：<span class="price">21.90 </span>元/条]]></cmd><cmd cmd="as" id="text_112710" prop="innerHTML"><![CDATA[S<div class="title">
     
128.         <a title="冷冻调味黄鱼（袋）" target="_blank" href="http://www.cy365.com/shop/goods-20163112699.html">
     
129.                 冷冻调味黄鱼（袋）
     
130.         </a>
     
131.         </div>
     
132. 订购数：371 袋<br />
     
133. 
     
134.         销售价：<span class="price">18.90 </span>元/袋]]></cmd><cmd cmd="as" id="text_113693" prop="innerHTML"><![CDATA[S<div class="title">
     
135.         <a title="南极三去冰鱼" target="_blank" href="http://www.cy365.com/shop/goods-20163113691.html">
     
136.                 南极三去冰鱼
     
137.         </a>
     
138.         </div>
     
139. 订购数：18 公斤<br />

复制代码

Kaohsing

共67个数据

Kaohsing

savills1128

Kaohsing 发表于 2018-12-15 14:31

一脸懵逼啊，搞不来了