利用VBA建立基金或股票的实时净值和日线图和买卖记录表并一键生成word文章

利用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格式的文档


这样下次打开就可以直接使用了!

你可能感兴趣的:(利用VBA建立基金或股票的实时净值和日线图和买卖记录表并一键生成word文章)