Regular Member
|
我不知道18樓是用什麼方式取得資料的
如果是excel 的取得外部資料=>從web,這可以設定自動更新的時間
如果是excel vba ,就要使用 Application.OnTime Now 設定自動更新
用18樓的排列方式,用vba 來開網頁很簡單
只要資料更新後,執行這個副程式,就可以用firefox x86 同時打開100個網頁(走勢圖)
想要打開200個網頁(走勢圖+技術分析),把上逗號取消就可以了
不過要同時開這麼多網頁,不是普通的電腦能跑的
Sub OpenUrl()
Path = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
For i = 1 To 100
allurl = allurl & "-new-tab -url " & "https://tw.stock.yahoo.com/q/bc?s=" & Mid(Cells(i + 1, 2), 1, 4) & " "
'allurl2 = allurl2 & "-new-tab -url " & "https://tw.stock.yahoo.com/q/ta?s=" & Mid(Cells(i + 1, 2), 1, 4) & " "
Next i
Shell """" & Path & """" & allurl, vbHide
'Shell """" & Path & """" & allurl2, vbHide
End Sub
|