2 эффективных метода пакетного преобразования нескольких книг Excel в PDF Файлы

Поделись сейчас:

Иногда вам может понадобиться преобразовать несколько книг Excel в PDF файлы. Здесь, в этой статье, мы представим 2 метода получения пакетов.

В некоторых случаях может потребоваться преобразовать книгу Excel в PDF файл в этом PDF файл не может быть легко изменен другими. Как мы все знаем, преобразовать рабочую книгу Excel в PDF, что может быть достигнуто с помощью встроенной функции «Сохранить как», такой как следующий метод 1. Тем не менее, если есть много книг, которые нужно преобразовать в PDF, вам лучше использовать метод 2, представленный ниже, который намного эффективнее. Теперь читайте дальше, чтобы получить их подробно.

Способ 1: конвертировать по одному

  1. Прежде всего, откройте книгу Excel, которую вы хотите преобразовать в PDF .
  2. Затем перейдите в меню «Файл» и нажмите «Сохранить как».Сохранить как
  3. Далее в окне «Сохранить как» выберите «PDF» из выпадающего списка «Сохранить как тип».Выбрать "PDF" Тип
  4. После этого нажмите кнопку «Параметры» в окне «Сохранить как».
  5. Затем в следующем диалоговом окне «Параметры» выберите «Вся книга».Выбрать всю книгу
  6. Наконец, нажмите «ОК» и «Сохранить», чтобы завершить преобразование.
  7. Таким образом, вы можете преобразовать другие книги Excel в PDF файлы один за другим вручную.

Способ 2: пакетное преобразование через VBA

  1. В самом начале соберите все книги Excel, которые нужно преобразовать в PDF в той же папке Windows.
  2. Затем запустите приложение Excel.
  3. Затем откройте редактор Excel VBA, обратившись к «Как запустить код VBA в вашем Excel».
  4. Затем поместите следующий код в модуль или проект.
Sub BatchOpenMultiplePSTFiles() Dim objShell As Object Dim objWindowsFolder As Object Dim strWindowsFolder As String 'Выберите конкретную папку Windows Set objShell = CreateObject("Shell.Application") Set objWindowsFolder = objShell.BrowseForFolder(0, "Выберите папку Windows:", 0, "") Если Not objWindowsFolder - ничто, то strWindowsFolder = objWindowsFolder.self.Path & "\" Call ProcessFolders(strWindowsFolder) 'Открыть папку Windows Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus End If End Sub Sub ProcessFolders(strPath As String) Dim objFileSystem As Object Dim objFolder As Object Dim objFile As Object Dim objExcelFile As Object Dim objWorkbook As Excel.Workbook Dim strWorkbookName As String Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objFolder = objFileSystem.GetFolder( strPath) Для каждого файла objFile в objFolder.Files strFileExtension = objFileSystem.GetExtensionName(objFile) Если LCase(strFileExtension) = "xls" или LCase(strFileExtension) = "xlsx", то установите objExcelFile = objFile Установите objWorkbook = Application.Workbooks.Open(objExcelFile) .Path) strWorkbookName = Left(objWorkbook.Name, (Len(objWorkbook.Name) - Len(strFileExtension)) -1) objWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Имя файла:=strPath & strWorkbookName & ".pdf" objWorkbook.Close False End If Next 'Обработать все папки и подпапки Если objFolder.SubFolders.Count > 0 Тогда для каждой objSubFolder в objFolder.SubFolders If ((objSubFolder.Attributes And 2) = 0) And ((objSubFolder.Attributes And 4 ) = 0) Then ProcessFolders (objSubFolder.Path) End If Next End If End Sub

Код VBA — пакетное преобразование нескольких книг Excel в PDF Файлы

  1. После этого щелкните первую подпрограмму и нажмите клавишу «F5».
  2. Во всплывающем диалоговом окне выберите конкретную папку Windows, в которой собраны файлы Excel.Выберите папку Windows
  3. Затем нажмите «ОК».
  4. Когда макрос завершится, откроется папка Windows, в которой вы можете увидеть PDF файлы, как показано на следующем снимке экрана.Новое PDF Файлы

сравнение

Наши преимущества Недостатки бонуса без депозита
Метод 1 Довольно прост в эксплуатации Слишком хлопотно при преобразовании нескольких книг Excel
Метод 2 Гораздо удобнее и быстрее, чем метод 1, при обработке большого количества книг. Пользователи должны быть осторожны с внешними вредоносными макросами.

В случае повреждения файла Excel

Многие пользователи Excel когда-либо сталкивались с повреждением файла Excel. Иногда встроенная функция восстановления Excel может восстановить поврежденный Excel файл. Тем не менее, иногда это не может. Поэтому настоятельно рекомендуется подготовить мощное средство исправления Excel, такое как DataNumen Excel Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

6 ответа на «2 эффективных метода пакетного преобразования нескольких книг Excel в PDF файлы»

  1. Добрый день, мой коллега знает код этого типа, который больше всего вам подходит, и вы добавляете формат папье-бумаги, который сам по себе является причиной проблемы, и я не понимаю, как это сделать.

    голос кодовой вечеринки

    'Убедитесь, что рабочая книга открыта, прежде чем переходить к следующей строке кода
    С помощью wsA.PageSetup
    .PaperSize = xlPaperLetter
    '.CenterHorizontally = Истина
    ' .CenterVertically = Истина
    ' .Orientation = xlLandscape
    ' .Zoom = Ложь
    ' .FitToPagesWide = 1
    ' .FitToPagesTall = 1
    '.BottomMargin = 0
    ' .TopMargin = 0
    '.RightMargin = 0
    '.LeftMargin = 0
    Конец с
    DoEvents

    wsA.ExportAsFixedFormat _
    Тип:=xlTypePDF, _
    имя_файла:=myPath & myFile2 & «.pdf», _
    Качество: = xlQualityStandard, _
    IncludeDocProperties: = True, _
    ИгнорПринtAreas:=Ложь, _
    OpenAfterPublish: = False

    «Сохранить и закрыть книгу»
    wb.Close SaveChanges:=False
    Заранее спасибо за вашу помощь

  2. Концепция Leuk Batchconversie через VBA:
    Он работал с кодом в тексте Set objFolder («Scripting.FileSystemObject = strPath») больше нет.
    Вы должны знать, что это был шерм-афдрук-гротер, и это было то, что вы видели, когда вы стояли.
    Всплывающее окно с сообщением о работе.

  3. Спасибо тебе за это. У меня есть рабочие книги, в каждой из которых есть два листа, есть ли способ, чтобы это работало, чтобы создать PDF с двумя полными страницами, поскольку в настоящее время он создает PDFболее 5 страниц.

Оставьте комментарий

Ваш электронный адрес не будет опубликован. Обязательные поля помечены * *