[VB.NET] EXCELのVisible＝Trueにすると、インデックスエラーが発生する。

Question

VB.NETでEXCEL取込をするプログラムを作成しているのですが、EXCELを開こうとするとインデックスが無効な旨のメッセージが出てエラーとなってしまいます。

こちら先週までは問題なく動作していたのですが、昨日から該当の箇所でエラーが発生するようになりました。
プログラム上では変更を行っておらず、変更したのはWindowsアップデートと、リソースモニターから一度EXCELのタスクを終了させました。

'処理に関係ないと思われる個所は省略しております。

　　　　 Const ExcelApplication = "Excel.Application"
        Dim XlApp As Object = Nothing  
        Dim XlSheet As Object
        Dim ExcelWasNotRunning As Boolean   
        Dim ExcelOpenFlg As Boolean
        Dim EndRow As Long
        Dim FileName As String = ""

        Try
            XlApp = GetObject(, ExcelApplication)
            If Err.Number <> 0 Then
                ExcelWasNotRunning = True
            Else
                ExcelWasNotRunning = False
            End If
            Err.Clear()

        Catch ex As Exception
            ExcelWasNotRunning = True
        End Try

        Try
            XlApp = GetObject(xlsFileName)                       
            If Err.Number <> 0 Then                             
                ExcelOpenFlg = False
            Else
                ExcelOpenFlg = True
                XlApp.Application.Visible = True
                XlApp.Parent.Windows(1).Visible = True    '←←←ここでインデックスが無効です。と出る    

                XlApp.Windows(Dir(xlsFileName)).Activate()
                XlApp.Application.Visible = False
            End If
            Err.Clear()
        Catch ex As Exception

        End Try

VisualStudio2019 Version16.7.3
EXCELはMicrosoft365 バージョン2103　を使用しています。

御存じの方がいれば解決法をご教示ください。

Answer 1

回避してCreateしたら解決しました。失礼いたしました。