瀏覽單個文章
h12200
Regular Member
 

加入日期: Feb 2003
文章: 57
我不知道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
上傳的圖像
文件類型: jpg Image 8.jpg (276.7 KB, 70次瀏覽)
舊 2017-09-17, 09:46 PM #36
回應時引用此文章
h12200離線中