個人積分：1分
文章編號：90044625
個人積分：3127分
文章編號：90045311
個人積分：3127分
文章編號：90051380
個人積分：31分
文章編號：90058422
snare wrote:
範例網站臺灣證券交易...(恕刪)
板主好，此網站https://mis.twse.com.tw/stock/various-areas/etf-price/indicator-disclosure-etf已經改版，能否麻煩板主教導如何獲取這網址的資料?謝謝板主!
個人積分：3127分
文章編號：90061199
WJS_HVM wrote:
此網站https://mis.twse.com.tw/stock/various-areas/etf-price/indicator-disclosure-etf已經改版
資料分類、排序，請自行處理
[點擊下載]
個人積分：31分
文章編號：90064380
個人積分：24分
文章編號：90114188
以下網址 參考樓 1122, 1168
https://hgt.cirs-group.com/tools/gcis/search?keyword=9003-07-0&type=1
看是 ScriptControl, JSON
但跑出來的結果都是最表層的資料 並沒有導入9003-07-0
應該為以下 查到搜尋結果：共25條 並整理
各個資料來源：中國現有化學物質名錄(IECSC) flex-1 shrink-0 font-medium底下的資料
想請問snare大 我想查詢的網頁是用JSON方式解析嗎
請求s目前找到的 response 內容 都是搜索到 0 筆 請求snare大提供方向
Sub ScriptControlfunction_32bit_convert_to_excel_64bit()
Dim xmlhttp As Object, jsonData As Object, url As String, response As String, Stock As String
Dim DecodeJson As Object, i As Integer
Set xmlhttp = CreateObject("msxml2.xmlhttp")
Set jsonData = CreateObject("MSScriptControl.ScriptControl")
'jsonData.Language = "JScript"
Set jsonData = CreateObject("HtmlFile")
'json string to json object
jsonData.write "document.JsonParse=function (s) {return eval('(' + s + ')');}"
'getkeys (unknow name OK)
jsonData.write "document.getKeys=function (s) {var keys = new Array(); for (var i in s) { keys.push(i); } return keys; }"
'GetObjectProperty、getProperty (like callbyname)
jsonData.write "document.getProperty=function (s,propertyName) { return s[propertyName]; }"
Application.ScreenUpdating = False
Sheets("test").Cells.Clear
Stock = "9003-07-0" 'test
url = "https://hgt.cirs-group.com/tools/gcis/search?keyword=" & Stock & "&type=1"
With xmlhttp
.Open "POST", url, False
.setRequestHeader "Content-Type", "application/json; charset=utf-8"
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/127.0.0.0 Safari/537.36"
.setRequestHeader "Accept", "application/json"
.setRequestHeader "origin", "https://hgt.cirs-group.com"
.send
response = .responseText
End With
Sheets("test").Cells(1, 1) = response
Debug.Print "URL: " & url
Debug.Print "Response Status: " & xmlhttp.Status
Debug.Print "Response Headers: " & xmlhttp.getAllResponseHeaders
end sub
個人積分：3127分
文章編號：90114849
kunlingame wrote:
我想查詢的網頁是用JSON方式解析嗎
是
kunlingame wrote:
目前找到的 response 內容 都是搜索到 0 筆
少參數
[點擊下載]
個人積分：24分
文章編號：90115003
個人積分：0分
文章編號：90212146
關閉廣告