返回列表 上一主題 發帖

證交所當日沖銷資料

chwqk
　暱稱: 吳世

中學生Rank: 2

帖子
29 
主題
15 
精華
0 
積分
50 
點名
0  
作業系統
WINDOW XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-5-4 
最後登錄
2021-11-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-3-9 11:05 | 只看該作者

證交所當日沖銷資料

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

請問有解決方式嗎?
收藏 分享

chwqk
　暱稱: 吳世

中學生Rank: 2

帖子
29 
主題
15 
精華
0 
積分
50 
點名
0  
作業系統
WINDOW XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-5-4 
最後登錄
2021-11-24 
3#
發表於 2014-3-10 19:43 | 只看該作者
joey0415
謝謝啦!!

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 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

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題