[VB.NET] Import ข้อมูลใน Excel เข้ามาแสดงผลในตารางกริด

thongkorn

การ Import ข้อมูลใน Excel เพื่อนำมาแสดงผลลงตารางกริด แอดมินจะใช้วิธีการมองไฟล์ Excel เป็นเหมือนไฟล์ฐานข้อมูล โดยกำหนด Provider = Microsoft.ACE.OLEDB.12.0 (เราจึงต้องเลือกใช้ Namespace := System.Data.OleDb) จากนั้นเมื่อ Connect เรียบร้อย ก็จะทำการโหลด WorkSheet ซึ่งจะมองเห็นเป็นตารางข้อมูล (Table) เข้ามายัง ComboBox Control จากนั้นผู้ใช้ก็เลือกรายการ WorkSheet เพื่อทำการแสดงผลข้อมูลในตารางกริด ... จบหลักการวิธีคิด


มาดูโค้ดต้นฉบับกันเถอะ ...

1. Imports System.Data.OleDb
   
2. 
   
3. Public Class frmExcel2DataGrid
   
4. 
   
5.     ' / --------------------------------------------------------------------
   
6.     ' / เลือกไฟล์ Excel
   
7.     Private Sub btnOpenExcel_Click(sender As System.Object, e As System.EventArgs) Handles btnOpenExcel.Click
   
8.         '/ ประกาศใช้งาน Open File Dialog ในแบบ Run Time
   
9.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
   
10. 
    
11.         ' / ตั้งค่าการใช้งาน Open File Dialog
    
12.         With dlgOpenFile
    
13.             .InitialDirectory = MyPath(Application.StartupPath)
    
14.             .Title = "เลือกไฟล์ MS Excel"
    
15.             .Filter = "All Files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls"
    
16.             .FilterIndex = 1
    
17.             .RestoreDirectory = True
    
18.         End With
    
19.         '/ หากเลือกปุ่ม OK หลังจากการ Browse ...
    
20.         If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
21.             txtFileName.Text = dlgOpenFile.FileName
    
22.             Dim strConn As String = _
    
23.                 " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    
24.                 dlgOpenFile.FileName & ";" & _
    
25.                 " Extended Properties=""Excel 12.0 Xml; HDR=YES"";"
    
26.             Dim Conn As New OleDbConnection(strConn)
    
27.             Conn.Open()
    
28.             '/ มอง WorkSheet ให้เป็นตารางข้อมูล (Table)
    
29.             Dim dtSheets As DataTable = Conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
    
30.             Dim drSheet As DataRow
    
31. 
    
32.             cmbSheetName.Items.Clear()
    
33.             '/ นำรายชื่อ WorkSheet ทั้งหมด มาเก็บไว้ที่ ComboBox เพื่อรอให้ User เลือกนำไปใช้งาน
    
34.             For Each drSheet In dtSheets.Rows
    
35.                 cmbSheetName.Items.Add(drSheet("TABLE_NAME").ToString)
    
36.             Next
    
37.             Conn.Close()
    
38.         End If
    
39. 
    
40.     End Sub
    
41. 
    
42.     ' / --------------------------------------------------------------------
    
43.     '// เลือก WorkSheet แล้วแสดงผลข้อมูลลงในตารางกริด
    
44.     Private Sub cmbSheetName_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbSheetName.SelectedIndexChanged
    
45.         Dim Conn As OleDbConnection
    
46.         Dim Comm As OleDbCommand
    
47.         Dim DAP As OleDbDataAdapter
    
48.         Dim DS As DataSet
    
49. 
    
50.         Dim strConn As String = _
    
51.             " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    
52.             txtFileName.Text & ";" & _
    
53.             " Extended Properties=""Excel 12.0 Xml; HDR=YES"";"
    
54.         Try
    
55.             Conn = New OleDbConnection
    
56.             Conn.ConnectionString = strConn
    
57.             Comm = New OleDbCommand
    
58.             '/ เสมือน WorkSheet เป็น Table ในฐานข้อมูล
    
59.             Comm.CommandText = "Select * FROM [" & cmbSheetName.Text & "]"
    
60.             Comm.Connection = Conn
    
61.             DAP = New OleDbDataAdapter(Comm)
    
62.             DS = New DataSet
    
63.             Conn.Open()
    
64.             DAP.Fill(DS, "Sheet1")
    
65.             '/ ผูกข้อมูล (Bound Data) เข้ากับ Sheet1
    
66.             dgvData.DataSource = DS.Tables("Sheet1")
    
67.             '//
    
68.             Call SetupDGVData()
    
69. 
    
70.         Catch ex As Exception
    
71.             MessageBox.Show(ex.Message)
    
72.         Finally
    
73.             Conn = Nothing
    
74.             Comm = Nothing
    
75.             DAP = Nothing
    
76.             DS = Nothing
    
77.         End Try
    
78.     End Sub
    
79. 
    
80.     ' / --------------------------------------------------------------------
    
81.     '// Initialize DataGridView @Run Time
    
82.     Private Sub SetupDGVData()
    
83.         With dgvData
    
84.             .RowHeadersVisible = False
    
85.             .AllowUserToAddRows = False
    
86.             .AllowUserToDeleteRows = False
    
87.             .AllowUserToResizeRows = False
    
88.             .MultiSelect = False
    
89.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
90.             .ReadOnly = True
    
91.             .Font = New Font("Tahoma", 9)
    
92.             ' Autosize Column
    
93.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
94.             '// Even-Odd Color
    
95.             .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    
96.             ' Adjust Header Styles
    
97.             With .ColumnHeadersDefaultCellStyle
    
98.                 .BackColor = Color.Navy
    
99.                 .ForeColor = Color.Black ' Color.White
    
100.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
     
101.             End With
     
102.         End With
     
103.     End Sub
     
104. 
     
105.     Private Sub frmExcel2DataGrid_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
106.         Me.Dispose()
     
107.         Application.Exit()
     
108.     End Sub
     
109. 
     
110.     ' / ------------------------------------------------------------------
     
111.     ' / ฟังค์ชั่นที่เราสามารถกำหนด Path ให้กับโปรแกรมของเราเอง
     
112.     ' / Ex.
     
113.     ' / AppPath = C:\My Project\bin\debug
     
114.     ' / Replace "\bin\debug" with ""
     
115.     ' / Return : C:\My Project\
     
116.     Function MyPath(AppPath As String) As String
     
117.         AppPath = AppPath.ToLower()
     
118.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "")
     
119.         '// If not found folder then put the \ (BackSlash ASCII Code = 92) at the end.
     
120.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
121.     End Function
     
122. 
     
123.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
124.         Me.Close()
     
125.     End Sub
     
126. 
     
127. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...

MMEE007

ขอบพระคุณคับ

thongkorn

โค้ดเพิ่มเติม สำหรับคนที่อยากใช้ ListView แทน DataGridView ... เพราะ ListView ไม่สามารถทำการ Bound Data เข้าหาได้โดยตรง ดังนั้นเราต้องทำการวนรอบ (Loop) แทน โดยต้องวนหาจำนวนหลัก (Column) ที่อยู่ทั้งหมดออกมาก่อน จากนั้นก็ค่อยวนรอบตามจำนวนแถวข้อมูลใน Excel ...

เพิ่ม ListView Control เข้ามา 1 ตัว โดยไม่ต้องปรับคุณสมบัติอะไรมาก ... เหตุการณ์การเลือก Sheet (เสมือนตารางข้อมูล) จะเกิดขึ้นที่เหตุการณ์การเปลี่ยนแปลงของ ComboBox ...

1.     ' / --------------------------------------------------------------------
   
2.     '// เลือก WorkSheet แล้วแสดงผลข้อมูลลงใน ListView
   
3.     Private Sub cmbSheetName_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbSheetName.SelectedIndexChanged
   
4.         Dim Conn As OleDbConnection
   
5.         Dim DA As OleDbDataAdapter
   
6.         Dim DT As New DataTable
   
7.         Dim strConn As String = _
   
8.             " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
   
9.             txtFileName.Text & ";" & _
   
10.             " Extended Properties=""Excel 12.0 Xml; HDR=YES"";"
    
11.         Try
    
12.             Conn = New OleDbConnection
    
13.             Conn.ConnectionString = strConn
    
14.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
15.             DA = New OleDbDataAdapter("Select * FROM [" & cmbSheetName.Text & "]", Conn)
    
16.             DA.Fill(DT)
    
17.             With ListView1
    
18.                 .Clear()
    
19.                 .View = View.Details
    
20.                 .GridLines = True
    
21.                 .FullRowSelect = True
    
22.                 .HideSelection = False
    
23.                 .MultiSelect = False
    
24.             End With
    
25.             '// อ่านจำนวนหลักทั้งหมดเข้ามาก่อน
    
26.             For iCol = 0 To DT.Columns.Count - 1
    
27.                 ListView1.Columns.Add(DT.Columns(iCol).ColumnName)
    
28.                 '// ปรับระยะความกว้างใหม่
    
29.                 ListView1.Columns(iCol).Width = ListView1.Width \ (DT.Columns.Count - 1)
    
30.             Next
    
31.             '// อ่านข้อมูลในแต่ละแถว
    
32.             For sRow = 0 To DT.Rows.Count - 1
    
33.                 Dim LV As New ListViewItem
    
34.                 Dim dRow As DataRow = DT.Rows(sRow)
    
35.                 LV = ListView1.Items.Add(dRow.Item(0))  '// --> Primary Node
    
36.                 For iCol = 1 To DT.Columns.Count - 1
    
37.                     LV.SubItems.Add(dRow(iCol).ToString())
    
38.                 Next
    
39.             Next
    
40.             Conn.Close()
    
41.         Catch ex As Exception
    
42.             MessageBox.Show(ex.Message)
    
43.         Finally
    
44.             Conn = Nothing
    
45.             DT = Nothing
    
46.             DA = Nothing
    
47.         End Try
    
48.     End Sub

คัดลอกไปที่คลิปบอร์ด

jai

thank you , sir

MrN

ขอบคุณครับ