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

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

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

快速浏览

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

实质摘要

文献合并功能推广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。若有一又友发现的，请在批驳区留言，感谢！

正文完

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

上一篇：一区号码分析：积年同时数据中开出一区号码49枚

下一篇：没有了