请教各位大神为什么会出错？

追梦人亮

请各位老师帮帮忙。下面代码运行时老出错，不知道什么原因？

1. Sub getTBdata()
   
2. 
   
3.     Dim StrHTML$, URL$, lStart&, lEnd&, dua$, Ign$, i, TarHTML$
   
4.      
   
5.     URL = "http://detail.tmall.com/item.htm?id=6944223048&ad_id=&am_id=&cm_id=140105335569ed55e27b&pm_id="        '网页地址，复制q=后面的uncode码来替换关键词。其他参数，看文章
   
6.    
   
7.     '====================请求模块====================
   
8.     With CreateObject("Msxml2.XMLHTTP") '调用了Msxml2.XMLHTTP
   
9.         .Open "GET", URL, False '获取网页信息的方法有GET和POST，这里要用GET
   
10.         .setRequestHeader "X-UA-Compatible", "IE=edge" '淘宝的请求http头，固定写法
    
11.         .send '发送请求
    
12.         StrHTML = .responseText '返回请求
    
13.     End With
    
14.     lStart = InStr(1, StrHTML, "月销量") + 4 '起始位置
    
15.     lEnd = Len(StrHTML) '源码总长度
    
16.     StrHTML = Mid(StrHTML, lStart, lEnd - lStart) '取出目标部分的源码
    
17. 
    
18.    
    
19.     For i = 2 To 3 '第一页有1-44个宝贝，从2开始循环
    
20.    
    
21.         Cells(i, 1) = i - 1 '在表的第1列，第i行写入排名
    
22.         
    
23.         lStart = InStr(1, StrHTML, "href=") + 6
    
24.         lEnd = InStr(17, StrHTML, "target=")
    
25.         TarHTML = Mid(StrHTML, lStart, lEnd - lStart - 2)
    
26.         Cells(i, 2) = TarHTML '取出宝贝链接，写入表的第2列，第i行
    
27.         
    
28.         lStart = InStr(1, StrHTML, "title=") + 7
    
29.         lEnd = InStr(17, StrHTML, ">")
    
30.         TarHTML = Mid(StrHTML, lStart, lEnd - lStart - 1)
    
31.         Cells(i, 3) = TarHTML '取出宝贝标题，写入表的第3列，第i行
    
32.         
    
33.         lStart = InStr(1, StrHTML, "col price") + 12
    
34.         
    
35.         lEnd = InStr(1, StrHTML, "<em></em></div>")
    
36.         TarHTML = Mid(StrHTML, lStart, lEnd - lStart)
    
37.         Cells(i, 4) = TarHTML '取出宝贝价格，写入表的第4列，第i行
    
38.         
    
39.         lStart = InStr(1, StrHTML, "col dealing") + 26
    
40.         lEnd = InStr(1, StrHTML, "人付款")
    
41.         TarHTML = Mid(StrHTML, lStart, lEnd - lStart)
    
42.         Cells(i, 5) = TarHTML '取出宝贝付款人数，写入表的第5列，第i行
    
43.         
    
44.         lStart = lEnd + 4
    
45.         lEnd = InStr(1, StrHTML, "人收货")
    
46.         TarHTML = Mid(StrHTML, lStart, lEnd - lStart)
    
47.         Cells(i, 6) = TarHTML '取出宝贝收货人数，写入表的第6列，第i行
    
48.         
    
49.         lStart = InStr(1, StrHTML, "feature-dsr-num") + 17
    
50.         TarHTML = Mid(StrHTML, lStart, 4)
    
51.         Cells(i, 7) = TarHTML '取出如实描述分，写入表的第7列，第i行
    
52.         
    
53.         '=================删掉已取出信息宝贝的信息源码================
    
54.         lEnd = Len(StrHTML)
    
55.         StrHTML = Mid(StrHTML, lStart, lEnd - lStart)
    
56.         lStart = InStr(1, StrHTML, "<h3 class") + 4
    
57.         lEnd = Len(StrHTML)
    
58.         StrHTML = Mid(StrHTML, lStart, lEnd - lStart)
    
59.         '=============================================================
    
60.     Next i '下一个宝贝
    
61. End Sub
    

复制代码

wayy

就是取网页里面的内容吧？网址发一个看看来

追梦人亮

wayy 发表于 2014-5-19 14:48
就是取网页里面的内容吧？网址发一个看看来

http://detail.tmall.com/item.htm?id=6944223048&ad_id=&am_id=&cm_id=140105335569ed55e27b&pm_id=