VBで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