ตรวจสอบและปรับปรุงไฟล์ 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] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
ปรับตรงนี้ครับtulkavin wrote: Tue Nov 20, 2018 6:38 pm ตามไฟล์แนบนะครับ
พอกดแล้วมาติดที่ activeworkbook
เพิ่มเติม ถ้าเราต้องการให้เซฟไปที่ path เดิมของไฟล์ที่อยู่ ให้ get ข้อมูลนั้นมายังได้ครับ
ขอบคุณครับ
Code: Select all
Sub Button1_คลิก()
With Sheets("Sheet1")
Dim Path As String
Dim SaveQT As String
Dim SaveNo As String
Dim SaveName As String
Dim SaveMark As String
SaveQT = .Range("D11").Value
SaveNo = .Range("D12").Value
SaveName = .Range("D4").Value
SaveMark = .Range("F4").Value
Path = "c:\"
ActiveWorkbook.SaveAs Filename:=Path & SaveQT & "\" & SaveNo & "\" & SaveName & "\" & SaveMark & ".xls", FileFormat:=xlNormal
End With
End Sub
