- 帖子
- 12
- 主題
- 3
- 精華
- 0
- 積分
- 64
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taipei
- 註冊時間
- 2012-2-17
- 最後登錄
- 2017-9-19
|
2#
發表於 2017-9-12 23:00
| 只看該作者
回復 1# hipper68
從 jsp 裡面找到另一個網址, Code 如下:
Sub sbManualRefresh()
'Dim HttpReq As New MSXML2.XMLHTTP30
Dim myUrl As String
Dim HttpReq As Object
Dim rt As Integer
Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
'Set HttpReq = CreateObject("Microsoft.XMLHTTP")
myUrl = "http://mis.twse.com.tw/stock/api/getStatis.jsp?ex=tse&delay=0&_=" & Str(Int(Format(Now, "General Number") * 10000000))
'myUrl = "http://mis.twse.com.tw/stock/api/getStatis.jsp?ex=tse&delay=0&_=" & Str(1505227799001#)
MsgBox myUrl
HttpReq.Open "GET", myUrl, False
HttpReq.send
If HttpReq.readyState = 4 Then
Call fetchTesData(HttpReq.responseText)
G_NEXTTIME = Now() + TimeValue("00:00:00" & G_INTERVAL)
'MsgBox "complete"
End If
End Sub
要在原來的後面加上 " &_[時間標籤]"
加了之後, 使用 python 就可以抓到正確的值...
但是上面的 code 就抓不到....
請問各位大大...有解法嗎??
感謝!!! 感謝!!!
Python 的 code 大致如下 (使用requests 套件) :
STOCKINFO_URL = 'http://mis.twse.com.tw/stock/api/getStatis.jsp?ex=tse&delay=0&_={time}'
page = requests.get( STOCKINFO_URL.format(time=int(time.time()) * 1000))
open('tse_test_0912.csv','wb').write( page.content) |
-
-
VBA.png
(28.35 KB)
下載結果
|