返回列表 上一主題 發帖

[發問] 上市股票融資融券餘額CSV下載問題

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2014-8-12 16:12 | 顯示全部帖子
本帖最後由 GBKEE 於 2014-8-12 17:25 編輯

回復 1# pupai

20140811 指定的日期

http://www.twse.com.tw/ch/tradin ... A11220140811_1.php?
value=''>全部 (大盤統計資訊) 是錯誤的 需改為  value='_1'>全部

http://www.twse.com.tw/ch/tradin ... A11220140811MS.php?
value='MS'>信用交易統計

http://www.twse.com.tw/ch/tradin ... 2201408110099P.php?
value='0099P'>ETF

http://www.twse.com.tw/ch/tradin ... A1122014081101.php?
value='01'>水泥工業

value='02'>食品工業
value='22'>生技醫療業
......

網頁原始文件,分類項目 的 value
  1. <option   value='MS'>信用交易統計</option><option  selected  value=''>全部</option><option   value='0049'>封閉式基金</option><option   value='0099P'>ETF</option><option   value='019919T'>受益證券</option><option   value='0999'>認購權證</option><option   value='0999P'>認售權證</option><option   value='01'>水泥工業</option><option   value='02'>食品工業</option><option   value='03'>塑膠工業</option><option   value='04'>紡織纖維</option><option   value='05'>電機機械</option><option   value='06'>電器電纜</option><option   value='07'>化學生技醫療</option><option   value='21'>化學工業</option><option   value='22'>生技醫療業</option><option   value='08'>玻璃陶瓷</option><option   value='09'>造紙工業</option><option   value='10'>鋼鐵工業</option><option   value='11'>橡膠工業</option><option   value='12'>汽車工業</option><option   value='13'>電子工業</option><option   value='24'>半導體業</option><option   value='25'>電腦及週邊設備業</option><option   value='26'>光電業</option><option   value='27'>通信網路業</option><option   value='28'>電子零組件業</option><option   value='29'>電子通路業</option><option   value='30'>資訊服務業</option><option   value='31'>其他電子業</option><option   value='14'>建材營造</option><option   value='15'>航運業</option><option   value='16'>觀光事業</option><option   value='17'>金融保險</option><option   value='18'>貿易百貨</option><option   value='23'>油電燃氣業</option><option   value='9299'>存託憑證</option><option   value='19'>綜合</option><option   value='20'>其他</option><option   value='CB'>可轉換公司債</option>         
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2014-8-12 17:45 | 顯示全部帖子
回復 3# pupai
試試看 用web查詢
  1. Option Explicit
  2. Sub Ex()
  3.     With ActiveSheet
  4.         If .QueryTables.Count = 0 Then
  5.             With .QueryTables.Add("URL;about:Tabs", .[A1])
  6.             .Refresh BackgroundQuery:=False
  7.             End With
  8.         End If
  9.         With .QueryTables(1)
  10.             '全部下載久一點
  11.             .Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201408/A11220140811_1.php"
  12.         
  13.             '.Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201408/A11220140811MS.php?"
  14.         
  15.             .WebSelectionType = xlSpecifiedTables
  16.             .WebFormatting = xlWebFormattingNone
  17.             .WebTables = "10"
  18.             '這全部的要用   .WebTables = "10"
  19.             '其他項目的要用 .WebTables = "8"
  20.             .WebPreFormattedTextToColumns = True
  21.             .WebConsecutiveDelimitersAsOne = True
  22.             .WebSingleBlockTextImport = False
  23.             .WebDisableDateRecognition = False
  24.             .WebDisableRedirections = False
  25.             .Refresh BackgroundQuery:=False
  26.         End With
  27.     End With
  28. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2014-8-13 09:54 | 顯示全部帖子
回復 5# pupai

http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201307/A1122013071501.php?
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2014-8-13 13:02 | 顯示全部帖子
回復 7# pupai
試試看
  1. Option Explicit
  2. Sub EX()
  3.   Dim A As Date
  4.   Dim Rep_Ym As String
  5.   Dim Rep_Day As String
  6.     Range("A1") = "2011/12/20"   '示範的日期
  7.     A = Range("A1").Value
  8.     Rep_Ym = Format(A, "yyyyMM")
  9.     Rep_Day = Format(A, "yyyyMMDD")
  10.      With ActiveSheet
  11.         If .QueryTables.Count = 0 Then
  12.             With .QueryTables.Add("URL;about:Tabs", .[B1])
  13.             .Refresh BackgroundQuery:=False
  14.             End With
  15.         End If
  16.         With .QueryTables(1)
  17.             '全部下載久一點
  18.             .Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report" & Rep_Ym & "/A112" & Rep_Day & "_1.php"
  19.             .WebSelectionType = xlSpecifiedTables
  20.             .WebFormatting = xlWebFormattingNone
  21.             .WebTables = "10"
  22.             '這全部的要用   .WebTables = "10"
  23.             '其他項目的要用 .WebTables = "8"
  24.             .WebPreFormattedTextToColumns = True
  25.             .WebConsecutiveDelimitersAsOne = True
  26.             .WebSingleBlockTextImport = False
  27.             .WebDisableDateRecognition = False
  28.             .WebDisableRedirections = False
  29.             .Refresh BackgroundQuery:=False
  30.         End With
  31.     End With
  32. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題