固原市利达混凝土有限公司
新闻资讯

你的位置:固原市利达混凝土有限公司 > 新闻资讯 > 笔据不同的选项运行不同的代码

笔据不同的选项运行不同的代码

发布日期:2024-07-03 17:27    点击次数:81

笔据不同的选项运行不同的代码

快速浏览

往期书籍:【2023年3月】【2023年4月】【2023年5月】【2023年6月】

实用案例:|收费处罚系统|中医诊所收费系统|日历控件|浮浅的收发存|电子发票处罚助手|Excel表格拆分心器|

实质摘要

文献合并功能推广EXCEL合并、WORD合并、PDF合并、图片合并

大众好,我是冷水沏茶,前天我写了一篇著作复兴粉丝一又友的代码子虚问题,但我莫得提到他的代码是干什么用的,其实,他的代码是用VBA合并PDF文献。

来源,我有点不以为然:

图片

其后,我一想,咱们不是共享过EXCEL文献的合并吗?是不是不错资源整合一下呢?WORD文献可不行以合并?图片文献可不行以合并成PDF?

瞬息以为有必要来搞点事情。经过两天的研讨、写代码、测试,终于基本达成观念,咱们全部来看一下吧:

图片

筹算想路

1、参考咱们前边文献拆分用具,使用用户窗体。2、不同的合并类型,通过选项按钮来判定。3、通过FSO文献系统对象来聘请文献夹,包括待合并文献地点文献夹,合并文献保存文献夹。4、通过FSO文献系统对象来遍历文献夹下通盘文献,笔据不同的合并类型,聘请不同后缀名的文献进行处理。5、EXCEL文献,不错聘请跳过第一瞥表头。6、WORD文献,首页-新西宝皮具有限公司不错聘请每个文献另起一页。7、PDF文献, 首页-汉茂东机场有限公司通过Acrobat库大开文献操作。8、图片文献, 固原市秋奥蚕茧有限公司参照PDF合并,用Acrobat大开再插入页面。9、保存文献名可自界说。

收场经由

首页-盛 吉宏棉类有限公司

1、筹算窗体

图片

2、编写代码:

这里就列一些模块称号,稍作阐述,竣工代码放在第二条著作。

Private Sub UserForm_Initialize()窗体启动化默许保存文献夹为当远景小引件地点文献夹 Private Sub CkbName_Click()自界说保存文献称号Private Sub CmdChoosePath_Click()聘请待合并文献地点文献夹Private Sub CmdConfirm_Click()证据按钮,笔据不同的选项运行不同的代码,调用不同的经由Private Sub CmdChooseSavePath_Click()聘请保存文献的文献夹Private Sub CombineExcel()合并EXCEL文献经由Private Sub CombinePDF()合并PDF文献经由Private Sub CombineWord()合并WORD文献经由Private Sub CombinePicturesToPDF()合并图片文献为PDF文献Function ConvertPicToPDF(picName,三轮车 pdfPath) As String自界说图片转PDF函数获取疗养为PDF的文献名Function wContinue(Msg) As Boolean自界说函数证据链接履行Private Sub CmdExit_Click()退出窗体

其他

1、在写图片转为PDF经由中,费了比拟大的落魄。原来以为用PDF大开再插入到合并文献中,但即是跑欠亨。终末,自界说了一个函数,把图片转为PDF文献,存到一个临时目次,并记下保存的文献名,然后再参照合并PDF经由进行合并。

2、合并PDF经由,参考那位粉丝一又友的代码,作了一些调整,在此暗意感谢。

3、合并EXCEL经由,基本照搬咱们前边的代码。EXCEL职责表的合并,默许条目是调换数据结构的职责表,不然合并就莫得什么真义了。原来还想作念一个把通盘职责表全部复制到一个职责簿中,其后以为真义不是很大,加之期间联系,就算了。

4、合并文献规章,应该是按照文献名升序。

5、不同类型的文献不错放在并吞个文献夹下,只针对某一类文献进行合并。

6、本用具经过浮浅测试运行宽泛,但不排斥还有其它BUG。若有一又友发现的,请在批驳区留言,感谢!

正文完

本站仅提供存储就业,通盘实质均由用户发布,如发现存害或侵权实质,请点击举报。