office/wps快速制作贺报方法

使用背景

在保险、地产、中介等行业，经常需要制作贺报，且每次制作都是批量的填入指标达成情况等文字信息，制作过程繁琐复杂，故而制作快速贺报制作工具，使用VBA编写，能适合任何安装有office/wps的个人电脑。

视频演示

快速贺报制作

代码部分

Sub 贺报生成()Dim weizhi As StringDim idx As IntegerDim wb1 As String, wb2 As String, wb3 As StringPath = ActivePresentation.Pathweizhi = Path & "\贺报一键生成贺报数据.xlsx"wb1 = "文本1"wb2 = "文本2"wb3 = "文本3"wb4 = "文本4"Dim MyexcelApp As New Excel.ApplicationDim MyexcelBook As New Excel.WorkbookDim MyexcelSheet As New Excel.WorksheetPathstr = weizhiSet MyexcelBook = MyexcelApp.Workbooks.Open(Pathstr)Set MyexcelSheet = MyexcelBook.Worksheets(1)MyexcelSheet.ActivateDim i As IntegerDim oPPT As PresentationDim oSlide As Slide'当前ppt演示文稿Set oPPT = PowerPoint.ActivePresentationWith oPPT'第一个幻灯片Set oSlide = .Slides(1)'复制到剪贴板oSlide.CopyEnd WithFor i = 1 To 1000'粘贴使其成为第2个幻灯片oPPT.Slides.Paste (i + 1)ActivePresentation.Slides(i + 1).Shapes(wb1).TextFrame.TextRange.Text = MyexcelSheet.Cells(i + 1, 1).Value '地区ActivePresentation.Slides(i + 1).Shapes(wb2).TextFrame.TextRange.Text = MyexcelSheet.Cells(i + 1, 2).Value '地区If MyexcelSheet.Cells(i + 2, 1).Value = "" ThenMyexcelBook.CloseSet MyexcelApp = NothingSet MyexcelBook = NothingSet MyexcelSheet = NothingExit SubEnd IfNext iMyexcelApp.Workbooks.CloseMyexcelBook.CloseMyexcelApp.CloseSet MyexcelApp = NothingSet MyexcelBook = NothingSet MyexcelSheet = Nothing
End Sub

文件链接

快速贺报工具下载

office快速制作贺报方法相关推荐

php多张图片制作成视频教程,如何将多张图片转换成视频？快速制作电子相册的方法...
是否曾想过通过一张动态的方式向身边的人们展示你觉得有趣的事情?比如展现某地的秀美风光,或者是记录宝宝成长的痕迹等等.虽然照片能够记录那些幸福快乐的却不能够还原出当时那种喜悦的气氛,而使用相册视频比起一 ...
快速制作PPT的方法有哪些？这五种很实用！
大家能熟练的使用PPT吗?PPT里有很多小技巧,学会了会发现制作PPT很简单快捷,最近小编又去学习了五种新技巧,今天分享给大家,下面一起看看吧! 技巧一:快速重复上一次的操作在电脑键盘上找到[F4] ...
一个快速制作表格的方法，和熬夜做表say拜拜
如今已是大数据时代了,统计工作是非常繁琐的一项工作,通常统计老师为了录单工作到下半夜或者是通宵,现在有了很多制作表单的软件,可以大大减轻基层统计老师的工作量,也增加了会员资料的保密性,给我们统计工作带 ...
微信上如何制作投票链接？5分钟快速制作活动链接方法
因为疫情的原因,门店生意受到重创,企业为了寻求商机,很多都转型线上营销.那么对于刚转型的企业,前期如何做好用户量获取呢? 通过微信来获取用户是一个不错的选择,尤其是在疫情期间,微信沟通频率更高,企业可 ...
vue 2个方法先后执行_有效快速制作工资条的2个方法
发工资是每个月员工们最期待的事情,但是对于HR来说却是非常头痛的工作.如何快速制作工资条?相信很多HR朋友们都很想知道,那么今天本文就和大家分享2个制作工资条的高效方法. 第一种:传统方式(Excel ...
git动图快速制作方法
gif动图快速制作方法(附工具) 现在写博客或是wiki的过程中,会经常引用到图片,特别是客户端经常与页面相关所以截图不可避.但是越来越多的效果仅仅一张图片是无法清楚的描述.并且博客或是wiki也是支 ...
快速制作PDF文件的方法
在工作中,我们需要掌握许多办公软件,Excel.Word.PPT等等,相信大家都非常的熟悉.那么,你知道制作PDF文件的方法吗?如果不知道的话,今天小编给大家带来了快速制作PDF文件的方法,一起来试试 ...
小程序生成图片保存到系统相册_电子相册怎么做快速制作电子相册方法
电子相册怎么做快速制作电子相册方法?下面就是有关快速制作电子相册的具体方法. 方法/步骤 1 方法一:利用PPT制作电子相册.首先,我们新建一个PPT,点击工具栏"插入"--&q ...
matlab 浮雕,基于MATLAB根据图片快速制作陶瓷浮雕的方法与流程
本发明属于陶瓷制作技术领域,尤其涉及基于MATLAB根据图片快速制作陶瓷浮雕的方法. 背景技术: 印模成形是传统的陶艺成形工艺之一,它具有制作简便.省时省力.对制作者没有过多的技艺要求的优点,因而直到 ...

office快速制作贺报方法

office/wps快速制作贺报方法

使用背景

视频演示

代码部分

文件链接

office快速制作贺报方法相关推荐

最新文章

热门文章