כשאתה עובד עם קובץ אקסל, אתה יכול לשמור קובץ אקסל כקובץ PDF עם זאת, זה כדי לשמור קובץ Excel אחד ב-PDF. כאשר אתה צריך להמיר כרטיסיות רבות של Excel לקובצי PDF בודדים, בצע את השלבים הבאים:
שלב 1: לחיצה על קיצור הדרך ' Alt + F11 ' כדי לפתוח את חלון Microsoft Visual Basic for Applications;
לחלופין, אנא לחץ על ' מפתח 'הכרטיסייה מהסרט ולחץ על' ויז'ואל בייסיק 'כדי לפתוח את החלון.
שלב 2: בחלון החדש, לחץ על ' לְהַכנִיס ' הכרטיסייה מהסרט ולחץ על ' מודול ';
שלב 3: העתק והדבק את הקודים הבאים בחלון המודול;
Sub ExportAsPDF()
Dim Folder_Path As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select Folder path"
If .Show = -1 Then Folder_Path = .SelectedItems(1)
End With
If Folder_Path = "" Then Exit Sub
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.ExportAsFixedFormat xlTypePDF, Folder_Path & Application.PathSeparator & sh.Name & ".pdf"
Next
MsgBox "Congratulations!"
End Sub
שלב 4: לחץ על ' הפעל את סאב כפתור ' (או הקש על מקש F5) כדי להפעיל את הקודים;
שלב 5: בחר את נתיב הקובץ שהם עומדים להישמר;
שלב 6: כל גליונות העבודה יישמרו כקבצי PDF בודדים בתיקייה.