Понякога може да искате да конвертирате множество работни книги на Excel в PDF файлове. Тук, в тази статия, ще представим 2 метода, за да го получим на партиди.
В някои случаи може да се наложи да конвертирате работна книга на Excel в PDF файл в този a PDF файлът не може да бъде модифициран от други лесно. Както всички знаем, е много лесно да конвертирате работна книга на Excel в PDF, което може да бъде постигнато чрез родната функция „Запазване като“, като следния метод 1. И все пак, ако има много работни книги, които трябва да бъдат преобразувани в PDF, по-добре използвайте метода 2, въведен по-долу, който е много по-ефективен. Сега прочетете, за да ги получите подробно.
Метод 1: Конвертиране един по един
- Първо отворете работна книга на Excel, в която искате да конвертирате PDF файл.
- След това отидете в менюто „Файл“ и щракнете върху опцията „Запазване като“.
- След това в прозореца „Запазване като“ изберете „PDF“От падащия списък на„ Запазване като тип “.
- След това щракнете върху бутона „Опции“ в прозореца „Запазване като“.
- След това в следващия диалогов прозорец „Опции“ изберете „Цялата работна книга“.
- Накрая щракнете върху „OK“ и „Save“, за да завършите конвертирането.
- По този начин можете да конвертирате останалите работни книги на 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, ", Select, aFolder (0,", Select, Folder (1, ",", "Изберете")) XNUMX, "") Ако не objWindowsFolder е нищо, тогава strWindowsFolder = objWindowsFolder.self.Path & "\" Call ProcessFolders (strWindowsFolder) 'Отваряне на папката на Windows Shell "Explorer.exe" & "" & strWindowsFolder, vbNormalFocus End If End Sub Sub ProcessFolders (strPath Както стринга) Дим objFileSystem Като обект Дим objFolder Като обект Дим objFile Като обект Дим objExcelFile Като обект Дим objWorkbook Както Excel.Workbook Дим strWorkbookName Както стринга Комплект objFileSystem = CreateObject ( "Scripting.FileSystemObject") Комплект 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 (strFileExtention)) -XNUMX) objWorkbook.ExmatypeAx:PDF, Име на файла: = strPath & strWorkbookName & ".pdf"objWorkbook.Close False End If Next 'Обработвайте всички папки и подпапки Ако objFolder.SubFolders.Count> 0 Тогава за всеки objSubFolder В objFolder.SubFolders If ((objSubFolder.Attributes And 2) = 0) И ((objSubFolder.Attributes.Attributes.Attributes. ) = 4) Тогава ProcessFolders (objSubFolder.Path) End If Next End If End Sub
- След това кликнете върху първата подпрограма и натиснете клавиша “F5”.
- В изскачащия диалогов прозорец изберете конкретната папка на Windows, където се събират файловете на Excel.
- След това щракнете върху „OK“.
- Когато макросът завърши, ще се отвори папката на Windows, в която можете да видите PDF файлове, като следната екранна снимка.
сравнение
| Предимства | Недостатъци | |
| Метод 1 | Доста лесен за работа | Твърде обезпокоително при конвертиране на множество работни книги на Excel |
| Метод 2 | Много по-удобен и бърз от Метод 1 при обработка на много работни книги | Потребителите трябва да внимават с външните злонамерени макроси. |
В случай на повреда на файлове в Excel
Множество потребители на Excel някога са изпитвали повреда на файлове в Excel. Понякога родната функция за възстановяване на Excel може да възстанови корумпиран Excel файл. И все пак понякога не може. Поради това е силно препоръчително да подготвите мощен инструмент за корекция на Excel, като например DataNumen Excel Repair.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстанови sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com