帖子: 163
主題: 27
精華: 0
積分: 193
點名: 0
作業系統: winsows 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
註冊時間: 2010-12-20
最後登錄: 2025-8-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-6-30 11:41 | 只看該作者

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

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

樓主熱帖

peter460191

vvcvc

中學生 Rank: 2

帖子: 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

liu5201

中學生 Rank: 2

帖子: 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

liu5201

中學生 Rank: 2

帖子: 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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 須修改如下

Sub 金融股() '
' Macro3 Macro
' liujerkun 在 2011/1/20 錄製的巨集'
If ActiveSheet.FilterMode Then Selection.AutoFilter '取消自動篩選
Selection.AutoFilter Field:=1, Criteria1:=">2800", Operator:=xlAnd, _
Criteria2:="<2900"
Range("J2").Select
End Sub
Sub 電子股() '
' Macro3 Macro
' liujerkun 在 2011/1/20 錄製的巨集
'
If ActiveSheet.FilterMode Then Selection.AutoFilter '取消自動篩選
Selection.AutoFilter Field:=1, Criteria1:=">2300", Operator:=xlAnd, _
Criteria2:="<2500", VisibleDropDown:=False
Range("J1").Select
End Sub
Sub 顯示全部() '
' Macro6 Macro
' liujerkun 在 2011/1/20 錄製的巨集
If ActiveSheet.FilterMode Then Selection.AutoFilter '取消自動篩選
Selection.AutoFilter Field:=1
Range("N1").Select
End Sub

複製代碼

TOP

liu5201

中學生 Rank: 2

帖子: 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

peter460191

中學生 Rank: 2

帖子: 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

peter460191

中學生 Rank: 2

帖子: 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

GBKEE