不懂html也来学网抓（xmlhttp/winhttp+fiddler）

suwenkai

第二个问题，是不是ChildNodes下的innertext

blanksoul12

set tb = html.all.tags("div") 是IE法中常用的,HTML中很多 <div>,<tr>,<td>......之類的,這句的意思是把HTML中的所有有<DIV>的集合起來給TB這個值的,之後通常又會在當中再找其他東西,一層一層的找,會有點像數組那個的,不同的是一般只找集合的其中一個再往入面找下去,所以會有另一句Cells(n, j + 1) = tb(i).ChildNodes(j).innertext, 這句便是找到tb(i)中的childnodws(j)有有用的innettext,但  Cells(n, j + 1) = tb(i).ChildNodes(j).innertext 成句的意思應該是由 i 範圍內的 tb 中的 j 範圍內的 childnodes.innertext 也會抽出來放在 cells 中.
這樣說可能複雜點,但你找一個帖用IE法來解決的,把程序自己用 F8 來每行試一試,在區域變數中看便會找到這中間的意思了

blanksoul12

半個題外話
由於本人是用繁體OFFICE的,所以在程序窗口中,所有的簡體字也變成亂碼了,請問有什麼辦法嗎?

浮华、缠绕指尖

renahu 发表于 2014-10-25 21:38
这个精加工的难道是从复制的毛坯上一点点拆出来的吗？这样做图什么呢？直接复制过来不就行了

1.     URL = "http://webflight.linkosky.com/WEB/Flight/WaitingSearch.aspx?"
   
2.     URL = URL & "JT=" & IIf(Me.optOneway, 1, 2) '单程or往返
   
3.     URL = URL & "&OC=" & d(Me.cmbDepart.Text)   '出发地
   
4.     URL = URL & "&DC=" & d(Me.cmbArrive.Text)   '目的地
   
5.     URL = URL & "&dstDesp=GUANGZHOU%B9%E3%D6%DD"
   
6.     URL = URL & "&dst2=CAN"
   
7.     URL = URL & "&DD=" & Format(Me.DTPStarDate.Value, "YYYY-MM-DD")    '查询日期
   
8.     URL = URL & "&DT=" & Replace(Me.cmbStartTime.Text, "点", "")    '时间点
   
9.     URL = URL & "&BD="
   
10.     URL = URL & "&BT=7"
    
11.     URL = URL & "&AL=" & d(Me.cmbCompany.Text)  '公司
    
12.     URL = URL & "&DR=" & IIf(Me.optDirect.Value, "true", "false")   '是否直达
    
13.     URL = URL & "&image.x=29"
    
14.     URL = URL & "&image.y=7"

复制代码

不是为了好看，因为你直接复制的时候固定了一个网页，你看上面那我段代码，就包括所有的变量，出发地、目的地、日期等，这是做动态查询的时候必备的，应该养成这样一个习惯

1. Dim html As New HTMLDocument

复制代码

这是你htmlfile的前期绑定，引用的是Microsoft HTML Object Library

renahu

suwenkai 发表于 2014-10-25 22:57
第一个问题，看图片，是DIV吧。

这个是从哪里截出来的画面？

renahu

浮华、缠绕指尖 发表于 2014-10-25 23:41
不是为了好看，因为你直接复制的时候固定了一个网页，你看上面那我段代码，就包括所有的变量，出发地、目 ...

谢谢，前期绑定成功了，都可以智能提示了。关于网址拆开的问题，既然不是为了好看，那就是为了使网址结构看起来清晰吧？其实，还是抓包后先从request窗口中把url拷贝过来，再一段一段拆开的，我原来还以为这一段一段的是从别的什么地方拷贝过来的。您说对吗？

wcymiss

处理xml数据
8楼的例子返回的就是一个xml文档。

在excel里，有一个很快捷的方式导入xml文档：

1. Sub Main()
   
2.     ThisWorkbook.XmlImport _
   
3.         URL:="http://www.cffex.com.cn/fzjy/tjsj/pztj/pzrtj/2014/index.xml", _
   
4.         ImportMap:=Nothing, _
   
5.         Overwrite:=True, _
   
6.         Destination:=ActiveSheet.Range("a1")
   
7. End Sub

复制代码

如果需要自定义提取的内容，你或者可以这样写：

1. Sub Main()
   
2.     Dim arrEM(1 To 4), arrEMname
   
3.     Dim arrData(1000, 1 To 4)
   
4.     Dim i As Long, j As Long
   
5.     With CreateObject("MSXML2.XMLHTTP")
   
6.         .Open "GET", "http://www.cffex.com.cn/fzjy/tjsj/pztj/pzrtj/2014/index.xml", False
   
7.         .send
   
8.         arrEMname = Array(, "productid", "tradingday", "volume", "openinterest")
   
9.         With .responseXML
   
10.             For i = 1 To 4
    
11.                 Set arrEM(i) = .getElementsByTagName(arrEMname(i))
    
12.             Next
    
13.             For i = 0 To arrEM(1).Length - 1
    
14.                 For j = 1 To 4
    
15.                     arrData(i, j) = arrEM(j)(i).Text
    
16.                 Next
    
17.             Next
    
18.         End With
    
19.     End With
    
20.     Cells.Clear
    
21.     Range("a1:d1").Value = Array("品种", "日期", "总成交量", "总持仓量")
    
22.     Range("a2").Resize(i, 4).Value = arrData
    
23. End Sub

复制代码

xml的dom提取数据的方法有很多。
具体可以参考http://www.w3school.com.cn/xmldom/index.asp

小贴士：
1、当URL是一个格式化的xml文档时，xmlhttp可将服务器返回的数据整理为一个DomDocument对象放在responseXML中。
你也可以CreateObject("MSXML2.DomDocument")然后用load(url)或者loadxml(text)方法获得DomDocument对象。
2、点击Fiddler的Response框的XML按钮，可以很清晰的看到XML数据结构。

wqfzqgk

这方法不错

VBA万岁

wcymiss 发表于 2014-10-26 09:42
处理xml数据
8楼的例子返回的就是一个xml文档。

又学到了一招。

战战如疯

wcymiss 发表于 2014-10-26 09:42
处理xml数据
8楼的例子返回的就是一个xml文档。

从来没搞过xml文档，又学到了一招