Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як перетворити декілька книг або аркушів у файли PDF одночасно в Excel?

Іноді вам потрібно перетворити файли Excel у файли PDF, щоб інші не могли їх змінити. В Excel ми можемо зберегти файл Excel як файл PDF за допомогою функції Зберегти як. Але як конвертувати в Excel одночасно кілька книг у файли PDF?


Перетворюйте кілька книг у файли PDF за допомогою функції Зберегти як по одному

Зазвичай функція Зберегти як в Excel може допомогти вам зберегти всю книгу у файлі PDF. Будь ласка, виконайте такі дії:

1. Запустіть свою книгу, яку потрібно перетворити у формат PDF.

2. Клацання філе > Зберегти як, і в Зберегти як діалоговому вікні, вкажіть папку для збереження нового файлу, а потім виберіть PDF від Зберегти як випадаючий список, а потім клацніть опції , див. знімок екрана:

3. Потім у вискочив опції діалогове вікно, поставте галочку Весь робочий зошит, див. скріншот:

4. А потім клацніть OK > зберегти, всю цю книгу збережено у форматі PDF-файлу.

чайові: Якщо у вас є кілька книжок, які потрібно перетворити, виконайте наведені вище дії, щоб зберегти книги по одному у файлах PDF.

Перетворюйте відразу кілька книг у файли PDF із кодом VBA

Якщо потрібно перетворити сотні файлів Excel, вищезазначений метод буде клопітким, тут я розповім про код VBA для перетворення одночасно декількох книг у файли PDF, виконайте такі дії:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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, а потім швидко та легко застосувати функцію.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Клацання Kutools Plus > робочий зошит > Формат конвертера, див. скріншот:

2. І з’явиться підказка, щоб нагадати, що ви повинні закрити книги, які потрібно перетворити.

3. Клацання OK, потім у Конвертер файлових форматів діалогове вікно, вкажіть такі параметри:

  • Відповідно до Тип перетворення випадаючий список, виберіть Книга Excel у форматі PDF;
  • Потім натисніть додавати Кнопка, щоб додати файли Excel, які потрібно перетворити, ви можете додати книги із комп’ютерного диска або OneDrive, як вам потрібно; 

4. Після вставлення книг, які потрібно перетворити, все ще знаходиться в Конвертер формату файлу діалогове вікно, натисніть , щоб вибрати один шлях до папки для виведення перетворених файлів, а потім внизу діалогового вікна вкажіть деякі необхідні операції, див. знімок екрана:

примітки: У наведеному вище діалоговому вікні:
  • Якщо також потрібно було перетворити книги в підпапках, перевірте Додайте папки під час додавання папок прапорець;
  • Якщо ви хочете видалити оригінальні файли після перетворення, перевірте Видаліть вихідні файли після перетворення коробка;
  • Якщо ви хочете зберегти дату модифікації оригінальних файлів, перевірте Зберігайте дату модифікації оригінальних файлів коробка;
  • Структуру каталогів файлу можна зберегти, перевіривши Структура каталогів файлу зберігається при перетворенні коробка;

5. Потім натисніть OK щоб розпочати перетворення, коли всі вказані файли Excel перетворено у файли PDF, ви можете перейти до вказаної папки для попереднього перегляду перетвореного результату, див. скріншоти:


Перетворіть декілька робочих аркушів із книги у окремі файли PDF за допомогою коду VBA

У деяких випадках вам може знадобитися перетворити кожен аркуш у книзі на окремі файли PDF. Якщо у вашій книзі багато аркушів, наведений нижче код VBA може допомогти вам зберегти кожен аркуш як файл PDF одночасно.

1. Відкрийте книгу, яку потрібно перетворити, і утримуйте кнопку ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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, а потім швидко та легко застосувати функцію.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Відкрийте книгу, в якій ви хочете зберегти кожен аркуш як файл PDF, а потім натисніть Kutool Plus > робочий зошит > Роздільна робоча книга, див. скріншот:

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

3. А потім усі вибрані аркуші поточної книги були збережені у файлах PDF окремо, див. Знімок екрана:


Більше відносних статей:

  • Перетворити кілька файлів Xls на файли Xlsx в Excel
  • Щоб перетворити старий файл xls Excel у новий файл xlsx, ви можете застосувати функцію Зберегти як в Excel, але якщо для перетворення потрібно багато файлів xls, як швидко та легко впоратися з цим завданням?
  • Зберегти всі робочі аркуші лише як значення
  • Якщо у вас є робоча книга, яка містить кілька формул, тепер вам потрібно розповсюдити цей файл іншим користувачам, ви не хочете показувати формули, а відображатимуться лише значення. Зазвичай ми можемо швидко зберегти аркуш як значення, скопіювавши та вставивши дані лише як значення. Але як можна зберегти всі аркуші як значення лише без копіювання та вставки по одному?
  • Кнопка команди, щоб зберегти активний аркуш як файл PDF
  • Працюючи в Microsoft Excel, ви можете зіткнутися з проблемою збереження активного аркуша як PDF-файлу. У цій статті ви можете дізнатись, як зберегти активний аркуш як PDF-файл із кодом VBA за допомогою командної кнопки. І якщо ви також хочете зберегти діапазон або кожен аркуш в активній книзі як окремий файл PDF, ця стаття також може вам допомогти.
  • Розділіть великий стіл на кілька невеликих таблиць
  • Якщо у вас є великий аркуш, який містить кілька стовпців і сотні чи тисячі даних рядків, зараз ви хочете розділити цю велику таблицю на кілька маленьких таблиць на основі значення стовпця або кількості рядків, щоб отримати такі результати. Як ви могли вирішити це завдання в Excel?
  • Розділіть книгу, щоб відокремити файли Excel
  • Можливо, вам доведеться розділити велику книгу, щоб розділити файли Excel із збереженням кожного аркуша книги як окремого файлу Excel. Наприклад, ви можете розділити книгу на декілька окремих файлів Excel, а потім доставити кожен файл іншій особі, яка буде з нею обробляти. Роблячи це, ви можете змусити певних осіб обробляти конкретні дані та захищати ваші дані. У цій статті будуть представлені способи розділення великої книги на окремі файли Excel на основі кожного аркуша.

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    yogeshshambharkar · 2 months ago
    the vba is really good and serves my purpose well. but can this code not be changed to create pdf from a particular sheet for multiple excel files (say 3rd worksheet of all 100 excel workbooks i have).
  • To post as a guest, your comment is unpublished.
    silvesterfairchildzd@gmail.com · 2 years ago
    This is perfect for what I was looking for. Thanks for the sharing. I used to convert excel file to PDF file with Acethinker PDF Creator, one by one, not so quick, share it here as an alternative solution.
  • To post as a guest, your comment is unpublished.
    javed · 5 years ago
    i am editing and updating my data in pdf explorer and i have already my data in excel sheet so now i want to export to my excel log to pdf explorer how