ぷろぐらむノート

セルの選択および、行・列の選択する方法を記載します。

セルのオブジェクトを取得（選択）する

'出力ファイルの準備
Dim FLInfo As FileInfo = New FileInfo("c:\work\Sample05.xlsx")

'Excelファイルの作成
Using excel As ExcelPackage = New ExcelPackage(FLInfo)
    'シートを選択
    Dim sheet As ExcelWorksheet = excel.Workbook.Worksheets("Sheet1")

    'セルの選択
    Dim cell As ExcelRange = sheet.Cells("A1")
    'または
    Dim cell As ExcelRange = sheet.Cells(1, 1)

    'セル範囲の選択
    Dim range As ExcelRange = sheet.Cells(1, 1, 10, 10)

    excel.Save()
End Using

・セルの行、列ともに１から数えます。
 

行および列の選択をする

'シートを選択
Dim sheet As ExcelWorksheet = excel.Workbook.Worksheets("Sheet1")

'Ａ列目の選択
Dim col As ExcelColumn = sheet.Column(1)
    
'1行目の選択
Dim row As ExcelRow = sheet.Row(1)

 

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

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

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