利用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格式的文档
这样下次打开就可以直接使用了!