返回列表 上一主題 發帖

[發問] 請問有什麼方法可以在excel上自動更新目前所有上市櫃股票收盤價

[發問] 請問有什麼方法可以在excel上自動更新目前所有上市櫃股票收盤價

請問有什麼方法可以在excel上自動更新目前所有上市櫃股票收盤價。
peter460191

本帖最後由 vvcvc 於 2011-6-30 23:46 編輯

資料→匯入外部資料→新增Web查詢
但只能一支一支慢慢加
試過投資組合會失敗

TOP

盤後收盤資料
資料→匯入外部資料→新增Web查詢
→在新增web查詢[視窗]輸入網頁http://www.sinotrade.com.tw/today_stock_price.htm
盤中自動更新以vvcvc方式即可  在新增web查詢[視窗]輸入網頁在新增web查詢[視窗]輸入網頁例台積電2330:     http://tw.stock.yahoo.com/q/q?s=2330
小弟自製範例檔:包含1.當日收盤行情
                                        2.個股日本益比、殖利率及股價淨值比
                                        3.當日盤後交易明細
                                        4.當日外資/投信/自營商買賣超個股明細

TOP

補範例檔 20110701台股個股收盤-1.rar (441.81 KB)

TOP

本帖最後由 GBKEE 於 2011-7-4 13:28 編輯

回復 4# liu5201
如在附檔所有排行欄位中指定篩選的條件後造以後的[ 金融股].[電子股].[全部選示],無法顯示
附檔的VBA 須修改如下
  1. Sub 金融股() '
  2. ' Macro3 Macro
  3. ' liujerkun 在 2011/1/20 錄製的巨集'
  4.    
  5.    If ActiveSheet.FilterMode Then Selection.AutoFilter  '取消自動篩選
  6.     Selection.AutoFilter Field:=1, Criteria1:=">2800", Operator:=xlAnd, _
  7.         Criteria2:="<2900"
  8.     Range("J2").Select
  9. End Sub
  10. Sub 電子股() '
  11. ' Macro3 Macro
  12. ' liujerkun 在 2011/1/20 錄製的巨集
  13. '
  14.     If ActiveSheet.FilterMode Then Selection.AutoFilter  '取消自動篩選
  15.     Selection.AutoFilter Field:=1, Criteria1:=">2300", Operator:=xlAnd, _
  16.         Criteria2:="<2500", VisibleDropDown:=False
  17.     Range("J1").Select
  18. End Sub
  19. Sub 顯示全部() '
  20. ' Macro6 Macro
  21. ' liujerkun 在 2011/1/20 錄製的巨集
  22.     If ActiveSheet.FilterMode Then Selection.AutoFilter  '取消自動篩選
  23.     Selection.AutoFilter Field:=1
  24.     Range("N1").Select
  25. End Sub
複製代碼

TOP

回復 5# GBKEE


  感謝GBKEE之提醒與方案
:handshake

TOP

本帖最後由 peter460191 於 2011-10-20 10:02 編輯

回復 4# liu5201


    liu5201抱歉我還沒有權限下載您的附檔,方便mail給我嗎?
非常謝謝您!
peter460191

TOP

本帖最後由 peter460191 於 2011-7-13 16:44 編輯

回復 5# GBKEE


致:GBKEE版主

請教您有自動更新全部上市櫃公司股價的的VBA語法嗎?
之前曾經用過交易所的外部連結,但自從交易所改版之後就無法更新資料了,
請問您有方法可以連結交易所網站的股價資訊嗎?
peter460191

TOP

回復 10# peter460191
請問您有方法可以連結交易所網站的股價資訊嗎?
A:請你找到連結交易所股價資訊的網站,附上所需求的範例檔案討論.
這裡是一般區 , VBA語法在 程式區有專門的討論

TOP

回復 11# GBKEE


  
謝謝版主,附件檔案已編輯過,但無效,請版主幫幫忙!


連結網址: http://mis.twse.com.tw/stock_category.html
在『A6儲存格』已有匯入外部資料,但無法顯示資料,以前可以但改版之後就不行用了

外部連結.rar (1.89 KB)

peter460191

TOP

        靜思自在 : 虛空有盡.我願無窮,發願容易行願難。
返回列表 上一主題