C# と VB.NET の質問掲示板

早速のご返信ありがとうございます。

ご指摘の通り、ゾンビで発生していてそれによる影響のようでした。

いつもご回答ありがとうございます。
とても助かりました。

> 　ExcelApp.Visible = true;
> を付与し、Quit の前に一時停止してみてください。
> その時点で、バックグラウンドエラーのアイコンは消えていますか?

はい、バックグラウンドエラーのチェックは外れていました(消えていました)。

> 非表示な Excel.exe のゾンビが蠢いていたりはしませんか?

はい、ゾンビは発生していました。
解放処理が上手くなかったようで、
ご指摘のソースに修正したところ
ゾンビはなくなり、エラーチェックはオフになりました。

修正済みのソースは以下になりました。

＠メイン部分
----------------------
Excel.Application ExcelApp = new Excel.Application();
Excel.Workbooks books = ExcelApp.Workbooks;
Excel.Workbook Book = books.Add();
Excel.Sheets sheets = Book.Sheets;
Excel.Worksheet sheet = (Excel.Worksheet)sheets[1];

// バックグラウンドのエラーチェックをしない
SetErrorCheck(ExcelApp, false);

// フォーマット設定
SetFormat(sheet, 1, 1, 10, 10, "#,##0");

// データ設定
SetMacro(sheet, 3, 6, "=TRUNC(9.74)");
SetMacro(sheet, 3, 7, "=TRUNC(9.38)");
SetMacro(sheet, 3, 8, "=TRUNC(10.1)");
SetMacro(sheet, 3, 9, "=TRUNC(9.38)");
SetMacro(sheet, 3, 10, "=TRUNC(10.82)");

Book.SaveAs(@"d:\tmp\a.xlsx");
Book.Close(false, Missing.Value, Missing.Value);

ExcelApp.Quit();

Marshal.ReleaseComObject(sheet);
if (Marshal.IsComObject(sheets)) Marshal.ReleaseComObject(sheets);
Marshal.ReleaseComObject(Book);
if (Marshal.IsComObject(books)) Marshal.ReleaseComObject(books);
Marshal.ReleaseComObject(ExcelApp);
----------------------

＠関数群
----------------------
private void SetErrorCheck(Excel.Application excelApp, bool check)
{
	Excel.ErrorCheckingOptions errChkOpt = excelApp.ErrorCheckingOptions;

	errChkOpt.BackgroundChecking = check;

	Marshal.ReleaseComObject(errChkOpt);
}

private void SetMacro(Excel.Worksheet sheet, int x, int y, String data)
{
	Excel.Range range0 = sheet.Cells;
	Excel.Range range1 = range0.Item[x, y];

	range1.FormulaR1C1 = data;

	Marshal.ReleaseComObject(range1);
	Marshal.ReleaseComObject(range0);
}

private void SetFormat(Excel.Worksheet sheet, int startX, int startY, int endX, int endY, String format)
{
	Excel.Range range0 = sheet.Cells;
	Excel.Range range1 = range0.Item[startX, startY];
	Excel.Range range2 = range0.Item[endX, endY];
	Excel.Range range3 = sheet.Range[range1, range2];

	range3.NumberFormat = format;

	Marshal.ReleaseComObject(range0);
	Marshal.ReleaseComObject(range1);
	Marshal.ReleaseComObject(range2);
	Marshal.ReleaseComObject(range3);
}
----------------------