EXCEL-如何批量轉換5000份PDF！

臨近下班，接到任務，將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”即可！