Excel Interop Error

Question

Over the years I have used this pattern to create a new Excel document,

        Dim objApp As Excel.Application
        Dim objBook As Excel.Workbook
        Dim objSheet As Excel.Worksheet

        objApp = New Excel.Application
        objBook = objApp.Workbooks.Add()
        objSheet = CType(objBook.Sheets(1), Excel.Worksheet)

On this line I get the error shown,

    objBook = objApp.Workbooks.Add() ' <<<   {"The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))"}

I went back to some applications that I've had for years with the same pattern and they also fail, both in Visual Studio and in the published/installed version.

Answer 1

I also tried it this way

Option Strict Off
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim xl As Object
        Dim xlWorkBooks As Object
        Dim xlWorkBook As Object
        Dim xlWorksheet As Object
        xl = CreateObject("Excel.Application")

        xl.DisplayAlerts = False
        xl.Visible = True
        xlWorkBooks = xl.Workbooks
        '
        'The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))
        xlWorkBook = xl.Workbooks.Add() '  same error here
        xlWorksheet = xl.Sheets(1)
        xlWorksheet.Activate()

        xlWorksheet.Cells(1, 2).Value = "XX"

    End Sub
End Class

with the same result. In both cases Excel starts and the workbook seem to be created.

Answer 2

FIXED

What fixed this was to disable the Microsoft Teams add ins. There's a day chasing my tail.

Can't mark my own answer as the accepted answer. Hmmmm