[VB.NET] การสร้างกราฟ หรือ Chart และส่งข้อมูลจากตารางกริดออกไปยัง Excel

thongkorn

บทความนี้แอดมินขอเหมารวบยอดไปเลยทีเดียวนะครับ กรณีของ การส่งข้อมูลจากตารางกริดไปยัง Excel จะใช้วิธีแบบ Line By Line ซึ่งแน่นอนว่าจะเกิดการทำงานที่ล่าช้ามาก หากกรณีที่มีข้อมูลเยอะๆ ส่วนการทำกราฟ หรือ Chart ก็จะอาศัยข้อมูลที่เกิดจากการสุ่มค่าตัวเลขแบบทศนิยมลงไปในตารางกริด โดยที่แอดมินใช้วิธีการที่ชื่นชอบก็คือ สั่งแบบ @Run Time แต่เพื่อความสะดวก แอดมินจะลาก Chart Control เข้ามาวางบนฟอร์มเอาไว้ก่อน ส่วนป้าย Legend และ Series หรือกราฟที่แสดงผลนั้น จะใช้การเขียนโค้ดเพื่อสร้างมันขึ้นมาแบบอัตโนมัติ นั่นคือเราจะเรียนรู้คุณสมบัติต่างๆของ Chart Control ด้วยโค้ดแทน และด้วยวิธีการนี้มันเกิดความยืดหยุ่นสูงในการปรับแต่งเพื่อไปใช้ในงานอื่นๆต่อไป ...

การส่งข้อมูลออกไป Excel จะทำต้อง References ตัว Microsoft Excel 14.0 Library Object เข้ามาก่อน โดยเลือกจาก COM (Component Object Model) ... (OFFICE 2010) ...




โค้ดในส่วนของการสุ่มข้อมูลเพื่อนำมาใส่ลงในตารางกริด ...

1.     ' / --------------------------------------------------------------------------
   
2.     Private Sub FillData()
   
3.         Dim dt As New DataTable
   
4.         dt.Columns.Add("Item")
   
5.         dt.Columns.Add("Value1")
   
6.         dt.Columns.Add("Value2")
   
7.         dt.Columns.Add("Value3")
   
8.         dt.Columns.Add("Average")
   
9.         Dim RandomClass As New Random()
   
10.         Dim MyMonth As String() = New String() {("ม.ค."), ("ก.พ."), ("มี.ค."), ("เม.ย."), ("พ.ค."), ("มิ.ย."), ("ก.ค."), ("ส.ค."), ("ก.ย."), ("ต.ค."), ("พ.ย."), ("ธ.ค.")}
    
11.         For i As Byte = 0 To 11
    
12.             Dim dr As DataRow = dt.NewRow()
    
13.             dr(0) = MyMonth(i)
    
14.             dr(1) = FormatNumber(RandomClass.Next(100, 1000) + RandomClass.NextDouble(), 2)
    
15.             dr(2) = FormatNumber(RandomClass.Next(100, 1000) + RandomClass.NextDouble(), 2)
    
16.             dr(3) = FormatNumber(RandomClass.Next(100, 1000) + RandomClass.NextDouble(), 2)
    
17.             '// CDbl = Convert to Double
    
18.             dr(4) = Format((CDbl(dr(1)) + CDbl(dr(2)) + CDbl(dr(3))) / 3, "#,##0.00")
    
19.             dt.Rows.Add(dr)
    
20.         Next
    
21.         dgvData.DataSource = dt
    
22.         Label1.Text = "Total : " & dt.Rows.Count.ToString("#,##") & " Records."
    
23.     End Sub

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

โค้ดในส่วนของการสร้างกราฟ หรือ Chart

1.     ' / --------------------------------------------------------------------------------
   
2.     Private Sub btnChart_Click(sender As System.Object, e As System.EventArgs) Handles btnChart.Click
   
3.         If dgvData.RowCount <= 0 Then Return
   
4.         '//
   
5.         Chart1.Titles.Clear()
   
6.         '// Clear Legends & Series
   
7.         Chart1.Series.Clear()
   
8.         Chart1.Legends.Clear()
   
9.         '// Clear Points
   
10.         For Each xSeries In Chart1.Series
    
11.             xSeries.Points.Clear()
    
12.         Next
    
13.         '// Create Legends
    
14.         Dim Legend1 As Legend = New Legend()
    
15.         Legend1.Name = "Legend1"
    
16.         Chart1.Legends.Add(Legend1)
    
17.         '// Create Series
    
18.         Dim Series1 As Series = New Series()
    
19.         Dim Series2 As Series = New Series()
    
20.         Dim Series3 As Series = New Series()
    
21.         Dim Series4 As Series = New Series()
    
22.         '// Add Series
    
23.         With Chart1
    
24.             .Series.Add(Series1)
    
25.             .Series.Add(Series2)
    
26.             .Series.Add(Series3)
    
27.             .Series.Add(Series4)
    
28.         End With
    
29.         '//
    
30.         Try
    
31.             Dim myFont As New Font("Tahoma", 14, FontStyle.Bold)
    
32.             Chart1.Titles.Add("Sample Chart")
    
33.             Chart1.Titles(0).Font = myFont
    
34.             '// Define Chart Type.
    
35.             For Each xSeries In Chart1.Series
    
36.                 Select Case cmbChartType.Text
    
37.                     Case "Column"
    
38.                         xSeries.ChartType = SeriesChartType.Column
    
39.                     Case "Line"
    
40.                         xSeries.ChartType = SeriesChartType.Line
    
41.                     Case "Point"
    
42.                         xSeries.ChartType = SeriesChartType.Point
    
43.                 End Select
    
44.                 '// Show Legend
    
45.                 If chkShowLegend.Checked Then
    
46.                     xSeries.IsVisibleInLegend = True
    
47.                 Else
    
48.                     xSeries.IsVisibleInLegend = False
    
49.                 End If
    
50.                 '// View the value of a chart point on mouse over.
    
51.                 xSeries.ToolTip = "#VAL{0.00}"
    
52.             Next
    
53.             '//
    
54.             With Chart1
    
55.                 .Series(0).LegendText = "Value 1"
    
56.                 .Series(1).LegendText = "Value 2"
    
57.                 .Series(2).LegendText = "Value 3"
    
58.                 .Series(3).LegendText = "Average"
    
59.             End With
    
60.             '// Show all Axis Label
    
61.             Chart1.ChartAreas(0).AxisX.Interval = 1
    
62.             '//
    
63.             With Chart1.ChartAreas("ChartArea1")
    
64.                 .AxisX.MajorGrid.LineWidth = 1
    
65.                 .AxisY.MajorGrid.LineWidth = 1
    
66.             End With
    
67. 
    
68.             '// LOOP DISPLAY
    
69.             For CountData As Integer = 0 To dgvData.Rows.Count - 1
    
70.                 With Chart1
    
71.                     '// 0 = Month, 1 = Value1, 2 = Value2, 3 = Value3, 4 = Average
    
72.                     .Series(0).Points.AddXY(dgvData.Item(0, CountData).Value, dgvData.Item(1, CountData).Value)
    
73.                     .Series(1).Points.AddXY(dgvData.Item(0, CountData).Value, dgvData.Item(2, CountData).Value)
    
74.                     .Series(2).Points.AddXY(dgvData.Item(0, CountData).Value, dgvData.Item(3, CountData).Value)
    
75.                     .Series(3).Points.AddXY(dgvData.Item(0, CountData).Value, dgvData.Item(4, CountData).Value)
    
76.                 End With
    
77.             Next
    
78.         Catch ex As Exception
    
79.             MessageBox.Show(ex.Message)
    
80.         End Try
    
81. 
    
82.     End Sub

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

โค้ดในส่วนของการส่งข้อมูลออกไป Excel

1.     ' / --------------------------------------------------------------------------------
   
2.     '// Export data to Excel.
   
3.     Private Sub btnExportExcel_Click(sender As System.Object, e As System.EventArgs) Handles btnExportExcel.Click
   
4.         '// ไม่มีข้อมูลในตารางกริด ก็สั่งให้เด้งหนีออกไป
   
5.         If dgvData.Rows.Count <= 0 Then Exit Sub
   
6.         '// พิจารณาการเลือกใช้ชนิดข้อมูล (Data Type) ให้เหมาะสม
   
7.         Dim MaxRow As Integer, MaxCol As Short
   
8.         Dim nRow As Integer, nCol As Short
   
9.         Dim xlsApp As New Excel.Application
   
10.         Dim xlsWorkBook As Excel.Workbook = xlsApp.Workbooks.Add
    
11.         Dim xlsWorkSheet As Excel.Worksheet = CType(xlsWorkBook.Worksheets(1), Excel.Worksheet)
    
12.         '// S T A R T
    
13.         Try
    
14.             xlsApp.Visible = True
    
15.             '// หาค่าจำนวนแถว
    
16.             MaxRow = dgvData.RowCount
    
17.             '// หาค่าจำนวนหลัก
    
18.             MaxCol = dgvData.Columns.Count - 1
    
19.             With xlsWorkSheet
    
20.                 .Cells.Select()
    
21.                 .Cells.Delete()
    
22.                 '// Header
    
23.                 For nCol = 0 To MaxCol
    
24.                     .Cells(1, nCol + 1).Value = dgvData.Columns(nCol).HeaderText
    
25.                 Next nCol
    
26.                 '// ไล่ตามจำนวนแถว
    
27.                 For nRow = 0 To MaxRow - 1
    
28.                     For nCol = 0 To MaxCol
    
29.                         .Cells(nRow + 2, nCol + 1).value = dgvData.Rows(nRow).Cells(nCol).Value
    
30.                     Next nCol   '// Nested Loop
    
31.                     '// หากชุดคำสั่งที่อยู่ใน Nested Loop
    
32.                     '// การให้ตัวแปรต่อท้าย Next จะช่วยให้เรารู้ว่ามันอยู่ใน Loop ไหน
    
33.                 Next nRow
    
34. 
    
35.                 '// กำหนดรูปแบบใน WorkSheet
    
36.                 .Rows("1:1").Font.FontStyle = "Bold"
    
37.                 .Rows("1:1").Font.Size = 10
    
38.                 '//
    
39.                 .Cells.Columns.AutoFit()
    
40.                 .Cells.Select()
    
41.                 .Cells.EntireColumn.AutoFit()
    
42.                 .Cells(1, 1).Select()
    
43.             End With
    
44.         Catch ex As Exception
    
45.             MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
46.         End Try
    
47.         xlsApp = Nothing
    
48.         '// Release memory.
    
49.         ReleaseObject(xlsApp)
    
50.         ReleaseObject(xlsWorkBook)
    
51.         ReleaseObject(xlsWorkSheet)
    
52.     End Sub

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

โค้ดฉบับเต็มทั้งหมด ...

1. ' / --------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Create data into DataGridView for make the Chart and Export data to Excel @Run Time.
   
8. ' / Microsoft Visual Basic .NET (2010) + MS Excel 14.0
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------
    
13. Imports System.Windows.Forms.DataVisualization.Charting
    
14. Imports Excel = Microsoft.Office.Interop.Excel
    
15. 
    
16. Public Class frmChartExportExcel
    
17. 
    
18.     Private Sub frmPlotGraph_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
19.         Label1.Text = ""
    
20.         '// Chart Type
    
21.         '// https://docs.microsoft.com/en-us/dotnet/api/system.windows.forms.datavisualization.charting.seriescharttype?view=netframework-4.7.2
    
22.         cmbChartType.Items.Add("Column")
    
23.         cmbChartType.Items.Add("Line")
    
24.         cmbChartType.Items.Add("Point")
    
25.         cmbChartType.SelectedIndex = 0
    
26. 
    
27.         '// Setup DataGridView
    
28.         Call InitializeGrid()
    
29.         '// Generate Data
    
30.         Call btnGenData_Click(sender, e)
    
31.         '//
    
32.     End Sub
    
33. 
    
34.     Private Sub btnGenData_Click(sender As System.Object, e As System.EventArgs) Handles btnGenData.Click
    
35.         Call FillData()
    
36.     End Sub
    
37. 
    
38.     ' / --------------------------------------------------------------------------
    
39.     Private Sub FillData()
    
40.         Dim dt As New DataTable
    
41.         dt.Columns.Add("Item")
    
42.         dt.Columns.Add("Value1")
    
43.         dt.Columns.Add("Value2")
    
44.         dt.Columns.Add("Value3")
    
45.         dt.Columns.Add("Average")
    
46.         Dim RandomClass As New Random()
    
47.         Dim MyMonth As String() = New String() {("ม.ค."), ("ก.พ."), ("มี.ค."), ("เม.ย."), ("พ.ค."), ("มิ.ย."), ("ก.ค."), ("ส.ค."), ("ก.ย."), ("ต.ค."), ("พ.ย."), ("ธ.ค.")}
    
48.         For i As Byte = 0 To 11
    
49.             Dim dr As DataRow = dt.NewRow()
    
50.             dr(0) = MyMonth(i)
    
51.             dr(1) = FormatNumber(RandomClass.Next(100, 1000) + RandomClass.NextDouble(), 2)
    
52.             dr(2) = FormatNumber(RandomClass.Next(100, 1000) + RandomClass.NextDouble(), 2)
    
53.             dr(3) = FormatNumber(RandomClass.Next(100, 1000) + RandomClass.NextDouble(), 2)
    
54.             '// CDbl = Convert to Double
    
55.             dr(4) = Format((CDbl(dr(1)) + CDbl(dr(2)) + CDbl(dr(3))) / 3, "#,##0.00")
    
56.             dt.Rows.Add(dr)
    
57.         Next
    
58.         dgvData.DataSource = dt
    
59.         Label1.Text = "Total : " & dt.Rows.Count.ToString("#,##") & " Records."
    
60.     End Sub
    
61. 
    
62.     ' / --------------------------------------------------------------------------------
    
63.     '// การตั้งค่าเริ่มต้นให้กับตารางกริดในแบบ @Run Time
    
64.     Private Sub InitializeGrid()
    
65.         With dgvData
    
66.             .RowHeadersVisible = False
    
67.             .AllowUserToAddRows = False
    
68.             .AllowUserToDeleteRows = False
    
69.             .AllowUserToResizeRows = False
    
70.             .MultiSelect = False
    
71.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
72.             .ReadOnly = True
    
73.             .Font = New Font("Tahoma", 9)
    
74.             ' จัดความกว้างของแต่ละหลัก
    
75.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
76.             .AutoResizeColumns()
    
77.             ' Adjust Header Styles
    
78.             With .ColumnHeadersDefaultCellStyle
    
79.                 .BackColor = Color.Navy
    
80.                 .ForeColor = Color.White
    
81.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
82.             End With
    
83.         End With
    
84.     End Sub
    
85. 
    
86.     ' / --------------------------------------------------------------------------------
    
87.     Private Sub btnChart_Click(sender As System.Object, e As System.EventArgs) Handles btnChart.Click
    
88.         If dgvData.RowCount <= 0 Then Return
    
89.         '//
    
90.         Chart1.Titles.Clear()
    
91.         '// Clear Legends & Series
    
92.         Chart1.Series.Clear()
    
93.         Chart1.Legends.Clear()
    
94.         '// Clear Points
    
95.         For Each xSeries In Chart1.Series
    
96.             xSeries.Points.Clear()
    
97.         Next
    
98.         '// Create Legends
    
99.         Dim Legend1 As Legend = New Legend()
    
100.         Legend1.Name = "Legend1"
     
101.         Chart1.Legends.Add(Legend1)
     
102.         '// Create Series
     
103.         Dim Series1 As Series = New Series()
     
104.         Dim Series2 As Series = New Series()
     
105.         Dim Series3 As Series = New Series()
     
106.         Dim Series4 As Series = New Series()
     
107.         '// Add Series
     
108.         With Chart1
     
109.             .Series.Add(Series1)
     
110.             .Series.Add(Series2)
     
111.             .Series.Add(Series3)
     
112.             .Series.Add(Series4)
     
113.         End With
     
114.         '//
     
115.         Try
     
116.             Dim myFont As New Font("Tahoma", 14, FontStyle.Bold)
     
117.             Chart1.Titles.Add("Sample Chart")
     
118.             Chart1.Titles(0).Font = myFont
     
119.             '// Define Chart Type.
     
120.             For Each xSeries In Chart1.Series
     
121.                 Select Case cmbChartType.Text
     
122.                     Case "Column"
     
123.                         xSeries.ChartType = SeriesChartType.Column
     
124.                     Case "Line"
     
125.                         xSeries.ChartType = SeriesChartType.Line
     
126.                     Case "Point"
     
127.                         xSeries.ChartType = SeriesChartType.Point
     
128.                 End Select
     
129.                 '// Show Legend
     
130.                 If chkShowLegend.Checked Then
     
131.                     xSeries.IsVisibleInLegend = True
     
132.                 Else
     
133.                     xSeries.IsVisibleInLegend = False
     
134.                 End If
     
135.                 '// View the value of a chart point on mouse over.
     
136.                 xSeries.ToolTip = "#VAL{0.00}"
     
137.             Next
     
138.             '//
     
139.             With Chart1
     
140.                 .Series(0).LegendText = "Value 1"
     
141.                 .Series(1).LegendText = "Value 2"
     
142.                 .Series(2).LegendText = "Value 3"
     
143.                 .Series(3).LegendText = "Average"
     
144.             End With
     
145.             '// Show all Axis Label
     
146.             Chart1.ChartAreas(0).AxisX.Interval = 1
     
147.             '//
     
148.             With Chart1.ChartAreas("ChartArea1")
     
149.                 .AxisX.MajorGrid.LineWidth = 1
     
150.                 .AxisY.MajorGrid.LineWidth = 1
     
151.             End With
     
152. 
     
153.             '// LOOP DISPLAY
     
154.             For CountData As Integer = 0 To dgvData.Rows.Count - 1
     
155.                 With Chart1
     
156.                     '// 0 = Month, 1 = Value1, 2 = Value2, 3 = Value3, 4 = Average
     
157.                     .Series(0).Points.AddXY(dgvData.Item(0, CountData).Value, dgvData.Item(1, CountData).Value)
     
158.                     .Series(1).Points.AddXY(dgvData.Item(0, CountData).Value, dgvData.Item(2, CountData).Value)
     
159.                     .Series(2).Points.AddXY(dgvData.Item(0, CountData).Value, dgvData.Item(3, CountData).Value)
     
160.                     .Series(3).Points.AddXY(dgvData.Item(0, CountData).Value, dgvData.Item(4, CountData).Value)
     
161.                 End With
     
162.             Next
     
163.         Catch ex As Exception
     
164.             MessageBox.Show(ex.Message)
     
165.         End Try
     
166. 
     
167.     End Sub
     
168. 
     
169.     ' / --------------------------------------------------------------------------------
     
170.     '// Export data to Excel.
     
171.     Private Sub btnExportExcel_Click(sender As System.Object, e As System.EventArgs) Handles btnExportExcel.Click
     
172.         '// ไม่มีข้อมูลในตารางกริด ก็สั่งให้เด้งหนีออกไป
     
173.         If dgvData.Rows.Count <= 0 Then Exit Sub
     
174.         '// พิจารณาการเลือกใช้ชนิดข้อมูล (Data Type) ให้เหมาะสม
     
175.         Dim MaxRow As Integer, MaxCol As Short
     
176.         Dim nRow As Integer, nCol As Short
     
177.         Dim xlsApp As New Excel.Application
     
178.         Dim xlsWorkBook As Excel.Workbook = xlsApp.Workbooks.Add
     
179.         Dim xlsWorkSheet As Excel.Worksheet = CType(xlsWorkBook.Worksheets(1), Excel.Worksheet)
     
180.         '// S T A R T
     
181.         Try
     
182.             xlsApp.Visible = True
     
183.             '// หาค่าจำนวนแถว
     
184.             MaxRow = dgvData.RowCount
     
185.             '// หาค่าจำนวนหลัก
     
186.             MaxCol = dgvData.Columns.Count - 1
     
187.             With xlsWorkSheet
     
188.                 .Cells.Select()
     
189.                 .Cells.Delete()
     
190.                 '// Header
     
191.                 For nCol = 0 To MaxCol
     
192.                     .Cells(1, nCol + 1).Value = dgvData.Columns(nCol).HeaderText
     
193.                 Next nCol
     
194.                 '// ไล่ตามจำนวนแถว
     
195.                 For nRow = 0 To MaxRow - 1
     
196.                     For nCol = 0 To MaxCol
     
197.                         .Cells(nRow + 2, nCol + 1).value = dgvData.Rows(nRow).Cells(nCol).Value
     
198.                     Next nCol   '// Nested Loop
     
199.                     '// หากชุดคำสั่งที่อยู่ใน Nested Loop
     
200.                     '// การให้ตัวแปรต่อท้าย Next จะช่วยให้เรารู้ว่ามันอยู่ใน Loop ไหน
     
201.                 Next nRow
     
202. 
     
203.                 '// กำหนดรูปแบบใน WorkSheet
     
204.                 .Rows("1:1").Font.FontStyle = "Bold"
     
205.                 .Rows("1:1").Font.Size = 10
     
206.                 '//
     
207.                 .Cells.Columns.AutoFit()
     
208.                 .Cells.Select()
     
209.                 .Cells.EntireColumn.AutoFit()
     
210.                 .Cells(1, 1).Select()
     
211.             End With
     
212.         Catch ex As Exception
     
213.             MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
     
214.         End Try
     
215.         xlsApp = Nothing
     
216.         '// Release memory.
     
217.         ReleaseObject(xlsApp)
     
218.         ReleaseObject(xlsWorkBook)
     
219.         ReleaseObject(xlsWorkSheet)
     
220.     End Sub
     
221. 
     
222.     Private Sub frmPlotGraph_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
223.         Me.Dispose()
     
224.         Application.Exit()
     
225.     End Sub
     
226. 
     
227.     Private Sub btnClose_Click(sender As System.Object, e As System.EventArgs) Handles btnClose.Click
     
228.         Me.Close()
     
229.     End Sub
     
230. 
     
231.     '// เวลากด Enter ในแถวของตารางกริด จะไม่เกิดการเลื่อนตำแหน่ง
     
232.     Private Sub dgvData_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles dgvData.KeyDown
     
233.         If e.KeyCode = Keys.Enter Then e.SuppressKeyPress = True
     
234.     End Sub
     
235. 
     
236.     ' / ------------------------------------------------------------------
     
237.     '// คืนหน่วยความจำกลับคืนสู่ระบบ
     
238.     Public Sub ReleaseObject(ByVal obj As Object)
     
239.         Try
     
240.             System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
     
241.             obj = Nothing
     
242.         Catch ex As Exception
     
243.             obj = Nothing
     
244.         Finally
     
245.             '// GC = Garbage Collection
     
246.             GC.Collect()
     
247.         End Try
     
248.     End Sub
     
249. 
     
250. End Class

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

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