ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
รบกวนแนะนำการ Active code อยากให้ saveข้อมูลในหน้า File
Code: Select all
Sub LoopSheetsSaveAsPDF()
Application.ScreenUpdating = False
Dim ws As Worksheet
Dim SN As String
SN = Range("C3").Value
For Each ws In ActiveWorkbook.Worksheets
ws.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "/" & SN & ".pdf"
Next
Application.ScreenUpdating = True
MsgBox " Done "
End Sub
test.xlsb
คำว่า "ชีส" ควรเขียนเป็น "ชีต" ครับFor Each...Next เขียนไว้เพื่อ Loop อะไรครับFor Each... และ Next เป็น Comment หรือลบออกไปครับsnasui wrote: Mon Sep 07, 2020 1:09 pm
ตรงFor Each...Nextเขียนไว้เพื่อ Loop อะไรครับ
หากไม่ใช้ให้ MarkFor Each...และNextเป็น Comment หรือลบออกไปครับ
กรุณาระบุ Version ของ Excel ที่ใช้ด้วย ดูที่นี่ครับ http://snasui.com/viewtopic.php?f=6&p=103177#p103177
Code นั้นไม่ได้มีหน้าที่ตามที่อธิบายมา ให้ลบทิ้งไปได้เลย จากนั้นเปลี่ยน 
ws.ExportAsFixedFormat ไปเป็น ActiveSheet.ExportAsFixedFormat ครับsnasui wrote: Mon Sep 07, 2020 2:49 pmws.ExportAsFixedFormatไปเป็นActiveSheet.ExportAsFixedFormatครับ