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

VisualStudio2019で開発しております。

以下のようなコードで、Excelを起動して終了するまで待っている処理を組んでおります。
----------------------------------------------------------------------------------------------
        Dim excelApp As New Excel.Application()
        Dim excelBook As Excel.Workbook

        'Excelを表示
        excelApp.Visible = True
        'Excelを開く
        excelBook = excelApp.Workbooks.Open("※ファイルのパス")

        '終了するまで繰り返す
        Do

            System.Threading.Thread.Sleep(250)

        Loop While excelApp.Visible = True

        '作成したCOMオブジェクトの開放
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelBook)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
----------------------------------------------------------------------------------------------

この処理で、起動したExcelから印刷を行うと、
「呼び出し先が呼び出しを拒否しました。
　(HRESULT からの例外：0x80010001 (RPC_E_CALL_REJECTED))」
という例外メッセージが必ず出ます。

なお、印刷自体は行われるようです。

原因、対策をご存じの方はおられますでしょうか。
宜しくお願い致します。

■No100893 (ジェイド さん) に返信
> 以下のようなコードで、Excelを起動して終了するまで待っている処理を組んでおります。

こんな感じでどうでしょう？

Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices

Public Class Form1

    <DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function GetWindowThreadProcessId(ByVal hwnd As IntPtr, _
                        ByRef lpdwProcessId As Integer) As Integer
    End Function


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim app As New Excel.Application
        Dim books As Excel.Workbooks = app.Workbooks
        Dim book As Excel.Workbook = books.Open("E:\TEST\test.xlsx")
        app.Visible = True

        Dim hwnd As IntPtr = New IntPtr(app.Hwnd)
        Dim pid As Integer
        Dim threadId As Integer = GetWindowThreadProcessId(hwnd, pid)
        Marshal.ReleaseComObject(book)
        Marshal.ReleaseComObject(books)
        Marshal.ReleaseComObject(app)

        Using p = Process.GetProcessById(pid)
            p.WaitForExit()
        End Using
        MessageBox.Show("EXCEL 終了!")
    End Sub

End Class

■No100893 (ジェイド さん) に返信

COMオブジェクトまったく使わなくなりますが
こちらではダメなのかなー。
※KOZさんの回答見て思いつきました。

        private void button1_Click(object sender, EventArgs e)
        {
            Console.WriteLine("開始");
            System.Diagnostics.Process p = new System.Diagnostics.Process();
            p.StartInfo.FileName = @"C:\test.xlsx";
            p.Start();
            p.WaitForExit();
            Console.WriteLine("終了");
        }

■No101071 (ジェイド さん) に返信

こんなことやってませんか？

Public Sub New()
    InitializeComponent()
    If 条件 Then
        Me.Close()
    End If
End Sub

2023/01/04(Wed) 13:13:05 編集(投稿者)

<pre><pre>追加情報です。
Designer.vbファイルの方で、下記のようなコードが確認出来ました。
これが影響している可能性が考えられますでしょうか。

    'Windows フォーム デザイナで必要です。
    Private components As System.ComponentModel.IContainer

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
</pre></pre>

■No101086 (魔界の仮面弁士 さん) に返信

魔界の仮面弁士さん、ご連絡ありがとうございます。

> Overrides Sub Dispose(Boolean) は自動生成されるコードですよね? 

すみません、大変失礼致しました。他のフォームにも同じように入っておりました。
 
> Form に「コンポーネント」(Timer や BackgroundWorker 等)を貼っている場合は、そのコードが必要です。
> 「コントロール」(TextBox や ListBox 等)だけしか貼っていない場合は、Dispose のオーバーライドを
> 行わなくても問題無いですが、わざわざ自動生成コードを削る意味は無いでしょう。

フォームに貼ってあるのは、Label と Timer　のようです。

フォームのLoad処理で、以下のようにしておりました。
        AddHandler Timer.Tick, AddressOf Timer_Tick

こちらですが、サービス処理のタイムアウト対策目的で呼び出しているようです。

> …で、気になるのはそのメインフォームの役割。
> 
> 非表示のままにしている、という点は別に構いませんが、InitializeComponent すら
> 呼んでいないということは、デザイナコードは未使用のはずですし、そうすると
> 待機処理をどこに書いているのだろう、という不安がありました。
> 
> 先のエラーメッセージで、CreateHandle 中の ObjectDisposedException 例外が見えているので、
> 「待機処理を Sub New で行っているのではあるまいか…」という疑念です。
> 要するに、何らかのロード処理(OnLoad メソッドのオーバーライド、または Load イベントの処理)が
> 終わっていない状況で Form が破棄されていて、それがエラーの原因になったのではないか、と。

フォームのLoad処理は、以下の内容になっているのですが・・・
この作りに問題があるのでしょうか？
すみません、他人が作成したプログラムに肉付けしてる状況で理解が追い付いていないところがあります。

    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim strErrMsg As String = ""
        AddHandler Timer.Tick, AddressOf Timer_Tick

        '待機状態
        Cursor.Current = Cursors.WaitCursor

        Try
            If LoadProcess(strErrMsg) = False Then
                If Not String.IsNullOrEmpty(strErrMsg) Then ShowMessage(strErrMsg, MessageBoxIcon.Exclamation)
                Return
            End If

        Catch ex As Exception
            'エラーが発生しました。
            ShowMessage(ex.Message, MessageBoxIcon.Exclamation)
        Finally
            Try
                Me.Close()
            Catch ex As Exception
                MsgBox(ex.Message, MessageBoxIcon.Exclamation)
            End Try
        End Try

    End Sub