Kā mainīt vai eksportēt Excel failus PDF formātā?
Tālāk ir minēti Excel failu eksportēšanas PDF formātā piemēri.
1. piemērs
Saglabājiet izklājlapu kā PDF failu!
Piemēram, apskatiet zemāk redzamos datus vai diagrammu, kurā parādīta departamenta hierarhija organizācijā.
Mēs vienkārši varam izvēlēties Saglabāt kā no opcijas Fails un izvēlēties Saglabāt kā veidu kā “PDF”.
Tas joprojām būtu fails kā PDF, bet izskatās, kā tas izskatās, atverot to.
PDF formātā tas ir pieejams divās dažādās lapās, kurām nav absolūti jēgas. Ja jūs vienkārši izmantojat Saglabāt kā un faila tipu izvēlaties kā PDF, tas notiek, ja faila vai izklājlapas saturs ir lielāks nekā vienas PDF lapas atbilstošais laukums.
Šim nolūkam mums ir jāizvēlas satura apgabals, kuru mēs cenšamies saglabāt kā PDF failu. Pēc tam nospiediet Ctrl + P, lai atvērtu zem drukas priekšskatījuma loga.
Sadaļā Iestatījumi izvēlieties “Ievietot lapu vienā lapā”.
Tagad tajā pašā logā noklikšķiniet uz Saglabāt kā un kā faila tipu izvēlieties PDF.
Tas visus datus ievietos vienā PDF lapā.
Šī ir izplatītā tehnika, ko mēs visi regulāri esam izmantojuši.
Tomēr, ja poga var radīt Excel izklājlapas PDF failu ??? Jā, to var izdarīt, izmantojot VBA kodēšanu; veiciet tālāk norādītās darbības, lai izveidotu VBA kodu, lai Excel lapu pārvērstu par PDF.
2. piemērs - VBA koda izmantošana
Darbības, lai Excel lapu pārveidotu par PDF, izmantojot VBA kodu.
1. darbība: deklarējiet mainīgos VBA, kā parādīts zemāk.
2. solis: Tagad iestatiet darbgrāmatas un darblapas atsauci uz mainīgajiem lielumiem “Ws” un “Wb”.
3. solis: Lai piešķirtu failam nosaukumu, mums jāreģistrē pašreizējais laiks, ti, laiks koda palaišanas laikā. Iestatiet laiku mainīgajam “SaveTime”.
4. solis: Tagad mums jāsaglabā PDF fails precīzā darbgrāmatas vietā, pie kuras mēs strādājam. Piešķiriet šo vērtību mainīgajam “Saglabāt ceļu”.
5. solis: Tagad mums jāapvieno failu nosaukumi un laiks, lai izveidotu unikālu faila nosaukumu.
6. solis: Mums jāsniedz iespēja izvēlēties mērķa ceļu faila saglabāšanai.
7. solis: Tagad mums jāizveido PDF fails.
Gadījumā, ja rodas kāda kļūda, mums tas jārisina arī. Tātad zem koda darīs to pašu.
Zemāk ir pilns jūsu kods.
Kods:
Sub Excel_To_PDF () 'Deklarēt mainīgos Dim Ws kā darblapu Dim Wb kā darbgrāmatu Dim SaveTime kā virkni Dim SaveName kā virkni Dim DimPage As String Dim FileName kā String Dim DimPathPath kā String Dim SelectFolder As Variant' Iestatiet mainīgos pēc kļūdas GoTo EH Set Wb = ActiveWorkbook Iestatiet Ws = ActiveSheet 'Ierakstīt pašreizējo laiku SaveTime = Formatēt (Tagad (), "gggg mm dd _ hhmm") "Ierakstīt pašreizējās darbgrāmatas mapes ceļa adresi SavePath = Wb.Path Ja SavePath =" "Tad SavePath =" Application.DefaultFilePath Beigt, ja SavePath = SavePath & " " 'Piešķiriet failam nosaukumu SaveName = "PDF" FileName = SaveName & "_" & SaveTime & ".pdf"' Norādījums, kur saglabāt FullPath = SavePath & FileName 'Iespējojiet mapes atlasītāju, lai izvēlētos, kur saglabāt fails SelectFolder = Lietojumprogramma.GetSaveAsFilename _ (InitialFileName: = FullPath, _ FileFilter: = "PDF faili (* .pdf), * .pdf", _ Title: = "Atlasiet mapi un faila nosaukumu, lai saglabātu") 'Izveidot PDF failu, ja SelectFolder "Nepatiesa", tad Ws .ExportAsFixedFormat _ Type: = xlTypePDF, _ FileName: = SelectFolder, _ Quality: = xlQualityStandard, _ IncludeDocProperties: = True, _ IgnorePrintAreas: = False, _ OpenAfterPublish: = False End If exitHandler: Exit Sub EH: Msg izveidot PDF failu "Resume exitHandler End Sub= False, _ OpenAfterPublish: = False End if exitHandler: Exit Sub EH: MsgBox "Nevar izveidot PDF failu" Resume exitHandler End Sub= False, _ OpenAfterPublish: = False End if exitHandler: Exit Sub EH: MsgBox "Nevar izveidot PDF failu" Resume exitHandler End Sub
Nokopējiet šo kodu un ielīmējiet Visual Basic redaktora modulī, lai atvērtu Visual Basic redaktoru, nospiediet alt = "" + F11. Palaižot šo kodu, nospiežot taustiņu F5, mēs iegūstam šādu iespēju.
Var redzēt, ka jūsu Excel fails tagad ir pārveidots par PDF.
Atceramās lietas
- Ja dati nav pietiekami derīgi vienai lapai, tad PDF ievietos papildu saturu nākamajā lapā.
- Šis kods izveidos visu darblapas saturu kā PDF failu.
- Kad esat nokopējis makro kodu, darbgrāmata jāsaglabā kā makro iespējota darbgrāmata.
