สอบถามการ Export to Excel โดยที่ไม่ต้องยุ่งเกี่ยวกับ Server มีวิธีการไหนไหมครับ?

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