EXCEL無法自動更新股價的問題

這是我把網路高手分享的EXCEL拼湊起來,紀錄配股配息的EXCEL
原本按"一覽表"上方按鈕可一鍵自動更新股價,
可是元旦之後會出現錯誤訊息而只能更新第一檔股票,
懇請各位前輩幫我看看要如何更正好嗎?非常感謝
附加壓縮檔: 201901/mobile01-f28172b46bf180b513fa37c2fe30e089.zip
2019-01-08 15:45 發佈
Module1

= CDate(Mid(Left(GetTime, 16), 12))
更改為Time
= Time

'-----------------------------------------------------
ST1 = ""
ST2 = "
"
GetTime = 擷取文字碼(uTxtStr, ST1, ST2)
uRng(1, 12) = CDate(Mid(Left(GetTime, 16), 12)) <---
End Sub

Sub 開啟個股網頁()


'-----------------------------------------------------
ST1 = ""
ST2 = "
"
GetTime = 擷取文字碼(uTxtStr, ST1, ST2)
uRng(1, 12) = Time <---
End Sub

Sub 開啟個股網頁()
內文搜尋
X
評分
評分
複製連結
Mobile01提醒您
您目前瀏覽的是行動版網頁
是否切換到電腦版網頁呢?