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 = "シート1"
'セルに値をセットする(セル名で指定する場合)
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