VBでExcelファイル作成

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 = "シート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

コメント

タイトルとURLをコピーしました