ตรวจสอบและปรับปรุงไฟล์ 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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myURL As String
Dim postData As String, argstr As String
Dim winHttpReq As Object
Dim sh As Worksheet
Dim msg As String
Dim box As String
Dim strResult As String
For Each sh In Worksheets
msg = sh.Range(Target.Address).Value
box = Target.Address
Debug.Print box & "--" & msg
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
myURL = "https://book-queue-bot.herokuapp.com/excel&msg=" + msg + "&box=" + box
winHttpReq.Open "POST", myURL, False
winHttpReq.setRequestHeader "Content-Type", "application/json"
winHttpReq.Send
strResult = winHttpReq.ResponseText
Next
End Sub
ส่งไปใน Server หมายถึง SQL Server หรืออย่างไรครับพอจะแนะนำการเขียนได้ไหมครับ ผมมือใหม่ VBA เลยครับlogic wrote: Wed Sep 04, 2019 2:45 pm เกี่ยวกับ utf-8 หรือเปล่าครับ ~~> https://www.di-mgt.com.au/howto-convert ... -utf8.html
ได้ทดสอบตาม Link ในโพสต์ #4 แล้วหรือไม่ ทดสอบแล้วได้ผลเป็นอย่างไรครับ 
