การใช้งาน Export Data to JSON ในภาษา VBA แบบง่ายๆ

ในยุคของข้อมูลที่ไหลเวียนอยู่ตลอดเวลา การจัดการข้อมูลจึงเป็นเรื่องสำคัญที่ไม่สามารถละเลยได้ โดยเฉพาะการนำเสนอและแลกเปลี่ยนข้อมูลระหว่างระบบต่าง ๆ ในที่นี้เราจะมาพูดถึงการใช้ VBA (Visual Basic for Applications) ในการส่งออก (Export) ข้อมูลเป็น JSON (JavaScript Object Notation) ที่เป็นรูปแบบข้อมูลที่นิยมใช้กันแพร่หลายในปัจจุบัน

ทำไมต้องใช้ JSON?

JSON เป็นรูปแบบข้อมูลที่มีความยืดหยุ่น และอ่านง่าย ส่งผลให้การส่งข้อมูลระหว่าง API หรือระหว่างระบบต่าง ๆ เป็นไปอย่างมีประสิทธิภาพ JSON สามารถจัดการข้อมูลในรูปแบบของ Key-Value Pair และยังรองรับข้อมูลที่ซับซ้อนได้อีกด้วย

การเตรียมการ

ก่อนที่เราจะเริ่มเขียนโค้ด คุณต้องมีข้อมูลที่เราจะส่งออก ซึ่งสามารถเป็นข้อมูลใน Excel หรือข้อมูลในรูปแบบอื่น ๆ และเราต้องติดตั้ง Microsoft Scripting Runtime ในการจัดการไฟล์ JSON

ขั้นตอนการติดตั้ง Microsoft Scripting Runtime

1. เปิด Excel และกด Alt + F11 เพื่อเข้าสู่ Visual Basic for Applications

2. ไปที่เมนู `Tools` > `References`

3. ค้นหาและเลือก "Microsoft Scripting Runtime" แล้วกด OK

ตัวอย่างโค้ดในการ Export ข้อมูลเป็น JSON

ด้านล่างนี้เป็นตัวอย่างโค้ด VBA ที่เราจะใช้ในการส่งออกข้อมูลจาก Excel เป็นไฟล์ JSON

 Sub ExportToJSON()
    Dim ws As Worksheet
    Dim jsonFile As String
    Dim jsonString As String
    Dim lastRow As Long
    Dim i As Long
    Dim dataDictionary As Object
    Dim jsonFileHandle As Object

    ' กำหนด Worksheet ที่ใช้งาน
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' กำหนดชื่อไฟล์ JSON ที่จะสร้าง
    jsonFile = ThisWorkbook.Path & "\data.json"

    ' หาจำนวนแถวสุดท้ายที่มีข้อมูล
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' สร้าง Dictionary เพื่อเก็บข้อมูล
    Set dataDictionary = CreateObject("Scripting.Dictionary")

    ' ลูปผ่านข้อมูลใน Worksheet
    For i = 2 To lastRow  ' เริ่มที่ 2 เพื่อข้าม Header
        dataDictionary.Add ws.Cells(i, 1).Value, ws.Cells(i, 2).Value
    Next i

    ' แปลงข้อมูลเป็น JSON String
    jsonString = ConvertToJson(dataDictionary)

    ' สร้างไฟล์ JSON และเขียนข้อมูลลงไป
    Set jsonFileHandle = CreateObject("Scripting.FileSystemObject")
    With jsonFileHandle.CreateTextFile(jsonFile, True)
        .WriteLine jsonString
        .Close
    End With

    MsgBox "Data has been exported to " & jsonFile
End Sub

Function ConvertToJson(dict As Object) As String
    Dim json As String
    Dim key As Variant

    json = "{"
    For Each key In dict.Keys
        json = json & """" & key & """: """ & dict(key) & """, "
    Next key
    json = Left(json, Len(json) - 2)  ' ตัด ", " ท้ายสุดออก
    json = json & "}"

    ConvertToJson = json
End Function

อธิบายการทำงานของโค้ด

Use Case ในโลกจริง

การใช้ JSON ในการจัดการข้อมูลมีหลายกรณี เช่น

สรุป

การส่งออกข้อมูลไปยัง JSON ผ่านการใช้งาน VBA นั้นไม่ใช่เรื่องยากอย่างที่คิด โดยใช้โค้ดง่าย ๆ เพียงไม่กี่บรรทัด คุณก็สามารถสร้างข้อมูล JSON จาก Excel ได้แล้ว นอกจากจะช่วยในการจัดการข้อมูลได้สะดวกขึ้น ยังช่วยในการแลกเปลี่ยนข้อมูลระหว่างระบบต่าง ๆ ได้อย่างมีประสิทธิภาพ

หากคุณมีความสนใจในการเรียนรู้การเขียนโปรแกรมหรือการใช้ VBA ในการทำงานโปรดสอบถามข้อมูลเพิ่มเติมเกี่ยวกับการเรียนที่ EPT (Expert-Programming-Tutor) ที่เรามีคอร์สเรียนที่เหมาะสำหรับผู้เริ่มต้นและผู้ที่ต้องการพัฒนาทักษะของตัวเองให้ดีขึ้น!

หมายเหตุ: ข้อมูลในบทความนี้อาจจะผิด โปรดตรวจสอบความถูกต้องของบทความอีกครั้งหนึ่ง บทความนี้ไม่สามารถนำไปใช้อ้างอิงใด ๆ ได้ ทาง EPT ไม่ขอยืนยันความถูกต้อง และไม่ขอรับผิดชอบต่อความเสียหายใดที่เกิดจากบทความชุดนี้ทั้งทางทรัพย์สิน ร่างกาย หรือจิตใจของผู้อ่านและผู้เกี่ยวข้อง