エクセルのシートを追加

Question

前提・実現したいこと

C#でエクセルのブックとシートの作成の後さらに、
エクセルのシートを追加しようとしています。
以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

System.Runtime.InteropServices.COMException: 'HRESULT からの例外:0x800A03EC'

該当のソースコード

using System;
using System.Collections.Generic;
using System.Windows;
using Excel = Microsoft.Office.Interop.Excel;
using System.Runtime.InteropServices;
using System.IO;
using NPOI.SS.UserModel;
using System.Windows.Documents;
using System.Linq;

    Excel.Application ExcelApp = null;
    Excel.Workbooks workbooks = null;
    Excel.Workbook wb = null;
    Excel.Sheets sheets = null;
    Excel.Worksheet ws = null;

//Excelシートのインスタンスを作る
ExcelApp = new Excel.Application();
workbooks = ExcelApp.Workbooks;
wb = workbooks.Add();
sheets = wb.Sheets;

//アクティブシート(の直前)にシートを追加
wb.Worksheets.Add(After: sheets);
ws.Select(Type.Missing);
ExcelApp.Visible = false;// Excelの表示(非表示はfalse)

試したこと

シートを追加するために以下のコードの部分を追加しましてみました。
wb.Worksheets.Add(After: sheets);
ここでエラーが生じます

補足情報（FW/ツールのバージョンなど）

Answer 1

Spire.XLSで同じエクセルの中でシートを追加することです。

Workbook workbook = new Workbook();
workbook.LoadFromFile("DoughnutChart.xlsx");
//初めのシートを取得します。
Worksheet sheet1 = workbook.Worksheets[0];
//新しいシートを追加します。
Worksheet sheet2 = workbook.Worksheets.Add("Copy");
//初めのシートを新しいシートにコピーします。
sheet2.CopyFrom(sheet1);
//保存します。
workbook.SaveToFile("DoughnutChart.xlsx");

Answer 2

Spire.XLSで同じエクセルの中でシートを追加することができます。

Workbook workbook = new Workbook();
workbook.LoadFromFile("DoughnutChart.xlsx");
//初めのシートを取得します。
Worksheet sheet1 = workbook.Worksheets[0];
//新しいシートを追加します。
Worksheet sheet2 = workbook.Worksheets.Add("Copy");
//初めのシートを新しいシートにコピーします。
sheet2.CopyFrom(sheet1);
//保存します。
workbook.SaveToFile("DoughnutChart.xlsx");

Answer 3

すみません。以下のようにしたら解決しました。

「ExcelWB.Worksheets.Add」処理で行ってます。
ws = sheets[1];
を追加して、書き換えたら解決しました。
アクティブなシートが指定できてなかったのかもしれません。

//Excelシートのインスタンスを作る
ExcelApp = new Excel.Application();
workbooks = ExcelApp.Workbooks;
wb = workbooks.Add();
sheets = wb.Sheets;
ws = sheets[1];

//アクティブシート(の直前)にシートを追加
wb.Worksheets.Add( Type.Missing, ws, 2);
ws.Select(Type.Missing);
ExcelApp.Visible = false;// Excelの表示(非表示はfalse)

Comments

[YAmaGNZ]

「アクティブなシートが指定できてなかったのかもしれません」
違います。Sheetsは「シートのコレクション」です。
引数として「シート」が要求されているのに「シートのコレクション」を渡していたのでエラーとなっていました。
同じことをするのであれば
wb.Worksheets.Add(Type.Missing,　wb.ActiveSheet, 2);
とすればいいはずです。

また、コメントで「アクティブシート(の直前)にシートを追加」とありますが、Afterの引数に指定しているので「アクティブシート(の後ろ)にシートを追加」です。

Answer 4

Sheets.Add(Object, Object, Object, Object) Method
こちらにある通り、Afterに指定するのはシートです。

Comments

[Genki0825]

ご回答ありがとうございます。
sheets.Add( Type.Missing, sheets, 2);で試してみましたが、
Add関数がないといわれました。VBAとは違うのかと。。

[Genki0825]

..