利用VBA建立基金或股票的實時凈值和日線圖和買賣記錄表並一鍵生成word文章
本人使用的是office 2016,其他可以參考該步驟進行即可
【完整項目工程:https://download.csdn.net/download/baobingji/85177201】
步驟1:新建一個excel,然后開啟VBA開發工具,具體操作如下:
點擊文件=》選項
選擇自定義功能區=》勾選開發工具
之后即可在菜單欄看到開發工具那一欄,我們的主角VBA就出來了
這里我們以一只股票和一只ETF為例,指導如何一步步建立自己的指導操作記錄
步驟2:
建立四個表格,分別為總覽-用於統計一些信息,證券-ETF示例,華蘭生物-股票示例,end-VBA結束
步驟3:總覽頁面設置,增加日期、時間,總收益、理財收益、股票收益、債券收益,並且添加兩個按鈕,一個刷新(用於刷新每個頁面的實時數據當前股票的股價或者是ETF基金的最新凈值)
如下所示,黃色部分需要自己手動填寫,時間必須是當天的日期,否則無法生成Word文章,當然代碼中可以更改的
步驟4:證券頁面操作
4.1 輸入基本信息:黃色部分對應的列表示需要自己輸入的內容
4.2 獲取網絡實時凈值(重點)
4.2.1先在東方財富網站獲取該代號的網頁,如下圖:
4.2.2然后選中excel H2
然后在excel 數據欄添加獲取數據
4.2.3 然后將剛才的網址復制到輸入框后確定如下圖
4.2.4 然后我們要找到當天的實時凈值
這里可以發現我們所需要的凈值了
4.2.5 提取我們想要的數據
我們利用鼠標右鍵對table5進行編輯,在編輯框進行相應的操作即可,因為我只需要實時凈值,所以把其他都刪除,並且修改了目錄名稱為“最新凈值”
修改后的結果如下:
4.2.6 關閉並上載至
一定要選擇第二個,否則會重新生成一個excel ,不滿足我們的要求了
4.2.7 確定之后
就能夠看到我們期望的數據了,如圖所示
4.3 日線圖或者周線圖的獲取
這里我們只需要將圖片的網絡地址獲取就可以了,后面會利用VBA代碼自動更新(刷新功能)
如何獲取網絡圖片見:https://download.csdn.net/download/baobingji/85177201
然后將上圖中的網址,復制到excel中的L2中即可;
步驟5:以同樣的方式制作華蘭生物的股票表格
這里簡單描述一下,區別點就是股價的獲取和圖片的獲取方式有差異,具體看下面描述;
5.1 最新股價與上面的類似
5.2 獲取圖片的網址
股票類型的不能夠按照4.3章節的方法操作,因為根本行不通,需要使用例外一種方法;
具體操作見:
https://download.csdn.net/download/baobingji/85177201
步驟6:經過上面幾步,已經完成Excel的布局了,現在開始寫VBA代碼
這里就不敘述了,具體看代碼就行:
https://download.csdn.net/download/baobingji/85177201
步驟7:測試總覽的刷新功能:
總覽輸入功能;
在黃色部分填寫內容:
利用數據刷新最新凈值功能:能夠獲取最新的實時數據
模擬買入功能:(必須從第5行)
點擊刷新:
刷新后的結果如下:
模擬賣出功能:
上圖顯示的1處輸入時間-2處總盈利欄對應的填寫賣出二字,3處填寫賣出價格
然后點擊刷新:(需要點擊2次)
步驟8 :生成word功能
生成word 功能之前需要建立一個模板temp.docx
模板做法見: https://download.csdn.net/download/baobingji/85177201
做好的模板如下圖:
步驟9:點擊一鍵生成Word
成功后,在excel所在的路徑下,多了一個文檔
打開可以看到生成的文章了
步驟10:一定要另存為xlsm格式的文檔
這樣下次打開就可以直接使用了!