[VB.NET] การใช้งาน Spreadsheet หรือตาราง Excel ด้วย XlsIO ของฟรีจากค่าย Syncfusion

thongkorn

ของฟรีที่ทรงประสิทธิภาพจากค่าย Syncfusion ในรุ่น Community นั่นคือ Essential XlsIO เป็นคลาสไลบรารี ในกลุ่มตระกูล .NET ที่สามารถใช้ในการสร้าง และแก้ไขไฟล์ Microsoft Excel โดยการใช้ภาษา C#, VB.NET และโค้ด C ++ ซึ่ง XlsIO มีรูปแบบที่อำนวยความสะดวกในการเข้าถึง และจัดการสเปรดชีตโดยไม่ต้องพึ่งพา Microsoft Office COM Libraries หรือ Microsoft Office ว่าง่ายๆคือ ใช้งาน Excel โดยไม่ต้องติดตั้ง MS Office ... ดาวน์โหลดได้ฟรีที่นี่ ...


การเรียกใช้งาน Spreadsheet จากกลุ่มเครื่องมือ (Toolbox)



References ที่ต้องนำมาใช้งาน ...



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

1. #Region "About"
   
2. ' / --------------------------------------------------------------------------------
   
3. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
4. ' / eMail : thongkorn@hotmail.com
   
5. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
6. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
7. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
8. ' / Purpose: Test SpreadSheet of Syncfusion Community.
   
9. ' / Microsoft Visual Basic .NET (2010)
   
10. ' /
    
11. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
12. ' / You can modify and/or distribute without to inform the developer.
    
13. ' / --------------------------------------------------------------------------------
    
14. #End Region
    
15. 
    
16. Imports Microsoft.VisualBasic
    
17. Imports Syncfusion.Windows.Forms.Spreadsheet
    
18. Imports Syncfusion.XlsIO
    
19. 
    
20. Public Class frmSpreadExcel
    
21.     '// Data Path
    
22.     Dim strPathData As String = MyPath(Application.StartupPath)
    
23.     '// File
    
24.     Dim strFileName As String = ""
    
25. 
    
26.     ' / --------------------------------------------------------------------------------
    
27.     ' / Get my project path
    
28.     ' / AppPath = C:\My Project\bin\debug
    
29.     ' / Replace "\bin\debug" with ""
    
30.     ' / Return : C:\My Project\
    
31.     Function MyPath(ByVal AppPath As String) As String
    
32.         '/ MessageBox.Show(AppPath);
    
33.         AppPath = AppPath.ToLower()
    
34.         '/ Return Value
    
35.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
36.         '// If not found folder then put the \ (BackSlash) at the end.
    
37.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
38.     End Function
    
39. 
    
40.     Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
    
41.         ' ประกาศใช้งาน Open File Dialog ในแบบ Run Time   
    
42.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
    
43. 
    
44.         ' / ตั้งค่าการใช้งาน Open File Dialog
    
45.         With dlgOpenFile
    
46.             .InitialDirectory = MyPath(Application.StartupPath)
    
47.             .Title = "เลือกไฟล์ MS Excel"
    
48.             .Filter = "MS Excel Files (*.xlsx;*.xls)|*.xlsx;*xls"
    
49.             .FilterIndex = 1
    
50.             .RestoreDirectory = True
    
51.         End With
    
52.         ' หากเลือกปุ่ม OK หลังจากการ Browse ...
    
53.         If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
54.             '// For save
    
55.             strFileName = dlgOpenFile.FileName
    
56.             spreadsheet.Open(strFileName)
    
57.         End If
    
58.     End Sub
    
59. 
    
60.     Private Sub frmReadWriteExcel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
61.         MsgBox(Chr(92))
    
62.         '// ComboBox
    
63.         With cmbCol
    
64.             '// Load ASCII Code from 65 to 9, "A" is 65 (Base 10)
    
65.             For i As Byte = 65 To 90
    
66.                 cmbCol.Items.Add(Chr(i))
    
67.             Next
    
68.             cmbCol.SelectedIndex = 0
    
69.             For i As Byte = 1 To 100
    
70.                 cmbRow.Items.Add(i)
    
71.             Next
    
72.             cmbRow.SelectedIndex = 0
    
73.         End With
    
74.         'spreadsheet.FormulaBarVisibility = False
    
75.     End Sub
    
76. 
    
77.     Private Sub btnAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAccept.Click
    
78.         Dim excelEngine As ExcelEngine = New ExcelEngine
    
79.         Dim application As IApplication = excelEngine.Excel
    
80.         Dim sheet As IWorksheet = spreadsheet.Workbook.Worksheets(0)
    
81.         '//
    
82.         Dim range As IRange = sheet.Range(Chr(34) + cmbCol.Text + cmbRow.Text + Chr(34))
    
83.         range.Text = txtData.Text
    
84.         spreadsheet.Focus()
    
85.         range.Activate()
    
86.         '// Focus to active cell.
    
87.         Me.spreadsheet.ActiveGrid.CurrentCell.MoveCurrentCell(CInt(cmbRow.Text), CInt(cmbCol.SelectedIndex) + 1)
    
88.         SendKeys.Send("{F2}")
    
89.         txtData.Clear()
    
90.     End Sub
    
91. 
    
92.     Private Sub txtData_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtData.KeyPress
    
93.         If Trim(txtData.Text).Length = 0 Or Trim(txtData.Text) = "" Then Return
    
94.         '// Press key ENTER
    
95.         If e.KeyChar = Chr(13) Then
    
96.             '// No Beep
    
97.             e.Handled = True
    
98.             '//
    
99.             Call btnAccept_Click(sender, e)
    
100.         End If
     
101.     End Sub
     
102. 
     
103.     Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
     
104.         Me.Close()
     
105.     End Sub
     
106. 
     
107.     Private Sub frmReadWriteExcel_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
108.         Me.Dispose()
     
109.         Application.Exit()
     
110.     End Sub
     
111. 
     
112.     Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
     
113.         '// Save the workbook to disk in xlsx format.
     
114.         If strFileName.Length = 0 Then
     
115.             MessageBox.Show("You did not load the Excel file.", "Report status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
     
116.             Return
     
117.         End If
     
118.         spreadsheet.Save()
     
119.         MessageBox.Show("Save Excel file successfully.", "Report status", MessageBoxButtons.OK, MessageBoxIcon.Information)
     
120.     End Sub
     
121. 
     
122. End Class

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

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

anuyut1995

ขอบคุณครับ