|
利用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格式的文档
这样下次打开就可以直接使用了！ |
|
|
来自： 新用户99204qIP > 《项目实战》
