返回列表 上一主題 發帖

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

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

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

回復 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
複製代碼
學海無涯_不恥下問

TOP

回復 2# Hsieh


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

TOP

        靜思自在 : 做好事不能少我一人,做壞事不能多我一人。
返回列表 上一主題