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是什麼
或者有什麼可以讓我參考的資料
請指導
謝謝!!
收藏 分享

pupai

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

論壇贊助勳章
14#
發表於 2015-8-27 08:54 | 只看該作者
回復  pupai
試試看
GBKEE 發表於 2014-8-13 13:02



    請問版大
上述程式8/11前還可以使用
8/12後就不能用了
幫忙修正
謝謝

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
13#
發表於 2015-8-14 21:08 | 只看該作者
回復 12# hipper68

你試試看，應該可行！
  1. Sub ex()

  3.     With CreateObject("internetexplorer.application")
  4.         .Visible = True
  5.         .Navigate "http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/MI_MARGN.php"
  6.         Do Until .ReadyState = 4
  7.             DoEvents
  8.         Loop
  9.         
  10.         .Document.getElementById("date-field").Value = "104/08/12" '填入
  11.          
  12.         '---------，內建的fireevent 的onchange失效，改用調用js的方法--------
  13.         Set evt = .Document.createEvent("HTMLEvents")
  14.         evt.initEvent "change", True, False
  15.         Set lst = .Document.all("selectType") 'option的name是selectType，但getElementsByName無法處理，要all才行
  16.         lst.selectedIndex = 0
  17.         lst.dispatchEvent evt
  18.    
  19.         .Document.all("query-button").Click


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

  24.         Application.Wait Now + TimeValue("00:00:5")
  25. '        Stop
  26.         
  27. '        For Z = 0 To 10
  28. '        MsgBox .Document.getElementsByTagName("table")(Z).innerText
  29. '        Next
  30.             Stop
  31.         Set hTable = .Document.getElementsByTagName("table")(3) '第4個table
  32. '        tt = hTable.Rows.Length
  33. '        qq = hTable.Rows(2).Cells.Length

  35.             With ActiveSheet
  36.                 For i = 1 To hTable.Rows.Length - 1 '前3個是標題與空白跳過
  37.                     For j = 0 To hTable.Rows(i).Cells.Length - 1
  38.                         .Cells(i, j + 1) = hTable.Rows(i).Cells(j).innerText
  39.                     Next
  40.                 Next
  41.             End With

  43.         .Quit
  44. '        MsgBox "OK"
  45.     End With
  46.    
  47. End Sub
複製代碼

TOP

hipper68

帖子
12 
主題
3 
精華
0 
積分
64 
點名
0  
作業系統
Windows 7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2012-2-17 
最後登錄
2017-9-19 
12#
發表於 2015-8-13 23:22 | 只看該作者
回復 2# GBKEE


請教版大 和各位大大..
這兩天發現原來抓融資融卷餘額 url 不能用了...

原來的:  (以 2015/8/12為例)
http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201508/A11220150812MS.php?select2=MS&chk_date=104/08/12
可以取得 "信用交易統計"這類的資料
但這兩天這個url 會找不到 A11220150812MS.php

但是如果將 "MS" 改成 "01" (融資融券彙總(水泥工業)), 也就是
http://www.twse.com.tw/ch/trading/exchange/MI_MARGN/genpage/Report201508/A1122015081201.php?select2=MS&chk_date=104/08/12
則可以正確取得水泥類股的資料.

請問各位大大，該用哪種 url 取得 "信用交易統計" 這類的資料..
Thanks..

TOP

pupai

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

論壇贊助勳章
11#
發表於 2014-8-14 08:03 | 只看該作者
回復 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

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

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 

論壇贊助勳章
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兔年全勤獎章
6#
發表於 2014-8-13 09:54 | 只看該作者
回復 5# pupai

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

TOP

        靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。
12
返回列表 上一主題