Как конвертировать сразу несколько книг или листов в файлы PDF в Excel?
Иногда вам необходимо преобразовать файлы Excel в файлы PDF, чтобы другие не могли их изменить. В Excel мы можем сохранить файл Excel как файл PDF с помощью функции «Сохранить как». Но как в Excel одновременно преобразовать несколько книг в файлы PDF?
- Преобразование нескольких книг в файлы PDF с помощью функции «Сохранить как» по одному
- Преобразуйте сразу несколько книг в файлы PDF с помощью кода VBA
- Преобразование нескольких книг в файлы PDF с помощью мощной функции
- Преобразование нескольких листов из книги в отдельные файлы PDF с кодом VBA
- Преобразование нескольких листов из книги в отдельные файлы PDF с помощью удобной функции
Преобразование нескольких книг в файлы PDF с помощью функции «Сохранить как» по одному
Обычно функция «Сохранить как» в Excel может помочь вам сохранить всю книгу в PDF-файл, пожалуйста, сделайте следующее:
1. Запустите книгу, которую вы хотите преобразовать в формат PDF.
2. Нажмите Файл > Сохранить какИ в Сохранить как в диалоговом окне укажите папку для сохранения нового файла, затем выберите PDF из Сохранить как раскрывающийся список, а затем щелкните Опции кнопку, см. снимок экрана:
3. Затем в выскочившем Опции диалоговое окно, отметьте Вся книга, см. снимок экрана:
4, Затем нажмите OK > Сохранить, вся эта книга была сохранена в формате PDF.
Преобразуйте сразу несколько книг в файлы PDF с помощью кода VBA
Если необходимо преобразовать сотни файлов Excel, описанный выше метод будет проблематичным. Здесь я расскажу о коде VBA для одновременного преобразования нескольких книг в файлы PDF. Выполните следующие действия:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: одновременное преобразование нескольких книг в файлы PDF
Sub ExcelSaveAsPDF()
'Updateby Extendoffice
Dim strPath As String
Dim xStrFile1, xStrFile2 As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath, xWBName As String
Dim xBol As Boolean
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the Excel files you want to convert:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a destination folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
xStrFile1 = Dir(strPath & "*.*")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While xStrFile1 <> ""
xBol = False
If Right(xStrFile1, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xls", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsx" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsm" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
xBol = True
End If
If xBol Then
xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
xWbk.Close SaveChanges:=False
End If
xStrFile1 = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится окно, выберите папку, содержащую книги, которые вы хотите преобразовать, см. снимок экрана:
4. Затем щелкните OK, появится другое окно, выберите путь к папке, в которую вы хотите вывести новые файлы PDF, см. снимок экрана:
5. А затем нажмите OK, после завершения конвертации вы можете перейти в указанную папку для предварительного просмотра конвертированного результата, см. скриншоты:
Преобразование нескольких книг в файлы PDF с помощью мощной функции
Если вы только что Kutools for Excel, С его Конвертер формата утилита, вы можете быстро преобразовать несколько книг в файлы PDF одновременно.
После установки Kutools for Excel, пожалуйста, сделайте так:
1. Нажмите Кутулс Плюс > Workbook > Конвертер формата, см. снимок экрана:
2. Появится окно подсказки, напоминающее, что вы должны закрыть книги, которые вы хотите преобразовать.
3. Нажмите OK, то в Конвертер файловых форматов диалоговом окне укажите следующие параметры:
- Под Тип преобразования раскрывающийся список, выберите Книга Excel в PDF;
- Затем нажмите Добавить кнопку, чтобы добавить файлы Excel, которые вы хотите преобразовать, вы можете добавить книги со своего компьютерного диска или OneDrive по мере необходимости;
4. После вставки книг, которые вы хотите преобразовать, все еще в Конвертер форматов файлов диалоговое окно, щелкните кнопку, чтобы выбрать путь к одной папке для вывода преобразованных файлов, а затем указать некоторые операции, которые вам нужны, в нижней части диалогового окна, см. снимок экрана:
- Если книги во вложенных папках также необходимо преобразовать, проверьте Включать подпапки при добавлении папок флажок;
- Если вы хотите удалить исходные файлы после преобразования, проверьте Удалить исходные файлы после конвертации коробка;
- Если вы хотите сохранить дату изменения исходных файлов, проверьте Сохранить дату изменения исходных файлов коробка;
- Структуру каталогов файла можно сохранить, установив флажок Структура каталогов файла сохраняется при преобразовании коробка;
5. Затем нажмите OK чтобы начать преобразование, когда все указанные файлы Excel были преобразованы в файлы PDF, вы можете перейти в указанную папку для предварительного просмотра преобразованного результата, см. снимки экрана:
Преобразование нескольких листов из книги в отдельные файлы PDF с кодом VBA
В некоторых случаях вам может потребоваться преобразовать каждый лист в книге в отдельные файлы PDF. Если в вашей книге много листов, приведенный ниже код VBA может помочь вам сохранить каждый лист в виде файла PDF сразу.
1. Откройте книгу, которую вы хотите преобразовать, а затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: преобразование нескольких листов из книги в отдельные файлы PDF
Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится окно, выберите путь к папке для поиска преобразованных файлов PDF, см. снимок экрана:
4, Затем нажмите OK Кнопка, все листы в текущей книге были отдельно преобразованы в файлы PDF, см. снимок экрана:
Преобразование нескольких листов из книги в отдельные файлы PDF с помощью удобной функции
Kutools for Excel также поддерживает полезную функцию - Разделить книгу, с помощью этой функции вы можете сохранить несколько листов в книге для разделения файла Excel, файла Txt, файла CSV и файла PDF по мере необходимости.
После установки Kutools for Excel, пожалуйста, сделайте так:
1. Откройте книгу, в которой вы хотите сохранить каждый лист как файл PDF, и нажмите Кутоол Плюс > Workbook > Разделить книгу, см. снимок экрана:
2. В Разделить книгу диалоговом окне, отметьте лист, который вы хотите сохранить, а затем выберите PDF (* .pdf) из Сохранить как раскрывающийся список, а затем щелкните Split кнопку в Выбор папки в окне укажите папку для размещения преобразованных файлов, см. снимок экрана:
3. А затем все выбранные листы в текущей книге были сохранены в файлы PDF по отдельности, см. Снимок экрана:
Больше относительных статей:
- Преобразование нескольких файлов Xls в файлы Xlsx в Excel
- Чтобы преобразовать старый файл xls Excel в новый файл xlsx, вы можете применить функцию «Сохранить как» в Excel, но, если необходимо преобразовать несколько файлов xls, как можно быстро и легко справиться с этой задачей?
- Сохранить все рабочие листы только как значения
- Если у вас есть книга, содержащая несколько формул, теперь вам нужно распространить этот файл среди других пользователей, вы не хотите, чтобы формулы отображались, а отображались только значения. Обычно мы можем быстро сохранить рабочий лист как значения, скопировав и вставив данные только как значения. Но как вы могли сохранить все листы только как значения, не копируя и не вставляя их по одному?
- Кнопка управления для сохранения активного рабочего листа в виде файла PDF
- При работе в Microsoft Excel вы можете столкнуться с проблемой сохранения активного рабочего листа в виде файла PDF. В этой статье вы можете узнать, как сохранить активный рабочий лист в виде файла PDF с кодом VBA с помощью командной кнопки. И если вы также хотите сохранить диапазон или каждый рабочий лист в активной книге как отдельный файл PDF, эта статья также может вам помочь.
- Разделить большой стол на несколько маленьких
- Если у вас есть большой рабочий лист, содержащий несколько столбцов и сотни или тысячи данных строк, теперь вы хотите разделить эту большую таблицу на несколько небольших таблиц на основе значения столбца или количества строк, чтобы получить следующие результаты. Как бы вы могли справиться с этой задачей в Excel?
- Разделить книгу на отдельные файлы Excel
- Возможно, вам придется разделить большую книгу на отдельные файлы Excel, сохранив каждый рабочий лист книги как отдельный файл Excel. Например, вы можете разделить книгу на несколько отдельных файлов Excel, а затем передать каждый файл другому человеку для обработки. Поступая таким образом, вы можете заставить определенных людей обрабатывать определенные данные и сохранить ваши данные в безопасности. В этой статье будут представлены способы разделения большой книги на отдельные файлы Excel на основе каждого рабочего листа.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!