VB.NET Excelを起動または終了する

ＶＢのプログラムで、Excelを起動または、終了させる方法を記載します。

Shell関数を利用して起動する方法

Dim execPath As String = "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"
Dim procId As Integer = Shell(execPath, vbNormalFocus)

1 2	Dim execPath As String = "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE" Dim procId As Integer = Shell(execPath, vbNormalFocus)

Processクラスを利用して起動する方法

Dim execPath As String = "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"
Dim execProc As New Process

With execProc
    .StartInfo.FileName = execPath
    .Start()
End With

Dim execPath As String = "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"

Dim execProc As New Process

With execProc

.StartInfo.FileName = execPath

.Start()

End With

COMオブジェクトを利用して起動および終了する方法

まず参照追加－COMでMicrosoft Excel xxx Object Libraryを追加します。

プログラムにImports Microsoft.Office.Interopを追加します。

'Excel.Applicationのインスタンスを生成する
Dim xlApp As New Excel.Application()

'Excel を表示する
xlApp.Visible = True

'3秒待機する
System.Threading.Thread.Sleep(3000)

'Excel を終了する
xlApp.Quit()

'COM オブジェクトの参照カウントを解放する
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

'Excel.Applicationのインスタンスを生成する

Dim xlApp As New Excel.Application()

'Excel を表示する

xlApp.Visible = True

'3秒待機する

System.Threading.Thread.Sleep(3000)

'Excel を終了する

xlApp.Quit()

'COM オブジェクトの参照カウントを解放する

System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

その他の方法

Dim ExcApp As Object		
ExcApp = CreateObject("Excel.Application")

ExcApp.workbooks.add()
ExcApp.visible = True

Dim ExcApp As Object

ExcApp = CreateObject("Excel.Application")

ExcApp.workbooks.add()

ExcApp.visible = True