ตรวจสอบและปรับปรุงไฟล์ 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] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
)Code: Select all
If Left(obj.Name, 4) = "Pict" Then
obj.Delete
End If
ไม่พบ Code ที่แจ้งมาไฟล์แนบ กรุณาแนบไฟล์ที่ได้เพิ่ม Code นี้เอาไว้แล้วจะได้ดูต่อไปจากนั้นครับ
Code: Select all
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & Range("B6").Value & " " _
& Range("b8").Value & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=True, _
OpenAfterPublish:=TrueCode: Select all
With Range("F16:I28")
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
Filename:="C:\Users\Mold\Desktop\PDF\111\" & k & ".jpg", LinkToFile:=False, _
SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
Width:=.Width - 5, Height:=.Height)
End WithActiveWorkbook.Path & "\" ตามcodeที่ผมอ้างอิงเลยครับsnasui wrote: Tue Oct 22, 2019 7:44 pmActiveWorkbook.Path & "\"
หากต้องการจะเก็บอะไรไว้ในที่เดียวกันก็ให้อ้างอิง Code นี้นำด้านหน้า ที่เหลือก็เป็นชื่อไฟล์ครับ
ดึงไฟล์หรือเก็บไฟล์ก็ใช้ Path เดียวกันได้ทั้งหมดแตกต่างกันที่ชื่อไฟล์ครับตอนนี้ขอลองทำตามคำแนะนำของอาจารย์ก่อนครับsnasui wrote: Tue Oct 22, 2019 9:33 pm
ไม่ทราบว่ามีประเด็นอะไรที่นอกเหนือจากนี้หรือไม่ กรุณาอธิบายให้ละเอียด ควรจะลองเขียนดูด้วยจะได้เห็นภาพครับ
หากมีปัญหาอย่าลืมแนบ Code นั้นมากับไฟล์ประกอบคำถามทุกครั้งครับ