ครั้งแรกในชีวิตที่เคยใช้งาน EPPLUS Version 3.1.3.0
(ความรู้สึกมันก็เหมือนเดิม)
Code (VB.NET)
Imports System
Imports System.IO
Imports OfficeOpenXml 'EPPLUS 3.1.3.0
Module Module1
'Console Application Demo.
Sub Main()
Try
Dim outputDir As DirectoryInfo = New DirectoryInfo("c:\temp")
If Not outputDir.Exists Then
Throw New Exception("Directory does not exist.")
End If
Dim newFile As FileInfo = New FileInfo(outputDir.FullName + "\Bang3Jim.xlsx")
If newFile.Exists Then
newFile.Delete()
newFile = New FileInfo(outputDir.FullName + "\Bang3Jim.xlsx")
End If
Using package As ExcelPackage = New ExcelPackage(newFile)
Dim ws As ExcelWorksheet = package.Workbook.Worksheets.Add("FunHappy")
'Add the header.
ws.Cells(1, 1).Value = "ID"
ws.Cells(1, 2).Value = "Girl Name"
ws.Cells(1, 3).Value = "Price"
ws.Cells(1, 4).Value = "จ่ายเพิ่ม"
'Add some items.
ws.Cells("A2").Value = 555
ws.Cells("B2").Value = "น้องขนนิ่ม เหมือนขนนก"
ws.Cells("C2").Value = 1500
ws.Cells("A3").Value = 999
ws.Cells("B3").Value = "น้องขนดก เหมือนนกกะปูดตาแดง"
ws.Cells("C3").Value = 3000
'Add a formula for the value-column
ws.Cells("D2:D3").Formula = "C2*2"
package.Save()
End Using
Catch ex As Exception
'Not Implement.
End Try
End Sub
End Module
