[VB.NET] โค้ดการใช้งาน XlsIO ของ Syncfusion เพื่อทำการแปลงไฟล์ Excel ให้เป็น PDF และ PNG

thongkorn

Syncfusion Excel library (Essential XlsIO) เป็นไลบรารี .NET Excel ที่มีประสิทธิภาพสูง ที่ช่วยให้ผู้ใช้สามารถสร้าง, อ่าน หรือแก้ไขเอกสาร Excel ในแอพพลิเคชั่น .NET โดยที่ไม่ต้องใช้ Microsoft Office ว่าง่ายๆก็คือเป็นการใช้ Excel Engine ของตัว Syncfusion เองครับ สำหรับโค้ดชุดนี้จะเป็นการโหลดไฟล์ Excel เข้าสู่ Spreadsheet ของตัว Syncfusion จากนั้นทำการแปลงให้เป็นเอกสาร PDF ซึ่งก็เป็นของ Syncfusion เหมือนกัน และจากไฟล์ PDF ก็สามารถแปลงไฟล์ต่อไปเป็นกราฟิค โดยตัวอย่างนี้แอดมินเลือกใช้ไฟล์ PNG และสำหรับการโหลดไฟล์กราฟิคเข้าสู่ PictureBox Control แอดมินเลือกใช้ Stream เพื่อป้องกัน Process ที่ค้างอยู่ครับผม ...


ดาวน์โหลดของฟรี Syncfusion Essemtial รุ่น Community ได้ที่นี่ (Version 17.1.0.47)... ย้ำอีกทีว่าฟรี 100% แน่นอนครับ


เริ่มต้นด้วยการ Add References



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

1. Imports Syncfusion.XlsIO
   
2. Imports Syncfusion.Pdf
   
3. Imports Syncfusion.ExcelToPdfConverter
   
4. Imports Syncfusion.Pdf.Parsing
   
5. Imports System.Drawing.Imaging
   
6. Imports System.IO
   
7. 
   
8. Public Class frmSyncfusionMain
   
9.     '// File
   
10.     Dim strFileName As String = String.Empty
    
11.     Dim XlsFileName As String()
    
12. 
    
13.     ' / ---------------------------------------------------------------
    
14.     ' / Load Excel.
    
15.     ' / ---------------------------------------------------------------
    
16.     Private Sub btnLoadXLS_Click(sender As System.Object, e As System.EventArgs) Handles btnLoadXLS.Click
    
17.         Me.TabControlAdv1.SelectedIndex = 0
    
18.         '/ Open File Dialog in Run Time.
    
19.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
    
20.         Try
    
21.             ' / Initialized Open File Dialog.
    
22.             With dlgOpenFile
    
23.                 .InitialDirectory = MyPath(Application.StartupPath)
    
24.                 .Title = "Select MS Excel File"
    
25.                 .Filter = "MS Excel Files (*.xlsx;*.xls)|*.xlsx;*xls"
    
26.                 .FilterIndex = 1
    
27.                 .RestoreDirectory = True
    
28.             End With
    
29.             '/ If the OK button is selected.
    
30.             If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
31.                 '// For save
    
32.                 strFileName = dlgOpenFile.FileName
    
33.                 Spreadsheet1.Open(strFileName)
    
34.                 '// Xlsfilename(0) = "D:\SyncfusionFile\SyncfusionFile\GettingStarted"
    
35.                 '// Xlsfilename(1) = "xlsx"
    
36.                 XlsFileName = Split(strFileName, ".")
    
37.             End If
    
38.         Catch ex As Exception
    
39.             MessageBox.Show(ex.Message)
    
40.         End Try
    
41. 
    
42.     End Sub
    
43. 
    
44.     ' / ---------------------------------------------------------------
    
45.     ' / Convert Excel To PDF.
    
46.     ' / ---------------------------------------------------------------
    
47.     Private Sub btnXlsToPdf_Click(sender As System.Object, e As System.EventArgs) Handles btnXlsToPdf.Click
    
48.         If strFileName.Length = 0 Then
    
49.             MessageBox.Show("You did not load the Excel file.", "Report status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
50.             Return
    
51.         End If
    
52.         Spreadsheet1.Save()
    
53.         '//
    
54.         Me.TabControlAdv1.SelectedIndex = 1
    
55.         '//
    
56.         Try
    
57.             Using excelEngine As ExcelEngine = New ExcelEngine()
    
58.                 Dim application As IApplication = excelEngine.Excel
    
59.                 application.DefaultVersion = ExcelVersion.Excel2013
    
60.                 '// Load Excel to Workbook.
    
61.                 Dim workbook As IWorkbook = application.Workbooks.Open(strFileName, ExcelOpenType.Automatic)
    
62. 
    
63.                 '/ Open the Excel document to convert
    
64.                 Dim converter As ExcelToPdfConverter = New ExcelToPdfConverter(workbook)
    
65.                 '/ Initialize the PDF document
    
66.                 Dim pdfDocument As PdfDocument = New PdfDocument()
    
67.                 '/ Convert Excel document into PDF document
    
68.                 pdfDocument = converter.Convert()
    
69.                 '/ Save the PDF file
    
70.                 pdfDocument.Save(XlsFileName(0) & ".pdf")
    
71. 
    
72.             End Using
    
73.             Me.PdfViewerControl1.Load(XlsFileName(0) + ".pdf", "")
    
74. 
    
75.         Catch ex As Exception
    
76.             MessageBox.Show(ex.Message)
    
77.         End Try
    
78.     End Sub
    
79. 
    
80.     ' / ---------------------------------------------------------------
    
81.     ' / Convert PDF To Image File.
    
82.     ' / ---------------------------------------------------------------
    
83.     Private Sub btnPdfToImage_Click(sender As System.Object, e As System.EventArgs) Handles btnPdfToImage.Click
    
84.         '// Trap Error if Nothing on PdfViewerControl1.
    
85.         If IsNothing(PdfViewerControl1.LoadedDocument) Then Exit Sub
    
86.         Me.TabControlAdv1.SelectedIndex = 2
    
87.         Call ClearPictureBox(PictureBox1)
    
88.         Try
    
89.             '/ Loaded input PDF file
    
90.             Dim loadedDocument As New PdfLoadedDocument(XlsFileName(0) & ".pdf")
    
91.             '/ Exporting specify page index as image
    
92.             Dim image As Bitmap = loadedDocument.ExportAsImage(0)
    
93.             '/ Save the image as PNG format
    
94.             image.Save(XlsFileName(0) & ".png", ImageFormat.Png)
    
95.             '/ Close the document
    
96.             loadedDocument.Close(True)
    
97.             '// Use Stream to show picture.
    
98.             Call ShowPicture(XlsFileName(0) & ".png")
    
99.         Catch ex As Exception
    
100.             MessageBox.Show(ex.Message)
     
101.         End Try
     
102.     End Sub
     
103. 
     
104.     ' / -----------------------------------------------------------------------------
     
105.     ' / Use Steam instead IO.
     
106.     ' / -----------------------------------------------------------------------------
     
107.     Sub ShowPicture(PicName As String)
     
108.         Dim imgDB As Image
     
109.         Dim streamPic As Stream
     
110.         '// Get the name of the image file from the database.
     
111.         '// Verify that the image file meets the specified location.
     
112.         If System.IO.File.Exists(PicName.ToString) Then
     
113.             ' Because when deleting the image file is locked, it can not be removed.
     
114.             ' The file is closed after the image is loaded, so you can delete the file if you need to
     
115.             streamPic = File.OpenRead(PicName.ToString)
     
116.             imgDB = Image.FromStream(streamPic)
     
117.             PictureBox1.Image = imgDB
     
118.             streamPic.Dispose()
     
119.         End If
     
120.     End Sub
     
121. 
     
122.     Private Sub ClearPictureBox(ByRef pb As PictureBox)
     
123.         pb.Image = Nothing
     
124.         pb.BackColor = Color.Empty
     
125.         pb.Invalidate()
     
126.     End Sub
     
127. 
     
128.     ' / --------------------------------------------------------------------------------
     
129.     ' / Get my project path
     
130.     ' / AppPath = C:\My Project\bin\debug
     
131.     ' / Replace "\bin\debug" with ""
     
132.     ' / Return : C:\My Project\
     
133.     Function MyPath(ByVal AppPath As String) As String
     
134.         '/ MessageBox.Show(AppPath);
     
135.         AppPath = AppPath.ToLower()
     
136.         '/ Return Value
     
137.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
     
138.         '// If not found folder then put the \ (BackSlash) 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 frmSyncfusionMain_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
147.         Me.Dispose()
     
148.         Application.Exit()
     
149.     End Sub
     
150. 
     
151. End Class

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

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

komen

file:///C:/Users/komen/Pictures/Clip.jpgผมคลิ๊กลิ้งค์ download แล้ว มัน ขึ้น แบบนี้ครับ
สมัคร สมาชิกแล้วครัรบ

thongkorn

ลิ้งค์สำหรับสมัครสมาชิกใหม่ครับ Syncfusion Community license