シートの追加・シートの取得・シートの削除・シートのコピーの方法を記載します。

シートを追加する（シートの作成）

Dim excel As ExcelPackage = New ExcelPackage()

'シートを作成して追加する
Dim sheet As ExcelWorksheet = excel.Workbook.Worksheets.Add("MySheet1")

 

シートを取得する

'番号指定でシートを取得する（番号は１～）
Dim sheet1 As ExcelWorksheet = excel.Workbook.Worksheets(1)

'名前でシートを取得する
Dim sheet2 As ExcelWorksheet = excel.Workbook.Worksheets("MySheet1")

 

シートを削除する

Dim sheet As ExcelWorksheet = excel.Workbook.Worksheets("MySheet1")
excel.Workbook.Worksheets.Delete(sheet)

'シート名による削除
excel.Workbook.Worksheets.Delete("MySheet1")

'シート番号による削除
excel.Workbook.Worksheets.Delete(1)

 

シートをコピーする

excel.Workbook.Worksheets.Copy("MySheet1", "NewSheet1")

 

シート名一覧を表示する

For Each sh As ExcelWorksheet In excel.Workbook.Worksheets
    Console.WriteLine(sh.Name.ToString())
Next

 

EPPlusで、Excelファイルの新規作成および、既存ファイルの修正をする方法を記載します。

新規のファイルにブックを作成し保存する

'オブジェクトの作成
Using excel As ExcelPackage = New ExcelPackage()
    'シートを作成
    Dim sheet As ExcelWorksheet = excel.Workbook.Worksheets.Add("MySheet")

    'A1セルに書き込み
    sheet.Cells("A1").Value = "Hello World"

    '保存
    excel.File = New FileInfo("c:\work\Sample01.xlsx")
    excel.Save()
End Using

 

既存のファイルのブックを修正する

'更新するファイル
Dim FLInfo As FileInfo = New FileInfo("c:\work\Sample01.xlsx")

'Excelファイルを開く
Using excel As ExcelPackage = New ExcelPackage(FLInfo)
    'シートを作成
    Dim sheet As ExcelWorksheet = excel.Workbook.Worksheets.Add("MySheet1")

    'A1セルに書き込み
    sheet.Cells("A1").Value = "Hello World"

    '保存
    excel.Save()
End Using