ぷろぐらむノート

Excelのブックから、シートを削除する方法を記載します。

シートを削除する

Dim xlApp As Excel.Application = New Excel.Application()

xlApp.Workbooks.Open("C:\work\myBook1.xls")

Dim xlSheet As Excel.Worksheet = DirectCast(xlApp.Worksheets(1), Excel.Worksheet)   ' 1シート目を選択
xlSheet.Activate()

xlApp.Visible = True

System.Threading.Thread.Sleep(3000)

xlApp.Application.DisplayAlerts = False
xlApp.ActiveSheet.Delete
xlApp.Application.DisplayAlerts = True

System.Threading.Thread.Sleep(3000)

xlApp.Quit()

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

・削除する際、確認メッセージが表示されます。

・確認メッセージを全て出さなくするために、ApplicationオブジェクトのDisplayAlertsプロパティをFalseに設定します。

Excelのブックに、シートを追加する方法を記載します。

シートを１つ追加する

Dim xlApp As Excel.Application = New Excel.Application()

xlApp.Workbooks.Open("C:\work\myBook.xls")

----------------------------------------------------------------------
Dim NewSheet As Excel.Worksheet = xlApp.Worksheets.Add()
NewSheet.Name = "シート１"

または

With xlApp.Worksheets.Add()
    .Name = "シート１"
End With
----------------------------------------------------------------------

xlApp.Visible = True

System.Threading.Thread.Sleep(3000)

xlApp.Quit()

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

シートを複数追加する

xlSheets.Add(Before, After, Count, Type)
'Before：ここで指定したシートの前に新規シートが追加されます。
'After ：ここで指定したシートの後ろに新規シートが追加されます。
'Count ：追加するシート数です。
'Type  ：追加するタイプを指定します。通常（WorkSheet）

Dim xlApp As Excel.Application = New Excel.Application()

xlApp.Workbooks.Open("C:\work\myBook.xls")

Dim xlSheet As Excel.Worksheet = DirectCast(xlApp.Worksheets(1), Excel.Worksheet)   ' 1シート目を選択

'指定シート(xlSheet)の後ろに２つ追加します。
xlApp.Worksheets.Add(, xlSheet, 2, Excel.XlSheetType.xlWorksheet)

xlApp.Visible = True

System.Threading.Thread.Sleep(3000)

xlApp.Quit()

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