Hoe Excel-bestanden naar PDF wijzigen of exporteren?
Hieronder staan de voorbeelden van het exporteren van Excel-bestanden naar PDF.
Voorbeeld 1
Sla spreadsheet op als pdf-bestand!
Kijk bijvoorbeeld naar de onderstaande gegevens of grafiek, die de hiërarchie van de afdeling in een organisatie laat zien.
We kunnen gewoon Opslaan als kiezen in de optie Bestand en het Opslaan als type kiezen als "PDF".
Dit zou het bestand nog steeds als pdf maken, maar kijk, hoe het eruit ziet als je het opent.
In PDF is het in twee verschillende bladen beschikbaar, wat absoluut nergens op slaat. Als u alleen Opslaan als gebruikt en het bestandstype als PDF kiest, is dit wat er gebeurt als de inhoud van het bestand of de spreadsheet meer is dan het pasgebied van een enkel PDF-blad.
Hiervoor moeten we het inhoudsgebied selecteren dat we proberen op te slaan als een pdf-bestand. Druk vervolgens op Ctrl + P om onder het afdrukvoorbeeldvenster te openen.
Kies onder Instellingen de optie 'Blad op één pagina passen'.
Klik nu op Opslaan als in hetzelfde venster en kies PDF als het bestandstype.
Hierdoor worden de volledige gegevens op een enkele PDF-pagina geplaatst.
Dit is de gebruikelijke techniek die we allemaal regelmatig hebben gebruikt.
Maar wat als een knop een pdf-bestand van de Excel-spreadsheet kan produceren ??? Ja, dit kan gedaan worden door VBA Coding te gebruiken; volg de onderstaande stappen om VBA-code te maken om het Excel-blad als PDF te converteren.
Voorbeeld # 2 - VBA-code gebruiken
Stappen om een Excel-blad naar PDF te converteren met VBA-code.
Stap 1: declareer variabelen in VBA, zoals hieronder weergegeven.
Stap 2: Stel nu werkmap- en werkbladverwijzing in op variabelen "Ws" en "Wb."
Stap 3: Om het bestand een naam te geven, moeten we de huidige tijd opnemen, dat wil zeggen, het tijdstip waarop de code wordt uitgevoerd. Stel de tijd in op de variabele 'SaveTime'.
Stap 4: Nu moeten we het pdf-bestand opslaan op de exacte locatie van de werkmap waaraan we werken. Wijs deze waarde toe aan de variabele 'Pad opslaan'.
Stap 5: Nu moeten we de bestandsnamen en tijd combineren om een unieke bestandsnaam te maken.
Stap 6: We moeten de optie geven om het bestemmingspad te kiezen om het bestand op te slaan.
Stap 7: Nu moeten we een pdf-bestand maken.
In het geval dat er een fout optreedt, moeten we dit ook afhandelen. Dus onderstaande code zal hetzelfde doen.
Hieronder vindt u de volledige code voor u.
Code:
Sub Excel_To_PDF () 'Variabelen declareren 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' Variabelen bij fout instellen GoTo EH Set Wb = ActiveWorkbook Set Ws = ActiveSheet 'Record huidige tijd SaveTime = Formaat (Now (), "jjjj mm dd _ hhmm")' Record huidige werkmap pad pad Adres SavePath = Wb.Path If SavePath = "" Then SavePath = Application.DefaultFilePath End If SavePath = SavePath & " " 'Geef bestand een naam SaveName = "PDF" FileName = SaveName & "_" & SaveTime & ".pdf"' Instruct Where to save FullPath = SavePath & FileName 'Mappenkiezer inschakelen om te kiezen waar te bewaren het bestand SelectFolder = Application.GetSaveAsFilename _ (InitialFileName: = FullPath, _ FileFilter: = "PDF-bestanden (* .pdf), * .pdf", _ Title: = "Selecteer map en bestandsnaam om op te slaan") 'Maak een PDF-bestand als de geselecteerde map "False" is, dan Ws .ExportAsFixedFormat _ Type: = xlTypePDF, _ Bestandsnaam: = SelectFolder, _ Kwaliteit: = xlQualityStandard, _ includeDocProperties: = True, _ IgnorePrintAreas: = False, _ OpenAfterPublish: = False End If exitHandler: Sub EH afsluiten ": MsgBox" maak een PDF-bestand "Resume exitHandler End Sub= False, _ OpenAfterPublish: = False End If exitHandler: Exit Sub EH: MsgBox "Kan geen PDF-bestand maken" Hervat exitHandler End Sub= False, _ OpenAfterPublish: = False End If exitHandler: Exit Sub EH: MsgBox "Kan geen pdf-bestand maken" Hervat exitHandler End Sub
Kopieer deze code en plak in de module van de Visual Basic Editor om de Visual Basic Editor te openen druk op alt = "" + F11. Wanneer we deze code uitvoeren door op de F5-toets te drukken, krijgen we de volgende optie.
U kunt zien dat uw Excel-bestand nu is geconverteerd naar PDF.
Dingen om te onthouden
- Als de gegevens niet geschikt genoeg zijn voor een enkele pagina, zal PDF de extra inhoud naar het volgende blad pushen.
- Deze code maakt de volledige inhoud van het werkblad als een pdf-bestand.
- Nadat u de macrocode hebt gekopieerd, moet u de werkmap opslaan als werkmap met ingeschakelde macro's.
