標題: 大大 請問這種網站該怎麼寫vba抓下來 [打印本頁]

---

作者: vavashop    時間: 2015-12-22 13:31     標題: 大大 請問這種網站該怎麼寫vba抓下來

http://www.sitca.org.tw/ROC/Industry/IN2629.aspx?pid=IN22601_04

大大我想想抓這網站的資料
但是 怎麼就是繞不進去
請問有大大 知道怎做嗎?

---

作者: vavashop    時間: 2015-12-22 19:25

大大下面程式碼 可以用
但是如果要指定為當天日期該怎麼改...請協助一下小弟

如果要下載 現股當沖得這網站該改哪裡呢?
http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php#




Sub 我ex()

    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        
        .Document.getElementById("date-field").Value = "104/12/21" '填入
         
        '---------，內建的fireevent 的onchange失效，改用調用js的方法--------
        Set evt = .Document.createEvent("HTMLEvents")
        evt.initEvent "change", True, False
        Set lst = .Document.all("selectType") 'option的name??selectType，但getElementsByName無法處理，要all才行
        lst.selectedIndex = 1
        lst.dispatchEvent evt
   
        .Document.all("query-button").Click


         Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop

        Application.Wait Now + TimeValue("00:00:5")
       ' Stop
        
        'For Z = 0 To 10
        'MsgBox .Document.getElementsByTagName("table")(Z).innerText
        'Next
         '   Stop
        Set hTable = .Document.getElementsByTagName("table")(4) '第4個table
        tt = hTable.Rows.Length
        qq = hTable.Rows(2).Cells.Length

            With ActiveSheet
                For i = 3 To hTable.Rows.Length - 1 '前3個??標題與空白跳過
                    For j = 0 To hTable.Rows(i).Cells.Length - 1
                        .Cells(i - 2, j + 1) = hTable.Rows(i).Cells(j).innerText
                    Next
                Next
            End With

        .Quit
'        MsgBox "OK"
    End With

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)