12
返回列表 上一主題 發帖

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

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2024-11-1 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-8-12 12:05 | 只看該作者

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

您好
我想用VBA下載網站的每天"融資融券彙總(大盤統計資訊)"
http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201408/A11220140811_1.php?select2=&chk_date=103/08/11

請問他的URL是什麼
或者有什麼可以讓我參考的資料
請指導
謝謝!!
收藏 分享

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 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

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2024-11-1 

論壇贊助勳章
3#
發表於 2014-8-12 17:20 | 只看該作者
回復 2# GBKEE


    版主您好
我寫的東西有點行不通
請幫我看看修改
謝謝
  1. Sub 上櫃()
  2.       
  3.     Theurl = "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201408/A11220140811_1.php"
  4.     With Workbooks.Open(Theurl)
  5.         AR = .Sheets(1).UsedRange
  6.         .Close False
  7.     End With
  8.     With ActiveSheet
  9.         Range("B:U").Select
  10.         Selection.ClearContents
  11.         '.UsedRange.Clear 全部清除
  12.         .Range("B2").Resize(UBound(AR, 1), UBound(AR, 2)) = AR
  13.    
  14.     End With
  15. End Sub
複製代碼

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-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

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2024-11-1 

論壇贊助勳章
5#
發表於 2014-8-13 09:42 | 只看該作者
回復 4# GBKEE


    感恩版主的回覆

如果我要可以指定日期的查詢功能
請問我要如何呈現
謝謝!!

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2014-8-13 09:54 | 只看該作者
回復 5# pupai

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

TOP

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2024-11-1 

論壇贊助勳章
7#
發表於 2014-8-13 12:20 | 只看該作者
回復 6# GBKEE


    版主
我只能寫這樣，但程式有錯
請幫我指導一下
謝謝!!
  1. Sub EX()
  2.      
  3.   Dim A As Date
  4.   Dim Sdate As Variant
  5.   
  6.   
  7.     A = Range("A1").Value
  8.     Sdate = Format(A, "E/MM/DD")
  9.      
  10.      
  11.      With ActiveSheet
  12.         If .QueryTables.Count = 0 Then
  13.             With .QueryTables.Add("URL;about:Tabs", .[B1])
  14.             .Refresh BackgroundQuery:=False
  15.             End With
  16.         End If
  17.         With .QueryTables(1)
  18.             '全部下載久一點
  19.             .Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report=" & Sdate / A112 = " & Sdate_1.php"
  20.         
  21.            
  22.         
  23.             .WebSelectionType = xlSpecifiedTables
  24.             .WebFormatting = xlWebFormattingNone
  25.             .WebTables = "10"
  26.             '這全部的要用   .WebTables = "10"
  27.             '其他項目的要用 .WebTables = "8"
  28.             .WebPreFormattedTextToColumns = True
  29.             .WebConsecutiveDelimitersAsOne = True
  30.             .WebSingleBlockTextImport = False
  31.             .WebDisableDateRecognition = False
  32.             .WebDisableRedirections = False
  33.             .Refresh BackgroundQuery:=False
  34.         End With
  35.     End With
  36. End Sub
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 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

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2024-11-1 

論壇贊助勳章
9#
發表於 2014-8-13 13:25 | 只看該作者
回復 8# GBKEE


    版主感恩
謝謝

TOP

pupai

帖子
184 
主題
45 
精華
0 
積分
407 
點名
0  
作業系統
WIN 7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-8-19 
最後登錄
2024-11-1 

論壇贊助勳章
10#
發表於 2014-8-13 17:26 | 只看該作者
回復 8# GBKEE


      請問版主
這個程式為什麼不可以用巨集啟動
就像 Application.Run "工作表1.EX" 這一種方法
會出現執行階段錯誤"1004":
Run方法('Application'物件)失敗
但是如果單獨用F8程式又OK

TOP

        靜思自在 : 多做多得。少做多失。
12
返回列表 上一主題