วิธีแปลงสมุดงานหรือแผ่นงานเป็นไฟล์ PDF พร้อมกันใน Excel ได้อย่างไร?
ในบางครั้งคุณต้องแปลงไฟล์ Excel ของคุณเป็นไฟล์ PDF เพื่อไม่ให้ผู้อื่นแก้ไขได้ ใน Excel เราสามารถบันทึกไฟล์ Excel เป็นไฟล์ PDF ได้โดยใช้ฟังก์ชันบันทึกเป็น แต่คุณจะแปลงสมุดงานหลาย ๆ ไฟล์เป็นไฟล์ PDF พร้อมกันใน Excel ได้อย่างไร?
- แปลงสมุดงานหลายเล่มเป็นไฟล์ PDF ด้วยฟังก์ชันบันทึกเป็นทีละไฟล์
- แปลงสมุดงานหลายเล่มเป็นไฟล์ PDF ด้วยรหัส VBA พร้อมกัน
- แปลงสมุดงานหลายเล่มเป็นไฟล์ PDF ด้วยคุณสมบัติอันทรงพลัง
- แปลงแผ่นงานหลายแผ่นจากสมุดงานเป็นไฟล์ PDF แยกกันด้วยรหัส VBA
- แปลงแผ่นงานหลายแผ่นจากสมุดงานเป็นไฟล์ PDF แยกกันด้วยคุณสมบัติที่สะดวก
แปลงสมุดงานหลายเล่มเป็นไฟล์ PDF ด้วยฟังก์ชันบันทึกเป็นทีละไฟล์
โดยปกติแล้วคุณลักษณะบันทึกเป็นใน Excel สามารถช่วยคุณในการบันทึกเวิร์กบุ๊กทั้งหมดเป็นไฟล์ PDF ได้โปรดดำเนินการดังนี้:
1. เปิดสมุดงานที่คุณต้องการแปลงเป็นรูปแบบ PDF
2. คลิก เนื้อไม่มีมัน > บันทึกเป็น, และใน บันทึกเป็น โปรดระบุโฟลเดอร์สำหรับบันทึกไฟล์ใหม่จากนั้นเลือก รูปแบบไฟล์ PDF จาก บันทึกเป็นชนิด รายการแบบหล่นลงจากนั้นคลิก Options ปุ่มดูภาพหน้าจอ:
3. จากนั้นในโผล่ออกมา Options กล่องโต้ตอบตรวจสอบ สมุดงานทั้งหมดดูภาพหน้าจอ:
4. จากนั้นคลิก OK > ลดสมุดงานทั้งหมดนี้ได้รับการบันทึกเป็นรูปแบบไฟล์ PDF
แปลงสมุดงานหลายเล่มเป็นไฟล์ PDF ด้วยรหัส VBA พร้อมกัน
หากจำเป็นต้องแปลงไฟล์ Excel หลายร้อยไฟล์วิธีการข้างต้นจะเป็นปัญหาที่นี่ฉันจะพูดถึงรหัส VBA สำหรับการแปลงสมุดงานหลายไฟล์เป็นไฟล์ PDF ในคราวเดียวโปรดทำตามขั้นตอนต่อไปนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: แปลงสมุดงานหลายเล่มเป็นไฟล์ PDF พร้อมกัน
Sub ExcelSaveAsPDF()
'Updateby Extendoffice
Dim strPath As String
Dim xStrFile1, xStrFile2 As String
Dim xWbk As Workbook
Dim xSFD, xRFD As FileDialog
Dim xSPath As String
Dim xRPath, xWBName As String
Dim xBol As Boolean
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.Title = "Please select the folder contains the Excel files you want to convert:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
With xRFD
.Title = "Please select a destination folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xRFD.Show <> -1 Then Exit Sub
xRPath = xRFD.SelectedItems.Item(1) & "\"
strPath = xSPath & "\"
xStrFile1 = Dir(strPath & "*.*")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While xStrFile1 <> ""
xBol = False
If Right(xStrFile1, 3) = "xls" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xls", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsx" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
xBol = True
ElseIf Right(xStrFile1, 4) = "xlsm" Then
Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
xBol = True
End If
If xBol Then
xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
xWbk.Close SaveChanges:=False
End If
xStrFile1 = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และหน้าต่างจะปรากฏขึ้นโปรดเลือกโฟลเดอร์ที่มีสมุดงานที่คุณต้องการแปลงดูภาพหน้าจอ:
4. จากนั้นคลิก OKมีหน้าต่างอื่นโผล่ขึ้นมาโปรดเลือกเส้นทางโฟลเดอร์ที่คุณต้องการส่งออกไฟล์ PDF ใหม่ดูภาพหน้าจอ:
5. จากนั้นคลิก OKหลังจากเสร็จสิ้นการแปลงคุณสามารถไปที่โฟลเดอร์ที่ระบุเพื่อดูตัวอย่างผลลัพธ์ที่แปลงแล้วดูภาพหน้าจอ:
 |
 |
 |
แปลงสมุดงานหลายเล่มเป็นไฟล์ PDF ด้วยคุณสมบัติอันทรงพลัง
ถ้าคุณมี Kutools สำหรับ Excelเดียวกันกับที่ ตัวแปลงรูปแบบ ยูทิลิตี้คุณสามารถแปลงสมุดงานหลายเล่มเป็นไฟล์ PDF พร้อมกันได้อย่างรวดเร็ว
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:
1. คลิก Kutools พลัส > สมุดงาน > ตัวแปลงรูปแบบดูภาพหน้าจอ:
2. และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนว่าคุณต้องปิดสมุดงานที่คุณต้องการแปลง
3. คลิก OKจากนั้นในไฟล์ ตัวแปลง FileFormat กล่องโต้ตอบระบุตัวเลือกต่อไปนี้:
- ภายใต้ ประเภทการแปลง รายการแบบหล่นลงเลือก สมุดงาน Excel เป็น PDF;
- จากนั้นคลิก เพิ่ม เพื่อเพิ่มไฟล์ Excel ที่คุณต้องการแปลงคุณสามารถเพิ่มเวิร์กบุ๊กจากดิสก์คอมพิวเตอร์ของคุณหรือ OneDrive ได้ตามที่คุณต้องการ
4. หลังจากใส่สมุดงานที่คุณต้องการแปลงแล้วยังคงอยู่ในไฟล์ ตัวแปลงรูปแบบไฟล์ โปรดคลิก 
เพื่อเลือกเส้นทางโฟลเดอร์หนึ่งเพื่อส่งออกไฟล์ที่แปลงแล้วระบุการดำเนินการบางอย่างที่คุณต้องการที่ด้านล่างของกล่องโต้ตอบดูภาพหน้าจอ:
- หากจำเป็นต้องแปลงสมุดงานในโฟลเดอร์ย่อยด้วยเช่นกันโปรดตรวจสอบไฟล์ รวมโฟลเดอร์ย่อยเมื่อเพิ่มโฟลเดอร์ กล่องกาเครื่องหมาย;
- หากคุณต้องการลบไฟล์ต้นฉบับออกหลังจากการแปลงโปรดตรวจสอบไฟล์ ลบไฟล์ต้นฉบับหลังการแปลง กล่อง;
- หากคุณต้องการเก็บวันที่แก้ไขของไฟล์ต้นฉบับไว้โปรดตรวจสอบไฟล์ เก็บวันที่แก้ไขของไฟล์ต้นฉบับ กล่อง;
- โครงสร้างไดเร็กทอรีของไฟล์สามารถรักษาไว้ได้โดยการตรวจสอบไฟล์ โครงสร้างไดเร็กทอรีของไฟล์จะถูกเก็บรักษาไว้เมื่อถูกแปลง กล่อง;
5. จากนั้นคลิก OK เพื่อเริ่มการแปลงเมื่อไฟล์ Excel ที่ระบุทั้งหมดถูกแปลงเป็นไฟล์ PDF คุณสามารถไปที่โฟลเดอร์ที่ระบุเพื่อดูตัวอย่างผลลัพธ์ที่แปลงแล้วดูภาพหน้าจอ:
|
|
|
แปลงแผ่นงานหลายแผ่นจากสมุดงานเป็นไฟล์ PDF แยกกันด้วยรหัส VBA
ในบางกรณีคุณอาจต้องการแปลงแผ่นงานแต่ละแผ่นในสมุดงานเป็นไฟล์ PDF แยกกันหากมีแผ่นงานจำนวนมากในสมุดงานของคุณรหัส VBA ด้านล่างสามารถช่วยให้คุณบันทึกแผ่นงานแต่ละแผ่นเป็นไฟล์ PDF ได้ในคราวเดียว
1. เปิดสมุดงานที่คุณต้องการแปลงจากนั้นกดไฟล์ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: แปลงแผ่นงานหลายแผ่นจากสมุดงานเป็นไฟล์ PDF แยกกัน
Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และหน้าต่างจะโผล่ออกมาโปรดเลือกเส้นทางโฟลเดอร์สำหรับค้นหาไฟล์ PDF ที่แปลงแล้วดูภาพหน้าจอ:
4. จากนั้นคลิก OK แผ่นงานทั้งหมดในสมุดงานปัจจุบันได้รับการแปลงไฟล์ PDF แยกกันดูภาพหน้าจอ:
แปลงแผ่นงานหลายแผ่นจากสมุดงานเป็นไฟล์ PDF แยกกันด้วยคุณสมบัติที่สะดวก
Kutools สำหรับ Excel ยังรองรับคุณสมบัติที่มีประโยชน์ - แยกสมุดงานด้วยคุณสมบัตินี้คุณสามารถบันทึกแผ่นงานหลายแผ่นภายในสมุดงานเพื่อแยกไฟล์ Excel ไฟล์ Txt ไฟล์ CSV และไฟล์ PDF ได้ตามที่คุณต้องการ
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:
1. เปิดสมุดงานที่คุณต้องการบันทึกแต่ละแผ่นเป็นไฟล์ PDF จากนั้นคลิก คูทูลพลัส > สมุดงาน > แยกสมุดงานดูภาพหน้าจอ:
2. ใน แยกสมุดงาน กล่องโต้ตอบตรวจสอบแผ่นงานที่คุณต้องการบันทึกจากนั้นเลือก PDF (* .pdf) จาก บันทึกเป็นชนิด รายการแบบหล่นลงจากนั้นคลิก แยก ในปุ่ม เลือกโฟลเดอร์ หน้าต่างระบุโฟลเดอร์สำหรับใส่ไฟล์ที่แปลงแล้วดูภาพหน้าจอ:
 |
|
 |
3. จากนั้นแผ่นงานที่เลือกทั้งหมดในสมุดงานปัจจุบันจะถูกบันทึกเป็นไฟล์ PDF ทีละไฟล์ดูภาพหน้าจอ:
บทความที่เกี่ยวข้องเพิ่มเติม:
- แปลงไฟล์ Xls หลายไฟล์เป็นไฟล์ Xlsx ใน Excel
- ในการแปลงไฟล์ xls Excel เก่าเป็นไฟล์ xlsx ใหม่คุณสามารถใช้คุณสมบัติบันทึกเป็นใน Excel ได้ แต่ถ้ามีไฟล์ xls หลายไฟล์ที่ต้องแปลงจะจัดการกับงานนี้อย่างรวดเร็วและง่ายดายได้อย่างไร?
- บันทึกแผ่นงานทั้งหมดเป็นค่าเท่านั้น
- หากคุณมีสมุดงานที่มีหลายสูตรตอนนี้คุณต้องแจกจ่ายไฟล์นี้ให้กับผู้ใช้คนอื่นคุณไม่ต้องการแสดงสูตร แต่จะแสดงเฉพาะค่าเท่านั้น โดยปกติเราสามารถบันทึกแผ่นงานเป็นค่าได้อย่างรวดเร็วโดยการคัดลอกและวางข้อมูลเป็นค่าเท่านั้น แต่คุณจะบันทึกแผ่นงานทั้งหมดเป็นค่าโดยไม่ต้องคัดลอกและวางทีละแผ่นได้อย่างไร?
- ปุ่มคำสั่งเพื่อบันทึกแผ่นงานที่ใช้งานเป็นไฟล์ PDF
- ขณะทำงานใน Microsoft Excel คุณอาจประสบปัญหาในการบันทึกแผ่นงานที่ใช้งานอยู่เป็นไฟล์ PDF ในบทความนี้คุณสามารถเรียนรู้วิธีบันทึกแผ่นงานที่ใช้งานอยู่เป็นไฟล์ PDF ด้วยรหัส VBA ผ่านปุ่มคำสั่ง และถ้าคุณต้องการบันทึกช่วงหรือแต่ละแผ่นงานในสมุดงานที่ใช้งานเป็นไฟล์ PDF แต่ละแผ่นบทความนี้ยังช่วยคุณได้
- แบ่งตารางขนาดใหญ่ออกเป็นตารางเล็ก ๆ หลาย ๆ โต๊ะ
- หากคุณมีเวิร์กชีตขนาดใหญ่ซึ่งมีหลายคอลัมน์และข้อมูลหลายร้อยหรือหลายพันแถวตอนนี้คุณต้องการแบ่งตารางขนาดใหญ่นี้ออกเป็นตารางเล็ก ๆ หลายตารางโดยยึดตามค่าคอลัมน์หรือจำนวนแถวเพื่อให้ได้ผลลัพธ์ต่อไปนี้ คุณจะจัดการกับงานนี้ใน Excel ได้อย่างไร?
- แยกสมุดงานเพื่อแยกไฟล์ Excel
- คุณอาจต้องแยกสมุดงานขนาดใหญ่เพื่อแยกไฟล์ Excel โดยบันทึกแต่ละแผ่นงานของสมุดงานเป็นไฟล์ Excel แต่ละแผ่น ตัวอย่างเช่นคุณสามารถแบ่งสมุดงานออกเป็นไฟล์ Excel หลายไฟล์จากนั้นส่งแต่ละไฟล์ไปยังบุคคลอื่นเพื่อจัดการกับมัน ด้วยการทำเช่นนี้คุณจะได้รับบุคคลบางคนจัดการกับข้อมูลบางอย่างและรักษาข้อมูลของคุณให้ปลอดภัย บทความนี้จะแนะนำวิธีแยกสมุดงานขนาดใหญ่เพื่อแยกไฟล์ Excel ตามแต่ละแผ่นงาน
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
