用了2個方法都不行:
1. IQY 下載表格, 全部都是 "-"
2. 用 VBA code 如下:
===========================
Sub sbManualRefresh()
'Dim HttpReq As New MSXML2.XMLHTTP30
Dim HttpReq As Object
Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
HttpReq.Open "GET", "http://mis.twse.com.tw/stock/group.jsp?ind=TIDX&ex=tse&type=fixed", False
HttpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
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
=====================================
HttpReq.responseText 裡面,應該是數字的位置一樣都是 "-"
(如附圖).
If HttpReq.readyState = 4 Then
Call fetchTesData(HttpReq.responseText)
G_NEXTTIME = Now() + TimeValue("00:00:00" & G_INTERVAL)
'MsgBox "complete"
End If
End Sub