อยากทราบคำสั่งที่ใช้ Import ข้อมูลจาก Excel มาแสดงใน Textbox

[cheapache]

อยากทราบคำสั่งที่ใช้ Import ข้อมูลจาก Excel มาแสดงใน Textbox ใน VB

ผมใช้ Excel เป็นตัวเก็บข้อมูล แล้วผมจะดึงข้อมูลจาก Excel มาแสดงใน Textbox
อยากทราบคำสั่งที่ใช้ในการทำงาน ขอเป็นตัวอย่างซักนิดนะครับ
รบกวนด้วยนะครับ

[snasui]

สำหรับ Code ต้องทำตามกฎข้อ 5 ด้านบนครับ

[cheapache]

ทำไมที่ตัวแปร ojbWorkbook,ojBWorksheet,Textbox มันถึงขึ้น error ครับ
ช่วยชี้แนะหน่อยครับ ผมไม่ทราบว่ามันจะแก้ยังไง

Code: Select all

Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Dim objExcel As New Excel.Application    
    Dim objWorkbook As Excel.Workbook     
    Dim objWorksheet As Excel.Worksheet   

    objWorkbook = objExcel.Workbooks.Open("C:\Book2.xls")

    objWorksheet = CType(objWorkbook.Worksheets.Item("Sheet1"), Excel.Worksheet)

    TextBox1.Text = objWorksheet.Cells(1, 1).value
    TextBox2.Text = objWorksheet.Cells(2, 1).value
   
    objWorkbook.Close(False)

    objWorkbook.SaveAs("C:\Book2.xls")

    objExcel.Quit()
End Class

[snasui]

ค่อย ๆ ถามตอบกันไปนะครับ

ที่ถามมานี้ไม่ใช่ Excel ครับ แต่เป็น VB ติดต่อกับ Excel ผมจึงย้ายมาที่หมวดของ Other

ไม่ทราบว่าได้ Add References เข้ามาแล้วยัง ดูตัวอย่างที่นี่ครับ Add Excel Reference

[cheapache]

add reference แล้วครับ ตอนนี้ที่ตัวแปรที่กล่าวไปข้างต้นไม่ error แล้วครับ
แต่ตอนรันโปรแกรม มันมาขึ้น error ที่ ("C : \Book2.xls") แทนครับ

Code: Select all

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim objExcel As New Excel.Application()
        Dim objWorkbook As Excel.Workbook
        Dim objWorksheet As Excel.Worksheet

        objExcel = New Excel.Application

        objWorkbook = objExcel.Workbooks.Open[color=#BF0040]("C:\Book2.xls")[/color]

        objWorksheet = DirectCast(objWorkbook.Worksheets.Item("Sheet1"), Excel.Worksheet)

        TextBox1.Text = objWorksheet.Cells(1, 1).value
        TextBox2.Text = objWorksheet.Cells(2, 1).value

        objWorkbook.Close(False)
        objExcel.Quit()
        'objWorkbook.SaveAs("C:\Book2.xls")

        releaseObject(objExcel)
        releaseObject(objWorkbook)
        releaseObject(objWorksheet)

    End Sub

[snasui]

Error ฟ้องว่าอย่างไรแจ้งมาด้วยจะได้ช่วยวิเคราะห์ได้ครับ

[cheapache]

[img]

error1.jpg

[/img]

[snasui]

อ่านในกรอบสี่เหลี่ยมที่ผมทำไว้แล้วตรวจสอบว่ามีไฟล์อยู่จริงหรือไม่ นามสกุลอะไร .xls, .xlsx, .xlsb ฯลฯ

[cheapache]

[img]

error2.jpg

[/img]


โปรแกรมรันได้แล้วครับ แสดงผลถูกต้องด้วย
ขอบคุณอาจารย์มากๆครับ -/\-

[cheapache]

อาจารย์ครับ ถ้าผมอยากให้มันแสดงค่าแบบ realtime ผมต้องเพิ่มคำสั่งอะไรลงไปครับ
รบกวนด้วยครับ -/\-

[snasui]

ผมเข้าใจว่าหากเปลียนค่าในเซลล์แล้วให้ค่าใน TextBox1, TextBox2 เปลียนทันที

การทำให้ Realtime ไม่ใช่เรื่องง่าย ต้องเข้าใจเรื่อง Event เป็นอย่างดี ลองศึกษาจาก Link นี้เป็นแนวทางครับ https://support.microsoft.com/en-us/kb/822750

[cheapache]

ขอบคุณมากครับ