Snasui Excel Forum

:D ได้ทดสอบตาม Link ในโพสต์ #4 แล้วหรือไม่ ทดสอบแล้วได้ผลเป็นอย่างไรครับ :?:

Code ที่ Update ทั้งหมดอยู่ที่ https://www.di-mgt.com.au/basUtf8FromString64.bas.html ลองนำไปประยุกด์ดูก่อนครับ

ยังติดปัญหา แก้ไขยังไม่ได้เลยครับ รบกวนช่วยหน่อยครับ

[quote=logic post_id=95769 time=1567583105 user_id=126]
เกี่ยวกับ utf-8 หรือเปล่าครับ ~~> https://www.di-mgt.com.au/howto-convert-vba-unicode-to-utf8.html
[/quote]

พอจะแนะนำการเขียนได้ไหมครับ ผมมือใหม่ VBA เลยครับ

เกี่ยวกับ utf-8 หรือเปล่าครับ ~~> https://www.di-mgt.com.au/howto-convert-vba-unicode-to-utf8.html

เป็น RESTful API ธรรมดาครับ เขียนด้วย node js + request ไม่ใช่ SQL ครับ
มีตัวแปรรับค่า parameter msg กับ parameter box ครับ

:D ส่งไปใน Server หมายถึง SQL Server หรืออย่างไรครับ

การกำหนดให้แสดงภาษาไทยใน SQL จะเลือกกำหนด Data Type เป็น nvarchar นอกจากนั้นในการส่งค่าเข้าไปให้ครอบด้วย N เช่น N'Val' เป็นต้น ครับ

ต้องลองสอบถามผู้เขียน API ว่ามีการส่งข้อมูลเข้า Database โดยใช้ Statment SQL อย่างไร ลองทดสอบเป็นแบบที่ผมได้กล่าวมาได้หรือไม่ จะได้ทราบว่าได้ผลหรือไม่ อย่างไรครับ

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 ผ่านรูปแบบ api ครับ
เบื้องต้น ตอนนี้สามารถส่งได้แล้วครับ ภาษาอังกฤษ และตัวเลข
แต่ติดปัญหาเรื่องการส่งภาษาไทยครับ ค่าที่ได้รับเป็น ������
ไม่ทราบว่าต้องการยังไงครับผม


[code]
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



[/code]