Kaip pakeisti arba eksportuoti „Excel“ failus į PDF?
Toliau pateikiami „Excel“ failų eksportavimo į PDF pavyzdžiai.
1 pavyzdys
Išsaugokite skaičiuoklę kaip PDF failą!
Pvz., Pažiūrėkite į toliau pateiktus duomenis ar diagramą, kurioje parodyta skyriaus hierarchija organizacijoje.
Mes tiesiog galime pasirinkti Išsaugoti kaip iš failo parinkties ir pasirinkti Įrašyti kaip tipą kaip „PDF“.
Tai vis tiek būtų failas kaip PDF, bet atrodytų, kaip jis atrodo, kai jį atidarote.
PDF formatu jis pateikiamas dviem skirtingais lapais, kurie visiškai neturi prasmės. Jei naudojate tik „Išsaugoti kaip“ ir rinkitės failo tipą kaip PDF, taip atsitinka, kai failo ar skaičiuoklės turinys yra didesnis nei vieno PDF lapo tinkama sritis.
Tam turime pasirinkti turinio sritį, kurią bandome išsaugoti kaip PDF failą. Tada paspauskite „ Ctrl“ + P, kad atsidarytumėte po spausdinimo peržiūros langu.
Skiltyje „Nustatymai“ pasirinkite „Talpinti lapą viename puslapyje“.
Dabar tame pačiame lange spustelėkite Išsaugoti kaip ir pasirinkite failo tipą PDF.
Tai sutalpins visus duomenis į vieną PDF puslapį.
Tai yra įprasta technika, kurią mes visi reguliariai naudojame.
Tačiau ką daryti, jei mygtukas gali sukurti „Excel“ skaičiuoklės PDF failą ??? Taip, tai galima padaryti naudojant VBA kodavimą; atlikite toliau nurodytus veiksmus, kad sukurtumėte VBA kodą konvertuoti „Excel“ lapą kaip PDF.
2 pavyzdys - VBA kodo naudojimas
Veiksmai, kaip konvertuoti „Excel“ lapą į PDF naudojant VBA kodą.
1 veiksmas: deklaruokite kintamuosius VBA, kaip parodyta žemiau.
2 žingsnis: Dabar nustatykite darbaknygės ir darbalapio nuorodą į kintamuosius „Ws“ ir „Wb“.
3 žingsnis: norėdami suteikti failui pavadinimą, turime įrašyti dabartinį laiką, ty laiką, kai vykdote kodą. Nustatykite laiką į kintamąjį „SaveTime“.
4 žingsnis: Dabar turime išsaugoti PDF failą tikslioje darbaknygės vietoje, su kuria dirbame. Priskirkite šią vertę kintamajam „Išsaugoti kelią“.
5 žingsnis: Dabar turime susieti failų pavadinimus ir laiką, kad sukurtume unikalų failo pavadinimą.
6 žingsnis: Turime suteikti galimybę pasirinkti paskirties kelią failui išsaugoti.
7 žingsnis: Dabar turime sukurti PDF failą.
Jei atsiranda kokių nors klaidų, turime tai spręsti ir mes. Taigi žemiau kodas padarys tą patį.
Žemiau yra visas jūsų kodas.
Kodas:
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
Nukopijuokite šį kodą ir įklijuokite į „Visual Basic“ redaktoriaus modulį, kad atidarytumėte „Visual Basic“ redaktorių, paspauskite alt = "" + F11. Paleidę šį kodą paspausdami klavišą F5, gausime šią parinktį.
Galite pamatyti, kad jūsų „Excel“ failas dabar konvertuotas į PDF.
Ką reikia atsiminti
- Jei duomenys nėra pakankamai tinkami vienam puslapiui, tada PDF perkels papildomą turinį į kitą lapą.
- Šis kodas sukurs visą darbalapio turinį kaip PDF failą.
- Nukopijavę makrokodą, turite išsaugoti darbaknygę kaip makrokomandą įgalinančią darbaknygę.
