[VB.Net] การส่งออก WorkSheet ของไฟล์ Excel เพื่อบันทึกไฟล์ในรูปแบบ CSV

thongkorn

CSV (Comma-Separated Value) คือ Text File สำหรับเก็บข้อมูลแบบตาราง โดยใช้จุลภาค (,) แบ่งข้อมูลในแต่ละหลัก (Column) และใช้การเว้นบรรทัดแทนการแบ่งแถว (Row) ... ตัวอย่างเช่น อันดับ, ชื่อ, นามสกุล, เพศ ... โดยปกติเรามักจะโหลดข้อมูลเข้าสู่ตารางกริดก่อน แล้วค่อยบันทึกไฟล์ให้อยู่ในรูป CSV แต่โปรเจคนี้จะเป็นการเลือกไฟล์ Excel และเลือก WorkSheet ที่ต้องการ ส่งออกไฟล์ หรือบันทึกไฟล์ให้เป็น CSV File ... อนึ่ง!!! การโหลด WorkSheet เข้ามา แอดมินใช้ ADO.Net ในการติดต่อกับ Excel เสมือนหนึ่งว่ามันเป็นไฟล์ข้อมูล จากนั้นเลือก WorkSheet (ตารางข้อมูล) โดยกำหนดให้เป็น Activate WorkSheet (WorkSheet ที่ต้องการ) จากนั้นใช้ Interop Services (ความเข้ากันได้กับรุ่นเก่า คือเป็นการใช้ COM - Component Object Model) ในการบันทึกไฟล์ CSV ...

การ Add Reference เพื่อเลือก (COM - Component Object Model) Microsoft Excel Object Library ...


Interop Services ...


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

1. Public Class frmExcel2Csv
   
2. 
   
3.     ' / --------------------------------------------------------------------
   
4.     ' / เลือกไฟล์ Excel ด้วยการใช้งาน ADO.Net
   
5.     Private Sub btnOpenExcel_Click(sender As System.Object, e As System.EventArgs) Handles btnOpenExcel.Click
   
6.         '/ ประกาศใช้งาน Open File Dialog ในแบบ Run Time
   
7.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
   
8. 
   
9.         ' / ตั้งค่าการใช้งาน Open File Dialog
   
10.         With dlgOpenFile
    
11.             .InitialDirectory = MyPath(Application.StartupPath)
    
12.             .Title = "เลือกไฟล์ MS Excel"
    
13.             .Filter = "Excel Files (*.xlsx)|*.xlsx|XLS Files (*.xls)|*xls"
    
14.             .FilterIndex = 0
    
15.             .RestoreDirectory = True
    
16.         End With
    
17.         '/ หากเลือกปุ่ม OK หลังจากการ Browse ...
    
18.         If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
19.             txtFileName.Text = dlgOpenFile.FileName
    
20.             Dim strConn As String = _
    
21.                 " Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
    
22.                 dlgOpenFile.FileName & ";" & _
    
23.                 " Extended Properties=""Excel 12.0 Xml; HDR=YES"";"
    
24.             Dim Conn As New OleDbConnection(strConn)
    
25.             Conn.Open()
    
26.             '/ มอง WorkSheet ให้เป็นตารางข้อมูล (Table)
    
27.             Dim dtSheets As DataTable = Conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
    
28.             Dim drSheet As DataRow
    
29.             '//
    
30.             cmbSheetName.Items.Clear()
    
31.             '/ นำรายชื่อ WorkSheet ทั้งหมด มาเก็บไว้ที่ ComboBox เพื่อรอให้ User เลือกนำไปใช้งาน
    
32.             For Each drSheet In dtSheets.Rows
    
33.                 cmbSheetName.Items.Add(drSheet("TABLE_NAME").ToString)
    
34.             Next
    
35.             Conn.Close()
    
36.         End If
    
37. 
    
38.     End Sub
    
39. 
    
40.     ' / --------------------------------------------------------------------
    
41.     ' / Convert Excel into CSV with select worksheet.
    
42.     ' / --------------------------------------------------------------------
    
43.     Private Sub btnExcel2Csv_Click(sender As System.Object, e As System.EventArgs) Handles btnExcel2Csv.Click
    
44.         '// Trap Error
    
45.         If txtFileName.Text.Trim.Length = 0 Or txtFileName.Text.Trim = "" Then
    
46.             MessageBox.Show("Please select Excel file.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
47.             btnExcel2Csv.Focus()
    
48.             Return
    
49.         End If
    
50.         If cmbSheetName.SelectedIndex < 0 Then
    
51.             MessageBox.Show("Please select WorkSheet.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
52.             cmbSheetName.Focus()
    
53.             Return
    
54.         End If
    
55.         '//
    
56.         If IO.File.Exists(txtFileName.Text) Then
    
57.             Dim xlApp As Excel.Application = Nothing
    
58.             Dim xlWorkBook As Excel.Workbook = Nothing
    
59.             Dim xlWorkBooks As Excel.Workbooks = Nothing
    
60.             Dim xlWorkSheet As Excel.Worksheet = Nothing
    
61.             Dim xlWorkSheets As Excel.Sheets = Nothing
    
62.             xlApp = New Excel.Application
    
63.             xlApp.DisplayAlerts = False
    
64.             xlWorkBooks = xlApp.Workbooks
    
65.             xlWorkBook = xlWorkBooks.Open(txtFileName.Text)
    
66.             xlApp.Visible = False
    
67.             xlWorkSheets = xlWorkBook.Sheets
    
68.             '// ------------------------------------------------------------------------------------
    
69.             '// กำหนด Activate WorkSheet จากที่เราเลือก
    
70.             xlWorkSheet = CType(xlWorkSheets(cmbSheetName.Text.Replace("[        DISCUZ_CODE_0        ]quot;, "")), Excel.Worksheet)
    
71.             '// หรือใช้ Index
    
72.             'xlWorkSheet = CType(xlWorkSheets(cmbSheetName.SelectedIndex + 1), Excel.Worksheet)
    
73.             xlWorkSheet.Activate()
    
74.             xlWorkSheet = CType(xlWorkBook.ActiveSheet, Excel.Worksheet)
    
75.             '// ------------------------------------------------------------------------------------
    
76.             '// Save Excel to CSV
    
77.             Dim dlgSaveFile As New SaveFileDialog()
    
78.             With dlgSaveFile
    
79.                 .Filter = "CSV File |*.csv"
    
80.                 .Title = "บันทึกไฟล์ CSV"
    
81.                 .DefaultExt = "csv"
    
82.                 .InitialDirectory = MyPath(Application.StartupPath)
    
83.                 .RestoreDirectory = True
    
84.             End With
    
85.             '// Save CSV File.
    
86.             If dlgSaveFile.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
    
87.                 xlWorkBook.SaveAs(dlgSaveFile.FileName, FileFormat:=Excel.XlFileFormat.xlCSVWindows)
    
88.                 MessageBox.Show("Save Excel to CSV file Complete.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
89.             End If
    
90.             xlWorkSheet = Nothing
    
91.             '//
    
92.             xlWorkBook.Close()
    
93.             xlApp.UserControl = True
    
94.             xlApp.Quit()
    
95. 
    
96.             '// Release Objects.
    
97.             If Not xlWorkSheets Is Nothing Then
    
98.                 Marshal.FinalReleaseComObject(xlWorkSheets)
    
99.                 xlWorkSheets = Nothing
    
100.             End If
     
101. 
     
102.             If Not xlWorkSheet Is Nothing Then
     
103.                 Marshal.FinalReleaseComObject(xlWorkSheet)
     
104.                 xlWorkSheet = Nothing
     
105.             End If
     
106. 
     
107.             If Not xlWorkBooks Is Nothing Then
     
108.                 Marshal.FinalReleaseComObject(xlWorkBooks)
     
109.                 xlWorkBooks = Nothing
     
110.             End If
     
111. 
     
112.             If Not xlWorkBook Is Nothing Then
     
113.                 Marshal.FinalReleaseComObject(xlWorkBook)
     
114.                 xlWorkBook = Nothing
     
115.             End If
     
116. 
     
117.             '// Other Method to release Object.
     
118.             Runtime.InteropServices.Marshal.FinalReleaseComObject(xlApp)
     
119. 
     
120.         Else
     
121.             MessageBox.Show("Failed to located!!! " & txtFileName.Text, "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Warning)
     
122.         End If
     
123.     End Sub
     
124. 
     
125.     Private Sub frmExcel2Csv_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
     
126.         Me.CenterToScreen()
     
127.     End Sub
     
128. 
     
129.     ' / ------------------------------------------------------------------
     
130.     ' / ฟังค์ชั่นที่เราสามารถกำหนด Path ให้กับโปรแกรมของเราเอง
     
131.     ' / Ex.
     
132.     ' / AppPath = C:\My Project\bin\debug
     
133.     ' / Replace "\bin\debug" with ""
     
134.     ' / Return : C:\My Project\
     
135.     Function MyPath(AppPath As String) As String
     
136.         AppPath = AppPath.ToLower()
     
137.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "")
     
138.         '// If not found folder then put the \ (BackSlash ASCII Code = 92) at the end.
     
139.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
140.     End Function
     
141. 
     
142.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
143.         Me.Close()
     
144.     End Sub
     
145. 
     
146.     Private Sub frmExcel2Csv_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
147.         Me.Dispose()
     
148.         GC.SuppressFinalize(Me)
     
149.         Application.Exit()
     
150.     End Sub
     
151. 
     
152. End Class

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

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