nijawang wrote:
請問這種先要選幾個選項，才會出現資料的網頁該如何抓資料？
類似1313樓範例的寫法
排版、代碼，請自行練習修改
[點擊下載]
個人積分：2993分
文章編號：90985160
謝謝snare大！
個人積分：11分
文章編號：90993905
個人積分：2993分
文章編號：90994558
個人積分：0分
文章編號：91022292
我目前在用證交所網站練習抓JSON格式的資料，
但是發現Request URL的最後一串數字似乎會隨著查詢時間的不同而變化，
而我爬文後似乎沒找到類似的問題解答，因此想詢問這串數字該使用何種語法取得？
或是可以參考哪一樓的寫法？
謝謝
網址如下：
https://www.twse.com.tw/zh/trading/historical/mi-index.html
敬祝Snare大大新年快樂，萬事如意！
個人積分：2993分
文章編號：91025769
howard383873 wrote:
可以參考哪一樓的寫法？
很多樓，最近的是1491樓
詳細說明請 google unix 時間
Sub test()
MsgBox DateToUnixTime("2025/01/27")
MsgBox DateToUnixTime1(Now())
MsgBox UNIXTime()
End Sub
Function DateToUnixTime(dstring As String) As Long
DateToUnixTime = (DateValue(dstring) - #1/1/1970 8:00:00 AM#) * 86400
End Function
Function DateToUnixTime1(dstring As Date) As Long
DateToUnixTime1 = (dstring - #1/1/1970 8:00:00 AM#) * 86400
End Function
Function UNIXTime()
UNIXTime = Round(((Date - #1/1/1970#) * 86400 + Timer) * 1000, 0)
End Function
Snare大大您好，在前幾樓確實有看到類似的寫法，只是試了幾次一直沒有成功。現在單獨拆開來看後，就了解這段程式碼的意思了，再次謝謝您撥冗回覆問題，祝您新年快樂！
個人積分：0分
文章編號：91095629
snare wrote:
突然發現goodinfo...(恕刪)
Snare大師 新年好：
我想去抓(1) Goodinfo!台灣股市資訊網 2025股利發放年度股利政策一覽 和 (2) Goodinfo!台灣股市資訊網 2024 發放年度除權息日程，其網址分別是
(1) https://goodinfo.tw/tw/StockDividendPolicyList.asp?MARKET_CAT=全部&INDUSTRY_CAT=全部&YEAR=2025
(2) https://goodinfo.tw/tw/StockDividendScheduleList.asp?MARKET_CAT=全部&INDUSTRY_CAT=全部&YEAR=2024
XLS下載網址分別是
(1) blob:https://goodinfo.tw/582fb3d7-7673-4056-aabb-491d349055fb
(2) blob:https://goodinfo.tw/76b8d543-3367-4e8c-b63e-836fd0ab467c，這都是帶html標籤的連續字串
爬文看到 613樓有抓GoodInfo的股利政策，但是對我而言，實在太高段了。嘗試執行getpost71(new2)卻發生如下問題：
1. 代碼載入系統Sub get_Q_Y() 的Debug.Print Get_Q.Length 即發生沒有設定物件變數或With區塊變數的錯誤。將Debug.Print註解掉，ReDim Q(Get_Q.Length - 1) 也發生沒有設定物件變數或 With 區塊變數的錯誤
2. 點按下載報表時Sub getpost(url As String, url_a As String, n As String)的 If n = "acc" Then .SetText HTMLsourcecode.getelementbyid("divFinDetail").innerhtml 發生沒有設定物件變數或With區塊變數的錯誤
3. 點按下載漲跌資料(日K或月K)時 If n = "股價漲跌資料表" Then .SetText HTMLsourcecode.getelementbyid("divPriceDetail").innerhtml 發生沒有設定物件變數或With區塊變數的錯誤
4. 點選股利政策時Clipboard.SetText HTMLsourcecode.all.tags("table")(10).innerhtml發生沒有設定物件變數或With區塊變數的錯誤。
請問大師我應該怎麼處理我的股利政策和除權息日程的問題？謝謝！
個人積分：2993分
文章編號：91102065
Morten Hsu wrote:
這都是帶html標籤的連續字串
Morten Hsu wrote:
爬文看到 613樓有抓GoodInfo的股利政策，但是對我而言，實在太高段了。嘗試執行getpost71(new2)卻發生如
goodinfo 不久前改用 javascript ，vba xmlhttp 不支援，那些舊範例沒用了
方法同1493樓(您1492樓的發問)
Sub all_table()
Dim chrome As New Selenium.ChromeDriver, UrL As String, table, R As Integer, C As Integer, i As Integer, TempArray
Sheets("工作表1").Cells.Clear
R = 1: C = 1
UrL = "https://goodinfo.tw/tw/StockDividendPolicyList.asp?MARKET_CAT=全部&INDUSTRY_CAT=全部&YEAR=2025"
chrome.Get UrL
chrome.Wait 6000
Set table = chrome.FindElementsByTag("table")
For i = 1 To table.Count
R = R + 1
TempArray = table(i).AsTable.Data
Sheets("工作表1").Cells(R, C).Value = "****** Table " & i & "******"
If (UBound(TempArray) * UBound(TempArray, 2)) > 0 Then
Sheets("工作表1").Cells(R + 1, C).Resize(UBound(TempArray), UBound(TempArray, 2)).Value = TempArray
End If
R = R + UBound(TempArray) + 1
DoEvents
Next i
chrome.Quit
Set chrome = Nothing
End Sub
Sub one_table()
Dim chrome As New Selenium.ChromeDriver, UrL As String, stock As String, table, TempArray
Sheets("工作表1").Cells.Clear
UrL = "https://goodinfo.tw/tw/StockDividendPolicyList.asp?MARKET_CAT=全部&INDUSTRY_CAT=全部&YEAR=2025"
chrome.Get UrL
chrome.Wait 6000
Set table = chrome.FindElementsByTag("table")
TempArray = table(9).AsTable.Data 'table(n)
Sheets("工作表1").Cells(1, 1).Resize(UBound(TempArray), UBound(TempArray, 2)).Value = TempArray
chrome.Quit
Set chrome = Nothing
End Sub
非常感謝Snare大師，我得好好研究一番。
個人積分：0分
文章編號：91150877
個人積分：0分
文章編號：91293064
個人積分：2993分
文章編號：91297674
關閉廣告