【VB.NET】VB.NETからExcelファイルを操作するには

VB.NETからExcelファイルにデータを書き込んだり、

その逆にExcelファイルからデータを取得することでアプリケーションの幅が広がります。

DBを用意しなくてもExcelをDBと見立ててアプリケーションの作成なんかもできてしまいます。

ここではその方法をお伝えします。

Excelの既存ファイルを開く

Dim xlApplication As New Excel.Application()
Dim xlBooks As Excel.Workbooks xlBooks = xlApplication.Workbooks

'既存のブックを開く
xlBooks.Open("C:\Hoge.xls")
'Excelを非表示にする
xlApplication.Visible = False

 

Exelを新規ファイルで開く

            
            Dim xlBooks As Excel.Workbooks
            Dim xlBook As Excel.Workbook
            Dim xlSheets As Excel.Sheets
            Dim xlSheet As Excel.Worksheet
            Dim xlRange As Excel.Range
            Dim xlApp As Excel.Application

            xlApp = CreateObject("Excel.Application")
            xlApp.Visible = True
            'Excelから読み込み
            xlBooks = xlApp.Workbooks
            'Excelの非可視化
            xlApp.Visible = False
            '新規のファイルを開く
            xlBook = xlBooks.Add()

            xlSheets = xlBook.Worksheets
            xlSheet = DirectCast(xlSheets.Item(1), Excel.Worksheet)

 

ExcelのCOMObjectを解放する部品

引数に解放したいもの(SheetやRange)を入れてください。

解放する時は作成した順と逆に解放することがポイントです。

そうしないと、プロセスにEXCELが大量に作成され続けてしまいます。

 

作成順

Dim xlBooks As Excel.Workbooks

Dim xlBook As Excel.Workbook

Dim xlSheets As Excel.Sheets

Dim xlSheet As Excel.Worksheet

 

解放

ReleaseCOMObject(xlSheet)

ReleaseCOMObject(xlSheets) xlBook.Close()

ReleaseCOMObject(xlBook)

ReleaseCOMObject(xlBooks)

 

        
    'COMオブジェクトの解放
    Private Shared Sub ReleaseCOMObject(Of T As Class)(ByRef objCom As T)

        'オブジェクトが空の場合処理を抜ける
        If objCom Is Nothing Then
            Return
        End If

        Try
            'パラメタがCOMオブジェクトかチェック
            If System.Runtime.InteropServices.Marshal.IsComObject(objCom) Then

                'Runtime Callable Wrapperの解放を行う
                Dim cntRCW As Integer = System.Runtime.InteropServices.Marshal.FinalReleaseComObject(objCom)
                If cntRCW <> 0 Then
                    '解放しきれていない場合、メッセージを出力
                    MessageBox.Show("解放エラー")
                End If

            End If

        Finally
            objCom = Nothing
        End Try

    End Sub

 


仕事以外でも収入が欲しい方

まずは、こちらを読んでみてください。読むのはもちろんタダです。自分にあったものがきっと見つかるはず。



無在庫販売でお小遣い稼ぎしませんか?






初心者も多数使っているので安心して始められます。




コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

ABOUTこの記事をかいた人

モットーはスティーブ・ジョブズのStay hungry Stay Foolish. 野心を持って正しい方法を身につければ誰でも成功できることを証明していきます。 本職以外で収入を得たい方の手助けができればと思います。