VBのプログラムで、Excelを起動または、終了させる方法を記載します。
Shell関数を利用して起動する方法
1 2 |
Dim execPath As String = "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE" Dim procId As Integer = Shell(execPath, vbNormalFocus) |
Processクラスを利用して起動する方法
1 2 3 4 5 6 7 |
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を追加します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
'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) |
その他の方法
1 2 3 4 5 |
Dim ExcApp As Object ExcApp = CreateObject("Excel.Application") ExcApp.workbooks.add() ExcApp.visible = True |