临近下班，接到任务，将100个员工每个店铺的业绩，做好分析，以PDF的形式分别发给每个人。
每个员工管理50家店铺，就是要做100*50=5000个表格，转换成5000个PDF!
7天才能完成！不眠不休，通宵达旦，还是隔日再战？
其实几步便可解决，简单几步即可!前后不会超过1小时。
下面介绍具体步骤：
1、批量创建100个以员工姓名命名的文件夹。（20秒）
操作方法：
插入一个模板，执行代码即可创建，（代码会在文末分享）如图：
2、建好PDF模板，批量转PDF,并将不同员工的文件自动保存到对应的文件夹。
插入一个模板，执行代码即可转换（代码会在文末分享，也会附上获取这个模板的方式）
如图：
由于时间关系，只转换了15个，用时10s。
以下 附上两个代码：
1、批量创建文件：
Sub copyfile()
On Error Resume Next
Dim filepath As String
filepath = ThisWorkbook.Path
Dim MF As Object
Dim Mfile As String, Tarfolder As String
For i = 2 To 101
If Dir(filepath & "\\" & ((Range("A" & i))), vbDirectory) <> "" Then
Else
MkDir ThisWorkbook.Path & "\\" & ((Range("A" & i)))
Tarfolder = filepath & "\\" & ((Range("A" & i))) & "\\"
Set MF = CreateObject("Scripting.FileSystemObject")
MF.FileCopy Mfile
Set MF = Nothing
End If
Next i
End Sub
2、批量转PDF
Sub 转换pdf()
Dim i
i = 2
While Sheets("数据源").Cells(i, 1) <> ""
Sheets("业绩模板").Range("D4") = Sheets("数据源").Cells(i, 1)
Application.ScreenUpdating = True
Dim wb As Workbook
Sheets("业绩模板").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\\" & Sheets("数据源").Cells(i, 3) & "/" & Sheets("数据源").Cells(i, 3) & "_" & Sheets("数据源").Cells(i, 4) & ".pdf"
Set wb = Nothing
Application.ScreenUpdating = True
i = i + 1
Wend
Sheets("数据源").Select
End Sub
根据不同表格形式，以上大致修改下即可操作。
获取模板方式：转发后，点赞，关注我，私信“PDF”即可！