12345678
返回列表 上一主題 發帖

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

peter460191

帖子
163 
主題
27 
精華
0 
積分
193 
點名
0  
作業系統
winsows 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
註冊時間
2010-12-20 
最後登錄
2025-8-18 
8# 跳轉到 »
發表於 2011-7-11 22:01 | 只看該作者
本帖最後由 peter460191 於 2011-7-13 16:44 編輯

回復 5# GBKEE


致:GBKEE版主

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

TOP

peter460191

帖子
163 
主題
27 
精華
0 
積分
193 
點名
0  
作業系統
winsows 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
註冊時間
2010-12-20 
最後登錄
2025-8-18 
7#
發表於 2011-7-11 21:51 | 只看該作者
本帖最後由 peter460191 於 2011-10-20 10:02 編輯

回復 4# liu5201


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

TOP

liu5201

帖子
21 
主題
1 
精華
0 
積分
61 
點名
0  
作業系統
xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-11-22 
最後登錄
2024-12-1 
6#
發表於 2011-7-6 10:32 | 只看該作者
回復 5# GBKEE


  感謝GBKEE之提醒與方案
:handshake

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-7-4 09:08 | 只看該作者
本帖最後由 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

liu5201

帖子
21 
主題
1 
精華
0 
積分
61 
點名
0  
作業系統
xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-11-22 
最後登錄
2024-12-1 
4#
發表於 2011-7-3 10:30 | 只看該作者
補範例檔 20110701台股個股收盤-1.rar (441.81 KB)

TOP

liu5201

帖子
21 
主題
1 
精華
0 
積分
61 
點名
0  
作業系統
xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taichung 
註冊時間
2010-11-22 
最後登錄
2024-12-1 
3#
發表於 2011-7-3 10:24 | 只看該作者
盤後收盤資料
資料→匯入外部資料→新增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

vvcvc

帖子
144 
主題
33 
精華
0 
積分
178 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-26 
最後登錄
2023-6-23 
2#
發表於 2011-6-30 23:45 | 只看該作者
本帖最後由 vvcvc 於 2011-6-30 23:46 編輯

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

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
12345678
返回列表 上一主題