VB.NET EXCEL操作新規ブック作成

2020年11月6日 9分29秒

hironimo

1 EXCEL操作事前準備参照設定
2 サンプルソース
3 まとめ：新規のEXCELブックを作成し、任意の値を入力、保存して閉じる

こんにちは、ひろにもです。

今回は、VB.NETを使ってEXCELのブックを作成する方法を紹介します。

他にもEXCEL操作関係の記事を記載していますので、参考にしてみてください。

VB.NET EXCEL操作値入力
 VB.NET EXCEL操作罫線を引く
 VB.NET EXCEL操作背景色を付ける
 VB.NET EXCEL操作フィルター設定

EXCEL操作事前準備参照設定

VB.NETでExcelの操作をするには、参照の追加をする必要があります。

ソリューションエクスプローラーの参照を右クリック→参照の追加→COMを選択→右上の検索ツールで【excel】と入力

→Microsoft Excel xxx Object Libraryを追加してください。xxxの部分はバージョンによって異なります。

これで操作する準備が整いました。

ソースで使用するにはインポートしてから使用しましょう。

Imports Microsoft.Office.Interop

それではよく使うEXCEL操作をまとめていきます。

サンプルソース

最初に、ボタンを押下すると、新規ブックを作成するサンプル載せておきます。

Imports Microsoft.Office.Interop

Public Class frmExcel
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'EXCEL変数
        Dim excelApp As New Excel.Application()
        Dim excelBooks As Excel.Workbooks = excelApp.Workbooks
        Dim excelBook As Excel.Workbook = excelBooks.Add()
        Dim sheet As Excel.Worksheet = excelApp.Worksheets("sheet1")

        Try

            excelApp.Visible = False

            sheet.Cells(1, 1) = "Hello World"
            sheet.Cells(2, 1) = "ようこそ"
            sheet.Cells(2, 2) = "ひろにもブログへ"

            excelBook.SaveAs("D:\NewExcelBook.xlsx")

            MessageBox.Show("処理完了")

        Catch ex As Exception
            Throw
        Finally
            excelApp.Quit()
            Call System.Runtime.InteropServices.Marshal.ReleaseComObject(sheet)
            Call System.Runtime.InteropServices.Marshal.ReleaseComObject(excelBook)
            Call System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
        End Try
    End Sub
End Class

結果

新しいEXCELブックを開く

'Excelを起動する
Dim excelApp As New Excel.Application()
Dim excelBooks As Excel.Workbooks = excelApp.Workbooks
Dim excelBook As Excel.Workbook = excelBooks.Add()
'excelを見えるように表示する
excelApp.Visible = True

既存のEXCELブックを開く

Dim excelApp As New Excel.Application()
Dim excelBooks As Excel.Workbooks
excelBooks = excelApp.Workbooks
excelBooks.Open("D:\hironimo.xlsx")
excelApp.Visible = True

Excelの指定したセルに値を入力する

'Excelを起動する
Dim sheet As Excel.Worksheet = excelApp.Worksheets("sheet1")
sheet.Cells(1, 1) = "Hello World"
sheet.Cells(2, 1) = "ようこそ"
sheet.Cells(2, 2) = "ひろにもブログへ"

Excelを保存する

excelBook.SaveAs("D:\NewExcelBook.xlsx")

Excel任意のセルのデータ取得

Dim excelApp As New Excel.Application()
Dim excelBooks As Excel.Workbooks
excelBooks = excelApp.Workbooks
Dim excelBook As Excel.Workbook = excelBooks.Open("D:\NewExcelBook.xlsx")
Dim sheet As Excel.Worksheet = excelApp.Worksheets("sheet1")
excelApp.Visible = True

Dim msg As String = sheet.Cells(1, 1).value
MessageBox.Show(msg)

Excelを閉じる

excelApp.Quit()

Excelを閉じるだけでなくオブジェクトの開放もしましょう。

Call System.Runtime.InteropServices.Marshal.ReleaseComObject(sheet)
Call System.Runtime.InteropServices.Marshal.ReleaseComObject(excelBook)
Call System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

まとめ：新規のEXCELブックを作成し、任意の値を入力、保存して閉じる

'Excelを起動する
Dim excelApp As New Excel.Application()
Dim excelBooks As Excel.Workbooks = excelApp.Workbooks
Dim excelBook As Excel.Workbook = excelBooks.Add()
excelApp.Visible = True
Dim sheet As Excel.Worksheet = excelApp.Worksheets("sheet1")
sheet.Cells(1, 1) = "Hello World"
sheet.Cells(2, 1) = "ようこそ"
sheet.Cells(2, 2) = "ひろにもブログへ"
excelBook.SaveAs("D:\NewExcelBook2.xlsx")

excelApp.Quit()

Call System.Runtime.InteropServices.Marshal.ReleaseComObject(sheet)
Call System.Runtime.InteropServices.Marshal.ReleaseComObject(excelBook)
Call System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

今回は、EXCELの操作についてまとめてみました。

セルへの値入力、罫線の引き方、背景色の付け方も是非参考にしてみてください。

VB.NETの記事一覧