如何用VBA批次轉檔成為PDF加密檔案？

JasonChen576

目前只找到使用引用PDFCreator。
但有無比較簡單的方法呢？

Hsieh

回復 1# JasonChen576
試試看

1. Sub CreatePDF()
   
2. Dim Sh As Worksheet
   
3. Application.ScreenUpdating = False
   
4. Set fdo = CreateObject("Scripting.FileSystemObject")
   
5. With Application.FileDialog(msoFileDialogFolderPicker)
   
6.    .Title = "選擇EXCEL檔案所在資料夾"
   
7.    .Show
   
8.    fd = .SelectedItems(1)
   
9.    f = IIf(fdo.driveExists(fd), "", "\") '判斷是是磁碟或資料夾
   
10. End With
    
11. If fdo.FolderExists(fd & f & "PDF") = False Then fdo.CreateFolder fd & f & "PDF" '在來源資料夾新增存放PDF的目的資料夾
    
12. fs = Dir(fd & f & "*xls*")
    
13. Do Until fs = ""
    
14. With Workbooks.Open(fd & "\" & fs)
    
15.    For Each Sh In .Sheets '每個工作表做一個PDF檔案
    
16.        With Sh
    
17.         If Application.CountA(.Cells) > 0 Then
    
18.             .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    
19.              fd & "\PDF\" & fs & Sh.Name & ".pdf", Quality:=xlQualityStandard, _
    
20.              IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    
21.              False
    
22.          End If
    
23.        End With
    
24.     Next
    
25.     .Close 0
    
26. End With
    
27. fs = Dir
    
28. Loop
    
29. Application.ScreenUpdating = True
    
30. End Sub

複製代碼

JasonChen576

回復 2# Hsieh


    感謝大大賜教～
請問PDF如果要加上密碼呢？