Как да конвертирате няколко работни книги или работни листове в PDF файлове наведнъж в Excel?

Понякога трябва да конвертирате вашите Excel файлове в PDF файлове, така че да не могат да бъдат модифицирани от други. В Excel можем да запазим Excel файл като PDF файл, като използваме функцията Save As. Но как конвертирате няколко работни книги в PDF файлове едновременно в Excel?

• Конвертирайте няколко работни книги в PDF файлове с функцията Запиши като една по една
• Преобразувайте няколко работни книги в PDF файлове с VBA код наведнъж
• Преобразувайте множество работни книги в PDF файлове с мощна функция
• Преобразувайте множество работни листове от работна книга в отделни PDF файлове с VBA код
• Преобразувайте множество работни листове от работна книга в отделни PDF файлове с удобна функция

Конвертирайте няколко работни книги в PDF файлове с функцията Запиши като една по една

Обикновено функцията Запиши като в Excel може да ви помогне да запазите цялата работна книга в PDF файл, моля, направете следното:

1. Стартирайте работната си книга, която искате да конвертирате в PDF формат.

2. Щракнете досие > Save As, и в Save As диалогов прозорец, моля, посочете папка за запазване на новия файл, след което изберете PDF от Запиши като тип падащ списък и след това щракнете Настроики бутон, вижте екранната снимка:

3. След това изскочи Настроики диалогов прозорец, проверете Цялата работна книга, вижте екранна снимка:

4, И после щракнете върху OK > Save, цялата тази работна книга е запазена като PDF файлов формат.

Преобразувайте няколко работни книги в PDF файлове с VBA код наведнъж

Ако има стотици Excel файлове, които трябва да бъдат конвертирани, горният метод ще бъде обезпокоителен, тук ще говоря за VBA код за конвертиране на няколко работни книги в PDF файлове наведнъж, моля, изпълнете следните стъпки:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния код в Модули Window.

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 за Excel, Със своята Преобразувател на формати помощна програма, можете бързо да конвертирате няколко работни книги в PDF файлове наведнъж.

След инсталиране Kutools за Excel, моля, направете следното:

1. Щракнете Kutools плюс > Workbook > Преобразувател на формати, вижте екранна снимка:

2. И се появява поле за подкана, което напомня, че трябва да затворите работните книги, които искате да конвертирате.

3. Щракнете OK, тогава в FileFormat конвертор диалоговия прозорец, задайте следните опции:

• Под Тип конвертиране падащ списък, изберете Работна книга на Excel в PDF;
• След това кликнете Добави бутон за добавяне на файловете на Excel, които искате да конвертирате, можете да добавите работните книги от диска на вашия компютър или OneDrive, както ви е необходимо; 

4. След като поставите работните книги, които искате да конвертирате, все още в Конвертор на файлов формат диалогов прозорец, моля щракнете бутон, за да изберете един път на папка за извеждане на преобразуваните файлове и след това задайте някои операции, от които се нуждаете в долната част на диалоговия прозорец, вижте екранната снимка:

5, След това кликнете OK за да започнете конвертирането, когато всички посочени Excel файлове са преобразувани в PDF файлове, можете да отидете в посочената папка, за да прегледате конвертирания резултат, вижте екранни снимки:

Преобразувайте множество работни листове от работна книга в отделни PDF файлове с VBA код

В някои случаи може да искате да конвертирате всеки работен лист в работната книга в отделни PDF файлове, ако има много листове в работната ви книга, кодът на VBA по-долу може да ви помогне да запазите всеки работен лист като PDF файл наведнъж.

1. Отворете работна книга, която искате да конвертирате, и след това задръжте ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния код в Модули Window.

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 за Excel също поддържа полезна функция - Разделена работна книга, с тази функция можете да запазите няколко работни листа в рамките на работната книга, за да отделите Excel файл, Txt файл, CSV файл и PDF файл, както ви е необходимо.

След инсталиране Kutools за Excel, моля, направете следното:

1. Отворете работната книга, която искате да запишете всеки лист като PDF файл, и след това щракнете Kutool Plus > Workbook > Разделена работна книга, вижте екранна снимка:

2. В Разделена работна книга диалогов прозорец, поставете отметка върху листа, който искате да запишете, и след това изберете PDF (* .pdf) от Запиши като тип падащ списък и след това щракнете разцепен бутон, в Изберете папка прозорец, посочете папка за поставяне на конвертираните файлове, вижте екранната снимка:

3. След това всички избрани работни листове в текущата работна книга са записани в PDF файлове поотделно, вижте екранната снимка:

Още относителни статии:

Най-добрите инструменти за продуктивност в офиса

🤖	Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
	Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
	Супер търсене: VLookup с множество критерии  |   VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
	Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
	Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
	Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар   |  Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки   |  Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
	Топ 15 комплекта инструменти:  12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Прочети повече ... Безплатно сваляне...

---

Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

• Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
• Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!

Прочети повече ... Безплатно сваляне...