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


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

©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 216,591评论 6 501
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 92,448评论 3 392
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 162,823评论 0 353
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 58,204评论 1 292
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 67,228评论 6 388
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 51,190评论 1 299
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 40,078评论 3 418
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 38,923评论 0 274
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 45,334评论 1 310
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 37,550评论 2 333
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 39,727评论 1 348
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 35,428评论 5 343
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 41,022评论 3 326
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 31,672评论 0 22
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,826评论 1 269
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 47,734评论 2 368
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 44,619评论 2 354

推荐阅读更多精彩内容