การใช้งาน Using CURL ในภาษา VBA แบบง่ายๆ

ในโลกของการเขียนโปรแกรมและการพัฒนาเว็บ API, `CURL` เป็นเครื่องมือที่มีความนิยมมากในการทำ Request ไปยังเซิร์ฟเวอร์เพื่อขอข้อมูลต่าง ๆ หรือส่งข้อมูลไปยัง API ต่าง ๆ ซึ่งในที่นี้เราจะมาคุยกันเกี่ยวกับการใช้งาน CURL ในภาษา VBA (Visual Basic for Applications) ซึ่งเป็นภาษาโปรแกรมยอดนิยมใน Microsoft Office เช่น Excel, Word และ Access

ทำไมต้องใช้ CURL ใน VBA?

การใช้ CURL ใน VBA จะช่วยให้เราสามารถติดต่อสัมพันธ์กับ RESTful APIs ได้อย่างง่ายดาย ทำให้เราสามารถทำการอ่านข้อมูลจากเว็บหรือบริการออนไลน์ และส่งข้อมูลที่เราต้องการได้อย่างสะดวกสบาย สามารถนำไปประยุกต์ใช้ในโครงการต่าง ๆ อย่างเช่น การดึงข้อมูลจากฐานข้อมูลออนไลน์หรือการอัพโหลดไฟล์ไปยังเซิร์ฟเวอร์

ติดตั้ง CURL ใน VBA

ก่อนอื่นเราต้องทำการติดตั้ง CURL Library ในเครื่องคอมพิวเตอร์ของเรา โดยสามารถดาวน์โหลดได้จากเว็บไซต์ CURL [curl.se](https://curl.se/windows/)

เมื่อดาวน์โหลดมาเสร็จสิ้น ให้ extract ไฟล์ที่เราได้มา ไปยังที่ที่เราสามารถเข้าถึงได้ง่ายจาก VBA

นำเข้า CURL Library ใน VBA

หลังจากติดตั้ง CURL แล้ว เราต้องนำเข้า library ใน VBA เพื่อให้สามารถใช้งาน CURL ได้ โดยการเปิดไฟล์ Excel แล้วกด `Alt + F11` เพื่อเปิดหน้าตัวแก้ไข VBA

จากนั้นให้ไปที่ `Tools` -> `References` และทำการ Browse หาไฟล์ `libcurl.dll` ที่เราได้ extract ไว้แล้ว

ตัวอย่าง Code การใช้งาน CURL ใน VBA

 Sub UseCURL()
    Dim curl As Object
    Set curl = CreateObject("MSXML2.XMLHTTP")

    Dim url As String
    url = "https://api.example.com/data" 'เปลี่ยนเป็น URL ที่ต้องการ

    'ส่งคำขอแบบ GET
    curl.Open "GET", url, False
    curl.setRequestHeader "Content-Type", "application/json"
    curl.send

    'ตรวจสอบสถานะของการส่งคำขอ
    If curl.Status = 200 Then
        MsgBox "Response: " & curl.responseText
    Else
        MsgBox "Error: " & curl.Status & " - " & curl.statusText
    End If

    Set curl = Nothing
End Sub

การอธิบายการทำงาน

Use Case ในโลกจริง

ตัวอย่างการใช้งาน

การเชื่อมต่อกับ API ของบริการข้อมูลอากาศ (Weather API) จะเป็น Application ที่ยกตัวอย่างการใช้งาน CURL ใน VBA ได้ชัดเจน

#### Use Case: ดึงข้อมูลสภาพอากาศ

เราสามารถใช้ CURL เพื่อดึงข้อมูลสภาพอากาศจาก OpenWeatherMap API หากเราต้องการทราบสภาพอากาศในประเทศไทยในปัจจุบัน สามารถใช้ Code ด้านล่างนี้เป็นตัวอย่าง

 Sub GetWeather()
    Dim curl As Object
    Set curl = CreateObject("MSXML2.XMLHTTP")

    Dim url As String
    url = "https://api.openweathermap.org/data/2.5/weather?q=Bangkok&appid=YOUR_API_KEY" 'ต้องการให้เปลี่ยน YOUR_API_KEY

    'ส่งคำขอแบบ GET
    curl.Open "GET", url, False
    curl.send

    If curl.Status = 200 Then
        Dim weatherData As String
        weatherData = curl.responseText
        MsgBox "Weather Data: " & weatherData
    Else
        MsgBox "Error: " & curl.Status & " - " & curl.statusText
    End If

    Set curl = Nothing
End Sub

#### การทำงาน

ในตัวอย่างนี้เราดึงข้อมูลสภาพอากาศของกรุงเทพฯ จาก OpenWeatherMap API โดยส่ง Request ไปยัง URL ที่เราได้กำหนดไว้ ซึ่งผลลัพธ์ที่ได้จะเป็น JSON Response ที่เราสามารถนำไปประมวลผลต่อได้

สรุป

การใช้งาน CURL ใน VBA เป็นวิธีที่ง่ายและมีประสิทธิภาพในการติดต่อกับ API ต่าง ๆ โดยเฉพาะเมื่อทำงานในโครงการที่ต้องการดึงข้อมูลจากอินเตอร์เน็ตหรือบริการออนไลน์

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

อย่ารอช้า! เข้ามาเป็นส่วนหนึ่งใน EPT และพัฒนาทักษะการเขียนโปรแกรมของคุณให้เติบโตไปพร้อมกับเรา!

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