การใช้งาน read file ในภาษา VBA แบบง่ายๆ พร้อมตัวอย่าง CODE 3 ตัวอย่าง และอธิบายการทำงาน และยกตัวอย่าง usecase ในโลกจริง

หัวข้อ: การเปิดอ่านไฟล์ด้วย VBA: คู่มือและตัวอย่างโค้ด

สวัสดีครับผู้อ่านที่น่ารักทุกท่าน! วันนี้ผมนำเรื่องราวในโลกของการเขียนโปรแกรมด้วย VBA มาฝากกันค่ะ ใช่เลย, เรากำลังจะพูดถึงการอ่านไฟล์ (read file) ในภาษา VBA อย่างง่ายๆ พร้อมตัวอย่างโค้ดที่ใช้งานได้จริง และจะอธิบายการทำงานของโค้ดด้วยนะครับ

VBA หรือ Visual Basic for Applications เป็นการเพิ่มขีดความสามารถให้กับโปรแกรม Microsoft Office ให้สามารถทำงานได้ตามที่เราต้องการ และการอ่านไฟล์คือหนึ่งในความสามารถพื้นฐานที่มักจะถูกใช้งานอย่างแพร่หลาย

ตัวอย่างที่ 1: การอ่านข้อความจากไฟล์ Text (.txt)

Sub ReadTextFile()
    Dim filePath As String
    Dim fileContent As String
    Dim fileNum As Integer

    filePath = "C:\example.txt" ' ตั้งค่าพาธของไฟล์ที่ต้องการอ่าน
    fileNum = FreeFile() ' ค้นหาไฟล์หมายเลขที่ว่าง

    ' เปิดไฟล์สำหรับอ่าน
    Open filePath For Input As fileNum
    fileContent = Input$(LOF(fileNum), fileNum) ' อ่านคอนเทนต์จากไฟล์
    Close fileNum ' ปิดไฟล์

    MsgBox fileContent ' แสดงเนื้อหาไฟล์ใน MessageBox
End Sub

เมื่อทำการรันโปรเซ็ด Sub นี้, VBA จะเปิดไฟล์ "example.txt", อ่านเนื้อหาของมัน, และแสดงผลให้เห็นใน MessageBox.

ตัวอย่างที่ 2: การอ่านข้อมูลจากไฟล์ CSV

Sub ReadCSVFile()
    Dim filePath As String
    Dim rowContent As String
    Dim fileNum As Integer

    filePath = "C:\example.csv" ' ตั้งค่าพาธของไฟล์ที่ต้องการอ่าน
    fileNum = FreeFile() ' ค้นหาไฟล์หมายเลขที่ว่าง

    ' เปิดไฟล์สำหรับอ่าน
    Open filePath For Input As fileNum

    Do While Not EOF(fileNum) ' ทำซ้ำจนกว่าจะถึงจุดสิ้นสุดของไฟล์
        Line Input #fileNum, rowContent ' อ่านข้อมูลแต่ละแถว
        Debug.Print rowContent ' แสดงข้อมูลใน Immediate Window
    Loop

    Close fileNum ' ปิดไฟล์
End Sub

โดยโค้ดนี้จะทำการอ่านข้อมูลที่อยู่ในไฟล์ CSV แถวต่อแถว และแสดงผลบน Immediate Window ของ Visual Basic Editor.

ตัวอย่างที่ 3: การอ่านข้อมูลจากไฟล์ Excel

Sub ReadExcelFile()
    Dim ws As Worksheet
    Set ws = Workbooks.Open("C:\example.xlsx").Sheets(1) ' เปิดไฟล์ Excel และเลือก Sheet แรก

    ' ลูปผ่านแต่ละแถวและคอลัมน์ที่มีข้อมูล
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' หาแถวสุดท้ายที่มีข้อมูล

    Dim r As Long
    For r = 1 To lastRow
        Debug.Print ws.Cells(r, 1).Value ' แสดงข้อมูลใน Immediate Window
    Next r
End Sub

คำสั่งนี้เป็นการอ่านค่าจากไฟล์ Excel ตั้งแต่แถวแรกจนถึงแถวที่มีข้อมูลสุดท้าย และแสดงผลใน Immediate Window.

สำหรับ use case ในโลกจริงของการอ่านไฟล์ด้วย VBA อาจมีตั้งแต่การตรวจสอบและอัพเดทข้อมูลในรายการสินค้า, การสร้างรายงานจากข้อมูลที่ถูกเก็บเป็นไฟล์ log, ไปจนถึงการจัดการข้อมูลสำหรับการวิเคราะห์ต่างๆ ใน Microsoft Excel นั่นเองครับ

การติดตามแบบนี้ทำให้เห็นว่า VBA ไม่ได้เป็นเพียงแค่ภาษาเขียนโปรแกรมที่สำหรับงานสำนักงานเท่านั้น แต่ยังสามารถใช้ประโยชน์ในแง่มุมที่หลากหลายและซับซ้อนยิ่งขึ้นได้

หากบทความนี้ทำให้คุณเริ่มสนใจในการเรียนรู้โปรแกรมมิ่ง อยากให้คุณลองพิจารณาโปรแกรมการศึกษาที่ EPT ที่ให้อัปเดตล่าสุดและแบบฝึกหัดการเขียนโค้ดที่คุณจะไม่พบจากที่อื่น! เรียนรู้พร้อมกับเหล่าผู้เชี่ยวชาญที่จะนำพาคุณไปยังความสำเร็จในการเขียนโปรแกรมอย่างเต็มที่ค่ะ

ขอให้ทุกท่านมีความสุขกับการเรียนรู้การเขียนโปรแกรม และอย่าลืมว่า EPT พร้อมช่วยเหลือคุณเสมอ! สวัสดีครับ!

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