[VB.NET] Excelを新規に生成して保存する

VB.NETでExcelを生成して、セルに値をセットして、
ファイルに保存するサンプルです。

サンプル

【事前準備】
以下の参照設定を追加してください。

「COM」の　Microsoft Excel x.x Object Library

（x.xの所はお使いのExcelの内部バージョン番号になります。）

例）Excelを新規に生成して保存する

Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices

Protected Sub ExcelCreate()

  '定義
  Dim app As Excel.Application = Nothing
  Dim book As Excel.Workbook = Nothing
  Dim sheet As Excel.Worksheet = Nothing

  Try
    'シートの作成
    app = New Excel.Application()
    app.Workbooks.Add()
    book = app.Workbooks(1)
    sheet = CType(book.Worksheets(1), Excel.Worksheet)

    'シート名を設定する
    sheet.Name = "シート１"

    'セルに値をセットする（セル名で指定する場合）
    sheet.Range("A1").Value = "ABC"

    'セルに値をセットする（番号で指定する場合）
    sheet.Cells(2, 1) = "DEF"   '2行・1列目（A2セル）

    '保存する
    book.SaveAs("C:\sample.xlsx")

  Catch ex As Exception
    Throw ex

  Finally
    'オブジェクト解放
    app.Quit()
    Marshal.ReleaseComObject(sheet)
    Marshal.ReleaseComObject(book)
    Marshal.ReleaseComObject(app)

  End Try
End Sub

Imports Microsoft.Office.Interop

Imports System.Runtime.InteropServices

Protected Sub ExcelCreate()

'定義

Dim app As Excel.Application = Nothing

Dim book As Excel.Workbook = Nothing

Dim sheet As Excel.Worksheet = Nothing

Try

'シートの作成

app = New Excel.Application()

app.Workbooks.Add()

book = app.Workbooks(1)

sheet = CType(book.Worksheets(1), Excel.Worksheet)

'シート名を設定する

sheet.Name = "シート１"

'セルに値をセットする（セル名で指定する場合）

sheet.Range("A1").Value = "ABC"

'セルに値をセットする（番号で指定する場合）

sheet.Cells(2, 1) = "DEF" '2行・1列目（A2セル）

'保存する

book.SaveAs("C:\sample.xlsx")

Catch ex As Exception

Throw ex

Finally

'オブジェクト解放

app.Quit()

Marshal.ReleaseComObject(sheet)

Marshal.ReleaseComObject(book)

Marshal.ReleaseComObject(app)

End Try

End Sub