標題: 證交所當日沖銷資料 [打印本頁]

---

作者: chwqk    時間: 2014-3-9 11:05     標題: 證交所當日沖銷資料

證交所2014/01/06開始現股當日沖銷資料如下
http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php
但起始頁故定 無法單純用EXCEL匯入外部資料
必須選擇日後後 按"查詢"才會顯示
但即使顯示了 還是無法匯入EXCEL

請問有解決方式嗎?

---

作者: joey0415    時間: 2014-3-9 13:09

回復 1# chwqk

日期自己改

TLBLE自己改
    Sub Macro1()

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.twse.com.tw/ch/trading/exchange/TWTB4U/TWTB4U.php?input_date=103%2F03%2F04&select2=&login_btn=+%ACd%B8%DF+" _
        , Destination:=Range("A1"))
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
       .WebTables = "9,11"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

---

作者: chwqk    時間: 2014-3-10 19:43

joey0415
謝謝啦!!

---

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