Dim FilePath As String = "C:\Deneme.xlsx"

        Dim destination_file As New FileInfo(FilePath)

        Try

            destination_file.Delete()

        Catch ex As Exception

        End Try





        Dim Yeni As New FileInfo(FilePath)

        Dim Dosya As New ExcelPackage(Yeni)

        Dim Sayfa As ExcelWorksheet = Dosya.Workbook.Worksheets.Add("Deneme")



        Sayfa.Cells.Style.Font.Size = 11



        Sayfa.Cells.Style.Font.Name = "Calibri"

        

        Sayfa.Column(1).Width = 10

        Sayfa.Column(2).Width = 30

        Sayfa.Column(3).Width = 10

        Sayfa.Column(4).Width = 10

        Sayfa.Column(5).Width = 12



        Sayfa.Column(3).Style.HorizontalAlignment = ExcelHorizontalAlignment.Right

        Sayfa.Column(4).Style.HorizontalAlignment = ExcelHorizontalAlignment.Right

        Sayfa.Column(5).Style.HorizontalAlignment = ExcelHorizontalAlignment.Right



        Sayfa.Column(4).Style.Numberformat.Format = "###,###,##0.00;[RED](-###,###,##0.00)"

        Sayfa.Column(5).Style.Numberformat.Format = "###,###,##0.00%;[RED](-###,###,##0.00%)"



        Sayfa.Cells(1, 1).Value = "Ali"

        Sayfa.Cells(3, 1).Value = "Velİ"

        Sayfa.Cells(3, 2).Value = "Hasan"

        Sayfa.Cells(3, 3).Value = "Mehmet"

        Sayfa.Cells(3, 4).Value = "Kerim"

        Sayfa.Cells(3, 5).Value = "%...."



        Sayfa.Cells(1, 1).Style.Font.Bold = True

        Sayfa.Cells(3, 1).Style.Font.Bold = True

        Sayfa.Cells(3, 2).Style.Font.Bold = True

        Sayfa.Cells(3, 3).Style.Font.Bold = True

        Sayfa.Cells(3, 4).Style.Font.Bold = True

        Sayfa.Cells(3, 5).Style.Font.Bold = True





        Dosya.Save()

Bu şekilde oluşturdum. Fakat şunu yapmak istiyorum.

- Dim FilePath As String = "C:\Deneme.xlsx" burdaki dosyayı değilde yeniden bir dosya oluştursun

- Ekleme işlemi bitince doyayı ekrana açsın
Teşekkürler