Как да променяте или експортирате Excel файлове в PDF?
По-долу са дадени примерите за експортиране на Excel файлове в PDF.
Пример # 1
Запазете електронната таблица като PDF файл!
Например погледнете данните по-долу или диаграмата, която показва йерархията на отдела в дадена организация.
Можем просто да изберете Save As от опцията File и да изберете Save as като „PDF“.
Това ще остане файлът като PDF, но вижте как изглежда, когато го отворите.
В PDF се предлага в два различни листа, които абсолютно нямат никакъв смисъл. Ако просто използвате Save As и избирате типа на файла като PDF, това се случва, когато съдържанието на файла или електронната таблица е повече от площта на монтаж на един PDF лист.
За целта това, което трябва да направим, е да изберете областта на съдържанието, която се опитваме да запазим като PDF файл. След това натиснете Ctrl + P, за да отворите под прозореца за предварителен преглед.
Под Настройки изберете „Поставяне на лист на една страница“.
Сега кликнете върху Запазване като в същия прозорец и изберете PDF като тип файл.
Това ще побере всички данни в една PDF страница.
Това е често срещаната техника, която всички сме използвали редовно.
Какво обаче, ако бутон може да създаде PDF файл на електронната таблица на Excel ??? Да, това може да стане чрез използване на VBA кодиране; следвайте стъпките по-долу, за да създадете код на VBA за конвертиране на Excel листа като PDF.
Пример # 2 - Използване на VBA код
Стъпки за конвертиране на Excel лист в PDF с помощта на VBA код.
Стъпка 1: Декларирайте променливи във VBA, както е показано по-долу.
Стъпка 2: Сега задайте препратка към работна книга и работен лист към променливите „Ws“ и „Wb.“
Стъпка 3: За да дадем име на файла, трябва да запишем текущото време, т.е. времето в момента на стартиране на кода. Задайте времето на променливата „SaveTime“.
Стъпка 4: Сега трябва да запазим PDF файла на точното място на работната книга, по която работим. Задайте тази стойност на променливата „Запазване на пътя“.
Стъпка 5: Сега трябва да комбинираме имената на файловете и времето, за да създадем уникално име на файл.
Стъпка 6: Трябва да дадем възможност за избор на пътя на дестинацията, за да запазим файла.
Стъпка 7: Сега трябва да създадем PDF файл.
В случай на грешка, трябва да се справим и с това. Така че по-долу кодът ще направи същото.
По-долу е даден пълният код за вас.
Код:
Sub Excel_To_PDF () 'Деклариране на променливи Dim Ws As Workheet Dim Wb As Workbook Dim SaveTime As String Dim SaveName As String Dim SavePath As String Dim FileName As String Dim FullPath As String Dim SelectFolder As Variant' Set Variables On Error GoTo EH Set Wb = ActiveWorkbook Задайте Ws = ActiveSheet 'Record Current Time SaveTime = Format (Now (), "yyyy mm dd _ hhmm")' Record Current Workbook Folder Path Address SavePath = Wb.Path If SavePath = "" Тогава SavePath = Application.DefaultFilePath End If SavePath = SavePath & " " 'Дайте име на файла SaveName = "PDF" FileName = SaveName & "_" & SaveTime & ".pdf"' Инструктирайте къде да запазите FullPath = SavePath & FileName 'Активирайте инструмента за избор на папка, за да изберете къде да се запази файлът SelectFolder = Приложение.GetSaveAsFilename _ (InitialFileName: = FullPath, _ FileFilter: = "PDF файлове (* .pdf), * .pdf", _ Заглавие: = "Изберете папка и име на файл, за да запазите") 'Създаване на PDF файл, ако SelectFolder "False" Тогава Ws .ExportAsFixedFormat _ Тип: = xlTypePDF, _ Име на файла: = SelectFolder, _ Качество: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = False, _ OpenAfterPublish: = False End If exitHandhler: A ExitBG създаване на PDF файл "Възобновяване на излизане от Handhand End Sub= False, _ OpenAfterPublish: = False End If exitHandler: Exit Sub EH: MsgBox "Not Able to create PDF file" Resume exitHandler End Sub= False, _ OpenAfterPublish: = False End If exitHandler: Exit Sub EH: MsgBox "Not Able to create PDF file" Resume exitHandler End Sub
Копирайте този код и го поставете в модула на Visual Basic Editor, за да отворите редактора на visual basic, натиснете alt = "" + F11. Когато стартираме този код чрез натискане на клавиша F5, получаваме следната опция.
Можете да видите, че вашият Excel файл вече е преобразуван в PDF.
Неща за запомняне
- Ако данните не са подходящи за една страница, PDF ще изведе допълнителното съдържание на следващия лист.
- Този код ще създаде цялото съдържание на работния лист като PDF файл.
- След като копирате макрокода, трябва да запазите работната книга като Работна книга с активиран макрос.
