Cum se schimbă sau se exportă fișiere Excel în PDF?
Mai jos sunt exemple de export de fișiere Excel în PDF.
Exemplul nr. 1
Salvați foaia de calcul ca fișier PDF!
De exemplu, priviți datele sau graficul de mai jos, care arată ierarhia departamentului într-o organizație.
Putem alege doar Salvare ca din opțiunea Fișier și putem alege tipul Salvare ca „PDF”.
Acest lucru ar fi în continuare fișierul ca PDF, dar uite cum arată când îl deschizi.
În PDF, a apărut în două foi diferite, care nu au absolut niciun sens. Dacă utilizați doar Salvați ca și alegeți tipul de fișier ca PDF, aceasta se întâmplă atunci când conținutul fișierului sau al foii de calcul este mai mult decât zona de potrivire a unei singure foi PDF.
Pentru aceasta, ceea ce trebuie să facem este să selectăm zona de conținut pe care încercăm să o salvăm ca fișier PDF. Apoi apăsați Ctrl + P pentru a deschide sub fereastra de previzualizare a imprimării.
Sub Setări, alegeți „Se potrivesc foaie pe o singură pagină”.
Acum faceți clic pe Salvare ca în aceeași fereastră și alegeți PDF ca tip de fișier.
Aceasta va încadra toate datele într-o singură pagină PDF.
Aceasta este tehnica obișnuită pe care am folosit-o cu toții în mod regulat.
Totuși, dacă un buton poate produce un fișier PDF al foii de calcul Excel ??? Da, acest lucru se poate face folosind codarea VBA; urmați pașii de mai jos pentru a crea cod VBA pentru a converti foaia Excel în format PDF.
Exemplul # 2 - Utilizarea codului VBA
Pași pentru a converti o foaie Excel în PDF folosind codul VBA.
Pasul 1: Declarați variabilele în VBA, așa cum se arată mai jos.
Pasul 2: acum setați referința din Caietul de lucru și Foaia de lucru la variabilele „Ws” și „Wb”.
Pasul 3: Pentru a da fișierului un nume, trebuie să înregistrăm ora curentă, adică ora la momentul executării codului. Setați ora la variabila „SaveTime”.
Pasul 4: Acum, trebuie să salvăm fișierul PDF în locația exactă a registrului de lucru la care lucrăm. Atribuiți această valoare variabilei „Salvați calea”.
Pasul 5: Acum, trebuie să combinăm numele fișierului și timpul pentru a crea un nume de fișier unic.
Pasul 6: trebuie să oferim opțiunea de a alege calea de destinație pentru a salva fișierul.
Pasul 7: Acum, trebuie să creăm un fișier PDF.
În cazul în care apare o eroare, trebuie să ne ocupăm și de aceasta. Deci codul de mai jos va face același lucru.
Mai jos este codul complet pentru dvs.
Cod:
Sub Excel_To_PDF () 'Declare Variables Dim Ws as Worksheet Dim Wb As Work Work Dim Save Time 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 Address SavePath = Wb.Path If SavePath = "" Then SavePath = Application.DefaultFilePath End If SavePath = SavePath & " " 'Give a File a Name SaveName = "PDF" FileName = SaveName & "_" & SaveTime & ".pdf"' Instrucțiuni Unde se salvează FullPath = SavePath & FileName 'Activați selectorul de foldere pentru a alege unde să salvați fișierul SelectFolder = Aplicație.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: creați fișierul PDF „Reluați exitHandler End Sub= False, _ OpenAfterPublish: = False End If exitHandler: Exit Sub EH: MsgBox "Nu este capabil să creeze fișier PDF" Reia exitHandler End Sub= False, _ OpenAfterPublish: = False End If exitHandler: Exit Sub EH: MsgBox "Nu este capabil să creeze fișier PDF" Reia exitHandler End Sub
Copiați acest cod și lipiți-l în modulul Editorului Visual Basic pentru a deschide editorul de bază vizual apăsați alt = "" + F11. Când rulăm acest cod apăsând tasta F5, obținem următoarea opțiune.
Puteți vedea că fișierul dvs. Excel este acum convertit în PDF.
Lucruri de amintit
- Dacă datele nu sunt suficient de potrivite pentru o singură pagină, atunci PDF va împinge conținutul suplimentar la foaia următoare.
- Acest cod va crea întregul conținut al foii de lucru ca fișier PDF.
- După ce copiați codul macro, trebuie să salvați registrul de lucru ca registru de lucru activat pentru macro.
