Page 1 of 1

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

Posted: Wed Sep 09, 2015 11:50 am
by cheapache
อยากทราบคำสั่งที่ใช้ Import ข้อมูลจาก Excel มาแสดงใน Textbox ใน VB

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

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

Posted: Wed Sep 09, 2015 1:34 pm
by snasui
:D สำหรับ Code ต้องทำตามกฎข้อ 5 ด้านบนครับ :roll:

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

Posted: Thu Sep 10, 2015 9:54 am
by 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

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

Posted: Thu Sep 10, 2015 10:23 am
by snasui
:D ค่อย ๆ ถามตอบกันไปนะครับ

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

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

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

Posted: Thu Sep 10, 2015 10:46 am
by 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

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

Posted: Thu Sep 10, 2015 10:53 am
by snasui
:D Error ฟ้องว่าอย่างไรแจ้งมาด้วยจะได้ช่วยวิเคราะห์ได้ครับ

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

Posted: Thu Sep 10, 2015 10:59 am
by cheapache
[img]
error1.jpg
[/img]

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

Posted: Thu Sep 10, 2015 11:03 am
by snasui
:D อ่านในกรอบสี่เหลี่ยมที่ผมทำไว้แล้วตรวจสอบว่ามีไฟล์อยู่จริงหรือไม่ นามสกุลอะไร .xls, .xlsx, .xlsb ฯลฯ

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

Posted: Thu Sep 10, 2015 11:18 am
by cheapache
[img]
error2.jpg
[/img]


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

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

Posted: Thu Sep 10, 2015 12:00 pm
by cheapache
อาจารย์ครับ ถ้าผมอยากให้มันแสดงค่าแบบ realtime ผมต้องเพิ่มคำสั่งอะไรลงไปครับ
รบกวนด้วยครับ -/\-

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

Posted: Thu Sep 10, 2015 3:02 pm
by snasui
:D ผมเข้าใจว่าหากเปลียนค่าในเซลล์แล้วให้ค่าใน TextBox1, TextBox2 เปลียนทันที

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

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

Posted: Thu Sep 10, 2015 3:16 pm
by cheapache
ขอบคุณมากครับ :D