Иногда вам может понадобиться преобразовать несколько книг Excel в PDF файлы. Здесь, в этой статье, мы представим 2 метода получения пакетов.
В некоторых случаях может потребоваться преобразовать книгу Excel в PDF файл в этом PDF файл не может быть легко изменен другими. Как мы все знаем, преобразовать рабочую книгу Excel в PDF, что может быть достигнуто с помощью встроенной функции «Сохранить как», такой как следующий метод 1. Тем не менее, если есть много книг, которые нужно преобразовать в PDF, вам лучше использовать метод 2, представленный ниже, который намного эффективнее. Теперь читайте дальше, чтобы получить их подробно.
Способ 1: конвертировать по одному
- Прежде всего, откройте книгу Excel, которую вы хотите преобразовать в PDF .
- Затем перейдите в меню «Файл» и нажмите «Сохранить как».
- Далее в окне «Сохранить как» выберите «PDF» из выпадающего списка «Сохранить как тип».
- После этого нажмите кнопку «Параметры» в окне «Сохранить как».
- Затем в следующем диалоговом окне «Параметры» выберите «Вся книга».
- Наконец, нажмите «ОК» и «Сохранить», чтобы завершить преобразование.
- Таким образом, вы можете преобразовать другие книги Excel в PDF файлы один за другим вручную.
Способ 2: пакетное преобразование через VBA
- В самом начале соберите все книги Excel, которые нужно преобразовать в PDF в той же папке Windows.
- Затем запустите приложение Excel.
- Затем откройте редактор Excel VBA, обратившись к «Как запустить код VBA в вашем Excel».
- Затем поместите следующий код в модуль или проект.
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
- После этого щелкните первую подпрограмму и нажмите клавишу «F5».
- Во всплывающем диалоговом окне выберите конкретную папку Windows, в которой собраны файлы Excel.
- Затем нажмите «ОК».
- Когда макрос завершится, откроется папка Windows, в которой вы можете увидеть PDF файлы, как показано на следующем снимке экрана.
сравнение
| Наши преимущества | Недостатки бонуса без депозита | |
| Метод 1 | Довольно прост в эксплуатации | Слишком хлопотно при преобразовании нескольких книг Excel |
| Метод 2 | Гораздо удобнее и быстрее, чем метод 1, при обработке большого количества книг. | Пользователи должны быть осторожны с внешними вредоносными макросами. |
В случае повреждения файла Excel
Многие пользователи Excel когда-либо сталкивались с повреждением файла Excel. Иногда встроенная функция восстановления Excel может восстановить поврежденный Excel файл. Тем не менее, иногда это не может. Поэтому настоятельно рекомендуется подготовить мощное средство исправления Excel, такое как DataNumen Excel Repair.
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановить sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com