[VB.NET] Excelをテンプレートを元に生成する

VB.NET

2022.11.072024.09.15

VB.NETでExcelのテンプレートを元に、Excelを生成するサンプルです。

サンプル

例）テンプレートを元にExcelを生成する

Protected Sub ExcelCreateFromTemplate()

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

  Try
    app = New Excel.Application()
    book = app.Workbooks.Add("C:\template.xlsx")  'テンプレート
    sheet = CType(book.Worksheets(1), Excel.Worksheet)
    sheet.Range("A2").Value = "A001"
    sheet.Range("B2").Value = "山田太郎"
    sheet.Range("C2").Value = "68"

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

  Catch ex As Exception
    Throw ex

  Finally
    app.Quit()
    Marshal.ReleaseComObject(sheet)
    Marshal.ReleaseComObject(book)
    Marshal.ReleaseComObject(app)

  End Try
End Sub

Protected Sub ExcelCreateFromTemplate()

'定義

Dim app As Excel.Application = Nothing

Dim book As Excel.Workbook = Nothing

Dim sheet As Excel.Worksheet = Nothing

Try

app = New Excel.Application()

book = app.Workbooks.Add("C:\template.xlsx") 'テンプレート

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

sheet.Range("A2").Value = "A001"

sheet.Range("B2").Value = "山田太郎"

sheet.Range("C2").Value = "68"

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

Catch ex As Exception

Throw ex

Finally

app.Quit()

Marshal.ReleaseComObject(sheet)

Marshal.ReleaseComObject(book)

Marshal.ReleaseComObject(app)

End Try

End Sub

実行例

こんな感じでテンプレートExcelを用意します。

サンプルコードを実行するとこんな感じのExcelが生成されます。