Kuidas muuta või eksportida Exceli faile PDF-i?
Allpool on näited Exceli failide eksportimisest PDF-faili.
Näide 1
Salvestage arvutustabel PDF-failina!
Näiteks vaadake allolevaid andmeid või diagrammi, mis näitab organisatsiooni osakonna hierarhiat.
Saame lihtsalt valida suvandi Fail käsu Salvesta nimega ja valida tüübiks Salvesta nimega „PDF”.
See oleks fail endiselt PDF-failina, kuid vaata, kuidas see välja näeb, kui seda avate.
PDF-is on see tulnud kahes erinevas lehes, millel pole absoluutselt mingit mõtet. Kui kasutate lihtsalt Salvesta nimega ja valite failitüübiks PDF-faili, juhtub see siis, kui faili või arvutustabeli sisu on suurem kui ühe PDF-lehe sobiv ala.
Selleks peame valima sisupiirkonna, mida proovime PDF-failina salvestada. Seejärel vajutage prindi eelvaate akna all avamiseks klahvikombinatsiooni Ctrl + P.
Valige jaotises Seaded „Sobita leht ühele lehele”.
Nüüd klõpsake samas aknas nuppu Salvesta nimega ja valige failitüübiks PDF.
See mahutab kõik andmed ühele PDF-lehele.
See on levinud tehnika, mida me kõik oleme regulaarselt kasutanud.
Kuid mis siis, kui nupuga saab toota Exceli arvutustabeli PDF-faili ??? Jah, seda saab teha VBA kodeerimise abil; järgige alltoodud samme VBA-koodi loomiseks Exceli lehe teisendamiseks PDF-failina.
Näide # 2 - VBA-koodi kasutamine
Sammud Exceli lehe teisendamiseks PDF-failiks, kasutades VBA-koodi.
1. samm: deklareerige muutujad VBA-s, nagu allpool näidatud.
2. samm: määrake nüüd töövihiku ja töölehe viide muutujatele „Ws” ja „Wb”.
3. samm: failile nime andmiseks peame registreerima praeguse aja, st koodi käitamise ajal. Valige kellaajaks muutuja „SaveTime”.
4. samm: nüüd peame salvestama PDF-faili töövihiku täpsesse asukohta, millega töötame. Määrake see väärtus muutujale „Salvesta tee”.
5. samm: nüüd peame unikaalse failinime loomiseks ühendama failinimed ja aja.
6. samm: peame andma võimaluse valida faili salvestamiseks sihttee.
7. samm: nüüd peame looma PDF-faili.
Kui mõni viga tuleb, peame ka sellega hakkama saama. Nii et koodi all toimib sama.
Allpool on teie täielik kood.
Kood:
Sub Excel_To_PDF() 'Declare Variables Dim Ws As Worksheet 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 Set Ws = ActiveSheet 'Record Current Time SaveTime = Format(Now(), "yyyy mm dd _ hhmm") 'Record Current Workbook Folder Path Address SavePath = Wb.Path If SavePath = "" Then SavePath = Application.DefaultFilePath End If SavePath = SavePath & " " 'Give File a Name SaveName = "PDF" FileName = SaveName & "_" & SaveTime & ".pdf" 'Instruct Where to save FullPath = SavePath & FileName 'Enable folder picker to choose where to save the file SelectFolder = Application.GetSaveAsFilename _ (InitialFileName:=FullPath, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="Select Folder and FileName to save") 'Create PDF File If SelectFolder "False" Then Ws.ExportAsFixedFormat _ Type:=xlTypePDF, _ FileName:=SelectFolder, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End If exitHandler: Exit Sub EH: MsgBox "Not Able to create PDF file" Resume exitHandler End Sub
Kopeerige see kood ja kleepige Visual Basic Editori moodulisse Visual Basic Editori avamiseks vajutage alt = "" + F11. Kui käivitame selle koodi, vajutades klahvi F5, saame järgmise võimaluse.
Näete, et teie Exceli fail on nüüd teisendatud PDF-failiks.
Asjad, mida meeles pidada
- Kui andmed pole ühe lehe jaoks piisavalt sobivad, lükkab PDF täiendava sisu järgmisele lehele.
- Selle koodiga luuakse kogu töölehe sisu PDF-failina.
- Kui olete makrokoodi kopeerinud, peate töövihiku salvestama makrotoega töövihikuna.
