搜尋
Close this search box.

教你如何使用Excel自動更新股票價格資料

學習如何使用Excel自動更新您的股票數據。在這個精簡教學中,我們將逐步演示如何設定及應用各種工具,使您的投資組合實時反映最新市況。讓管理您的股票變得更簡單、更高效。

讓資訊整合更靈活

記錄、協作、成長 — Notion帶來比Excel更靈活的工作方式!
免費使用

200+模板自動化工作流程

從數據到成果,只需一步 — 用Monday代替Excel,效率倍增!
免費使用

AI智能團隊協作

AI驅動的ClickUp超越Excel,讓工作更精準快速!
免費使用

簡介

利用Excel自動更新股票數據可以讓投資者方便地追蹤市場動態,提高交易決策的效率。本文將教你如何在Excel中設置並自動更新股票數據。

準備工作

在開始之前,你需要以下幾樣工具與資料:

  • 安裝並設置好的Microsoft Excel
  • 一個可以提供股票數據的API服務(例如Alpha Vantage、Yahoo Finance等)
  • 少量編碼知識,以便進行基本的VBA編程

設置股票API

註冊API服務

首先,你需要註冊一個提供股票數據的API服務。我們以Alpha Vantage為例:

  1. 訪問Alpha Vantage的官方網站並註冊一個免費帳戶。
  2. 取得你的個人API金鑰(API Key)。

測試API請求

使用Postman或直接在瀏覽器中輸入URL來測試API請求,例如:

https://www.alphavantage.co/query?function=TIME_SERIES_DAILY&symbol=MSFT&apikey=你的API金鑰

確認你能夠成功獲取所需的股票數據。

在Excel中建立股票數據表格

建立表格結構

在Excel中,新建一個工作表並命名為”股票數據”。設置以下各欄位:

  1. 股票代碼
  2. 開盤價
  3. 收盤價
  4. 最高價
  5. 最低價
  6. 交易量

輸入Excel函數

在你希望自動更新數據的位置輸入以下公式,此處以獲取A1單元格的數據為例:

=WEBSERVICE("https://www.alphavantage.co/query?function=TIME_SERIES_DAILY&symbol="&A1&"&apikey=你的API金鑰")

使用VBA自動更新數據

開啟VBA編輯器

按下 Alt + F11 打開Excel的VBA編輯器。

撰寫VBA代碼

在VBA編輯器中,插入一個新模組並輸入以下代碼:

Sub 更新股票數據()
    Dim stockSymbol As String
    Dim apiUrl As String
    Dim jsonData As String
    Dim jsonObject As Object
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("股票數據")
    
    stockSymbol = ws.Range("A1").Value
    apiUrl = "https://www.alphavantage.co/query?function=TIME_SERIES_DAILY&symbol=" & stockSymbol & "&apikey=你的API金鑰"
    
    ' 取得JSON數據
    jsonData = GetWebData(apiUrl)
    
    ' 解析JSON數據
    Set jsonObject = JsonConverter.ParseJson(jsonData)("Time Series (Daily)")
    
    ' 將數據填入表格 (此處僅示範填入每日收盤價)
    ws.Range("B2").Value = jsonObject("2023-01-01")("4. close")
End Sub

Function GetWebData(url As String) As String
    Dim xmlhttp As Object
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    
    xmlhttp.Open "GET", url, False
    xmlhttp.Send
    
    GetWebData = xmlhttp.responseText
End Function

備註:你需要下載並引入一個JSON解析庫到VBA中,如VBA-JSON,以使解析JSON數據部分能夠正常運行。

運行VBA腳本

保存並關閉VBA編輯器。返回Excel中,在「開發工具」選單中,點擊「宏」並選擇剛剛創建的更新股票數據,然後點擊「執行」。這將會自動更新表格中的股票數據。

設置自動化

使用計時器自動更新數據

如果希望定時自動更新股票數據,可以在VBA中設置計時器:

Public RunWhen As Double
Public Const cRunWhat = "更新股票數據"

Sub 開始計時器()
    RunWhen = Now + TimeValue("00:30:00") ' 每30分鐘更新一次
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        LatestTime:=RunWhen + TimeValue("00:01:00"), _
        Schedule:=True
End Sub

Sub 停止計時器()
    On Error Resume Next
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        LatestTime:=RunWhen + TimeValue("00:01:00"), _
        Schedule:=False
End Sub

你可以調整TimeValue來更改自動更新的頻率。

結語

通過設置Excel自動更新股票數據,你可以節省大量時間並迅速掌握市場動態。希望這篇教學能夠幫助到你,讓你在投資之路上更加順利。

發佈留言

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *