Як перетворити декілька книг або аркушів у файли 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. Клацання 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, будь ласка, зробіть так:
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, будь ласка, зробіть так:
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 на основі кожного аркуша.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
