Page 1 of 1
อยากทราบคำสั่งที่ใช้ Import ข้อมูลจาก Excel มาแสดงใน Textbox
Posted: Wed Sep 09, 2015 11:50 am
by cheapache
อยากทราบคำสั่งที่ใช้ Import ข้อมูลจาก Excel มาแสดงใน Textbox ใน VB
ผมใช้ Excel เป็นตัวเก็บข้อมูล แล้วผมจะดึงข้อมูลจาก Excel มาแสดงใน Textbox
อยากทราบคำสั่งที่ใช้ในการทำงาน ขอเป็นตัวอย่างซักนิดนะครับ
รบกวนด้วยนะครับ
Re: อยากทราบคำสั่งที่ใช้ Import ข้อมูลจาก Excel มาแสดงใน Textbox
Posted: Wed Sep 09, 2015 1:34 pm
by snasui
สำหรับ Code ต้องทำตามกฎข้อ 5 ด้านบนครับ
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
ค่อย ๆ ถามตอบกันไปนะครับ
ที่ถามมานี้ไม่ใช่ 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
Error ฟ้องว่าอย่างไรแจ้งมาด้วยจะได้ช่วยวิเคราะห์ได้ครับ
Re: อยากทราบคำสั่งที่ใช้ Import ข้อมูลจาก Excel มาแสดงใน Textbox
Posted: Thu Sep 10, 2015 10:59 am
by cheapache
Re: อยากทราบคำสั่งที่ใช้ Import ข้อมูลจาก Excel มาแสดงใน Textbox
Posted: Thu Sep 10, 2015 11:03 am
by snasui
อ่านในกรอบสี่เหลี่ยมที่ผมทำไว้แล้วตรวจสอบว่ามีไฟล์อยู่จริงหรือไม่ นามสกุลอะไร .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
ผมเข้าใจว่าหากเปลียนค่าในเซลล์แล้วให้ค่าใน 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
ขอบคุณมากครับ