ぷろぐらむノート

Excelで、新しいブックを追加する方法および、既存のファイルを開く方法を記載します。

新しいブックを追加してExcelを開きます

Dim xlApp As New Excel.Application()
Dim xlBooks As Excel.Workbooks

'WorkBooksを取得する
xlBooks = xlApp.Workbooks

'新しいブックを追加する
xlBooks.Add()

xlApp.Visible = True

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

xlApp.Quit()

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

既存のブックをExeclで開きます

Dim xlApp As New Excel.Application()
Dim xlBooks As Excel.Workbooks

'WorkBooksを取得する
xlBooks = xlApp.Workbooks

'既存のブックを開く
xlBooks.Open("C:\work\myBook.xls")

xlApp.Visible = True

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

xlApp.Quit()

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

Excelでは、複数のブックがあり、その中に複数のシートがあります。

その ブック および シート を選択する方法を記載します。

Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet

xlApp = New Excel.Application()

'ブックを２つ読み込みます
xlApp.Workbooks.Open("C:\work\myBook1.xls")
xlApp.Workbooks.Open("C:\work\myBook2.xls")

-------------------------------------------------------------------
'ブックの選択は、名前もしくは番号で選択します。

Dim xlBook As Excel.Workbook = xlApp.Workbooks(1)
または
Dim xlBook As Excel.Workbook = xlApp.Workbooks("myBook1.xls")

-------------------------------------------------------------------
'シートの選択は、名前もしくは番号で選択します。

xlSheet = xlBook.Worksheets(2)
または
xlSheet = xlBook.Worksheets("Sheet2")

------------------------------------------------------------------

'セル選択
Dim xlCells As Excel.Range = xlSheet.Cells.Range("E3")

'セルにデータ書込み
xlCells.Value = "1234567890"

'シート１をアクティブにします
xlBook.Activate()
'表示します
xlApp.Visible = True

System.Threading.Thread.Sleep(10000)

xlApp.Quit()

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

・通常ブックもシートも現在アクティブになっていものが対象になる。