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

wuxianyu86

顶个：：：

sanculans

wcymiss 发表于 2014-10-21 11:15
目录：

一、前期准备：

请问女神，网站Flas里的数据能导到EXCEL吗

onlycxb

要学会抓包，能够抓到数据是前提，有了数据就等于成功了一半。

coby001

sanculans 发表于 2015-8-13 21:15
请问女神，网站Flas里的数据能导到EXCEL吗

不能~
。。。。。

俊锋伍贰零

已经解决了，找到老师的json了

----------------------------------------------研究学习了好久，很收益，O(∩_∩)O谢谢
我有个问题，请教下：
http://vip.stock.finance.sina.co ... .XSRV2.CallbackList['QSLuEtJX9EgW3Py_']/StruFund_Service.get_premium_info?page=1&num=40&sort=&asc=1
都是带{}的数组
就是这个页面如何弄到excel表格中呢，谢谢。

俊锋伍贰零

Sub 中金所选取自定义数据()
    Dim arrEM(1 To 16), arrEMname
    Dim arrData(1000, 1 To 16)
    Dim i As Long, j As Long
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "http://www.cffex.com.cn/fzjy/mrhq/201508/11/index.xml", False
        .Send
        arrEMname = Array(, "instrumentid", "tradingday", "openprice", "highestprice", "lowestprice", "closeprice", "openinterest", "presettlementprice", "settlementpriceIF", "settlementprice", "volume", "turnover", "expiredate", "productid", "delta", "segma")
        With .responseXML
            For i = 1 To 16
                Set arrEM(i) = .getElementsByTagName(arrEMname(i))
            Next
            For i = 0 To arrEM(1).Length - 1
                For j = 1 To 16
                    arrData(i, j) = arrEM(j)(i).Text
                Next
            Next
        End With
    End With
    Cells.Clear
    Range("a1:p1").Value = Array("合约名称", "交易日期", "开", "高", "低", "收", "总持仓量", "", "", "今结算", "成交量", "成交金额", "交割日", "", "", "")
    Range("a2").Resize(i, 16).Value = arrData
End Sub

能不能实现按单品种的所有交易日的数据形成一个表
O(∩_∩)O谢谢


还有一问：成交额如何显示亿元，/100000000加到哪里呢？……

great_xu

写得不错，学习了！谢谢！

excel366214

太强大了。

liangstar82

excel366214 发表于 2015-8-31 13:02
太强大了。

吴姐教程太棒了，好好学习一下。

老夏

只是做個檔案連結很簡單的工作
複製貼上這個大家都會
***********************************************************************************
用個超連結+框架頁
萬事解決
***********************************************************************************

Private Sub CommandButton1_Click()
WebBrowser1.Navigate "http://www.youtube.com/embed/bV7nFXhL8QY?feature=player_detailpage"
End Sub

Private Sub CommandButton2_Click()
WebBrowser1.Navigate "C:\"
End Sub