excel 按数据拆分 xlam_利用EXCEL提升效率之五分钟缩短至五秒批量合并EXCEL批量转换PDF批量上传报关单随附单据___EXCELVBA...

进出口报关中,需要对各种发票,装箱,合同等进行重复的操作:

打印---盖章---扫描---重命名等操作.
之后将上述文件上传至单一窗口的报关单随附单据,
报关行通常需要安排一人专门进行上述操作,
每套单据按最低时间5分钟为计,
100套单据得连续工作超过8小时(也许这就是你天天加班的原因)
如何对上述重复步骤进行优化节省人力物力呢?
本期将介绍如何将上述单据批量转换为PDF文件

将EXCEL批量合并为一个工作薄

将EXCEL每个工作表批量转换为PDF
将PDF文件放置于指定文件夹并按要求命名文件夹及PDF文件
准备工作环境:
PDF打印机---安装Adobe系列PDF软件将默认安装
--------------安装福昕阅读器等也有该打印机显示

各类PDF软件可在360软件管家中搜索

EXCEL(本期使用EXCEL2016)------其他版本也差不多,主要是宏的调用
需要打开"开发工具"---文件---选项---自定义功能区---开发工具(打勾)

此时,在EXCEL上会显示开发工具,点击visual basic(或Alt+F11)进入VB工程

在当前VBAProject右击---插入---模块

在右边添入以下代码

'作者:年迈哒爱好者,微信公众号:shoot00hxzSub shoot00hxz_1()Dim Pa$, Sh As WorksheetDim SHname As String On Error Resume NextFor Each Sh In SheetsSHname = Right(Sheets(1).Name, 9)     RmDir ThisWorkbook.Path & "\" & SHname & "\"     MkDir ThisWorkbook.Path & "\" & SHname & "\"Pa = ThisWorkbook.Path & "\" & SHname & "\"   Sh.ExportAsFixedFormat xlTypePDF, Pa & Sh.Name & ".pdf", 0, True, FalseNextEnd Sub''''''''''''''''''''作者:年迈哒爱好者,微信公众号:shoot00hxz'功能：把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称Sub shoot00hxz_2()    '定义对话框变量Dim fd As FileDialogSet fd = Application.FileDialog(msoFileDialogFilePicker)  '新建一个工作簿Dim newwb As WorkbookSet newwb = Workbooks.AddWith fdIf .Show = -1 Then                                          '定义单个文件变量Dim vrtSelectedItem As Variant                              '定义循环变量Dim i As Integer    i = 1                                                    '开始文件检索For Each vrtSelectedItem In .SelectedItems                   '打开被合并工作簿Dim tempwb As WorkbookSet tempwb = Workbooks.Open(vrtSelectedItem)                 '复制工作表tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".XLSX", "") '把新工作簿的工作表名字改成被复制工作簿文件名，如果是Excel2003，需要改成xlstempwb.Close SaveChanges:=False                                  '关闭被合并工作簿    i = i + 1Next vrtSelectedItemEnd IfEnd WithSet fd = NothingEnd Sub

关闭后返回工作表,点击---开发工具---宏

为每个选项设置快捷方式,本期将设置如下快捷键
Ctrl+q    快捷方式---批量转换为PDF
Ctrl+w    快捷方式---批量合并工作表

再(快捷键F12)另存为  *.xlam

按需要求,若多次使用,在打开---开发工具---Excel加载项

在浏览处找到已存取的*.xlam文件,
以后所有EXCEL将加载该*.xlam
------注意事项-----
*.xlam文件存放的位置将决定PDF文件存储的位置
如将*.xlam文件放在桌面,
那么转换好的PDF将在桌面显示
桌面将多了个"PDF文件夹"

Ctrl+w    快捷方式---批量合并工作表
打开一个空白EXCEL并合下快捷键Ctrl+w
选择需要转换的EXCEL文件(可使用Ctrl+a选择所有EXCEL文件)
-----请确保电脑没有存在冲突快捷键-----

如下图显示,
选取的EXCEL将合并为一个工作薄

Ctrl+q    快捷方式---批量转换为PDF

按下快捷键Ctrl+q
生成如下图

------再次提醒----注意事项-----
*.xlam文件存放的位置将决定PDF文件存储的位置
如将*.xlam文件放在桌面,
那么转换好的PDF将在桌面显示

生成的PDF文件命名是有规范性的
如下图代码,可以生成报关单随附单据自动上传至单一窗口
解决了上传耗时且有上传失败造成退单的情况
每天花一个多小时发送及上传附件的时间又可以节省下来了

     <EdocRealation>         <EdocID>532000000001IMshoot00hxzEdocID>         <EdocCode>00000001EdocCode>         <EdocFomatType>USEdocFomatType>         <OpNote>OpNote>         <EdocCopId>发票年迈哒爱好者shoot00hxz.pdfEdocCopId>         <EdocOwnerCode>shoot00hxzEdocOwnerCode>         <SignUnit>shoot00hxzSignUnit>         <SignTime>2020/8/24 22:26:13SignTime>         <EdocOwnerName>年迈哒爱好者EdocOwnerName>         <EdocSize>100EdocSize>     EdocRealation>     <EdocRealation>         <EdocID>532000000002IMshoot00hxzEdocID>         <EdocCode>00000002EdocCode>         <EdocFomatType>USEdocFomatType>         <OpNote>OpNote>         <EdocCopId>装箱单年迈哒爱好者shoot00hxz.pdfEdocCopId>         <EdocOwnerCode>shoot00hxzEdocOwnerCode>         <SignUnit>shoot00hxzSignUnit>         <SignTime>2020/8/24 22:26:13SignTime>         <EdocOwnerName>年迈哒爱好者EdocOwnerName>         <EdocSize>100EdocSize>     EdocRealation>     <EdocRealation>         <EdocID>532000000003IMshoot00hxzEdocID>         <EdocCode>00000003EdocCode>         <EdocFomatType>USEdocFomatType>         <OpNote>OpNote>         <EdocCopId>運單-shoot00hxz.pdfEdocCopId>         <EdocOwnerCode>shoot00hxzEdocOwnerCode>         <SignUnit>shoot00hxzSignUnit>         <SignTime>2020/8/24 22:26:14SignTime>         <EdocOwnerName>年迈哒爱好者EdocOwnerName>         <EdocSize>100EdocSize>     EdocRealation>     <EdocRealation>         <EdocID>532000000004IMshoot00hxzEdocID>         <EdocCode>00000004EdocCode>         <EdocFomatType>USEdocFomatType>         <OpNote>OpNote>         <EdocCopId>合同年迈哒爱好者shoot00hxz.pdfEdocCopId>         <EdocOwnerCode>shoot00hxzEdocOwnerCode>         <SignUnit>shoot00hxzSignUnit>         <SignTime>2020/8/24 22:26:14SignTime>         <EdocOwnerName>年迈哒爱好者EdocOwnerName>         <EdocSize>100EdocSize>     EdocRealation>

动手能力差的同学可使用制作好的插件程序

关注公众号发送关务插件获取下载链接