网页的数据导入

blanksoul12

Sub test() '主體代碼
    Dim strText As String
    Header = Array("日期", "代碼", "名稱", "相關", "變動人", "變動股數", "成交均價", "變動金額(萬)", "變動原因", "變動比例(%)", "變動後持股數", "持股種類", "董監高人員姓名", "職務", "變動人與董監高的關係")
    Cells.Clear
    [a1].Resize(1, 15) = Header
    Columns("B:B").NumberFormatLocal = "@"
   
        With CreateObject("MSXML2.XMLHTTP")
            .Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=GG&sty=GGMX&ps=40000", False
            .send
            arr = Split(Split(Split(.responseText, "([")(1), "])")(0), """")
            For i = 1 To UBound(arr) Step 2
                brr = Split(arr(i), ",")
                Range("a65536").End(xlUp).Offset(1, 9) = brr(0)
                Range("a65536").End(xlUp).Offset(1, 12) = brr(1)
                Range("a65536").End(xlUp).Offset(1, 1) = WorksheetFunction.Text(brr(2), "000000")
                Range("a65536").End(xlUp).Offset(1, 4) = brr(3)
                Range("a65536").End(xlUp).Offset(1, 11) = brr(4)
                Range("a65536").End(xlUp).Offset(1, 5) = Format(brr(6), "#,##0.00")
                Range("a65536").End(xlUp).Offset(1, 10) = Format(brr(7), "#,##0.00")
                Range("a65536").End(xlUp).Offset(1, 6) = brr(8)
                Range("a65536").End(xlUp).Offset(1, 2) = brr(9)
                Range("a65536").End(xlUp).Offset(1, 14) = brr(10)
                Range("a65536").End(xlUp).Offset(1, 8) = brr(12)
                Range("a65536").End(xlUp).Offset(1, 7) = Format(brr(13), "#,##0.00")
                Range("a65536").End(xlUp).Offset(1, 13) = brr(14)
                Range("a65536").End(xlUp).Offset(1, 0) = brr(5)
            Next
        End With
End Sub

這個你要多謝 wcymiss, 而且我自己也要多實習,這個網站並不複雜的,你自己可以的,只是 ps=40000 我也不知怎來的,希望大家多學習

blanksoul12

請問這個怎用"jscript"分開得回來的文件呢?

onlycxb

liucqa 发表于 2014-10-30 21:15
不要赤裸裸的索取嘛，这是个学习论坛，不是乞讨论坛

同感同感。因为很容易得到，所就没必要学习了。

blanksoul12

我應該基礎不好,試來試去也不能用你們聰明的方法分解得回來的數據,唯有用笨笨的方法吧

wcymiss

blanksoul12 发表于 2014-11-1 08:40
我應該基礎不好,試來試去也不能用你們聰明的方法分解得回來的數據,唯有用笨笨的方法吧

你的方法并不笨，只是因为循环的操作单元格使得效率低下。改用vba数组吧。效率提高百倍不止。

另外发现这个网站自己对数据的split也没处理好。有些文本内容中的逗号都作为分隔符处理了。