Ошибка при добавлении нового Excel.application в VB .NET

Question

Для проекта я должен быть в состоянии прочитать информацию из листа Excel и затем передать эту информацию в ПЛК. К сожалению, у меня есть проблема, когда я использую "Dim App As New Excel.Application". По какой-то причине это приводит к сбою приложения до того, как форма отобразится на экране, и в результате я не получу форму. Ошибка, которую я получаю:

Произошло необработанное исключение типа "System.InvalidOperationException" в OpHoopVanZegen.exe

Это происходит в Application.Designer.vb

Protected Overrides Sub OnCreateMainForm()

            Me.MainForm = Global.OpHoopVanZegen.Form1
        End Sub

^^^ Где ошибка происходит ^^^

Дополнительная информация: Невозможно преобразовать COM-объект из типа System.__ComObject в interfacetype

Кто-нибудь может объяснить мне, что происходит и / или что я делаю неправильно?

------------------------------------ Код моей формы:

 Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Dim App As New Excel.Application
    Dim svrOPC As New OPCAutomation.OPCServer
    Dim WithEvents grpOPC As OPCAutomation.OPCGroup

Private Sub connectToOPC_Click(sender As Object, e As EventArgs) Handles connectToOPC.Click
    If svrOPC.ServerState = OPCAutomation.OPCServerState.OPCDisconnected Then
        Call svrOPC.Connect("Kepware.KEPServerEX.V5")
    End If
    Me.TBStatusOPC.Text = udfOPCServerState(svrOPC.ServerState)
End Sub
Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles Me.Activated
    Me.TBStatusOPC.Text = udfOPCServerState(svrOPC.ServerState)
End Sub
Private Function udfOPCServerState(ByVal intOPCServerState As Integer) As String
    Select Case intOPCServerState
        Case OPCAutomation.OPCServerState.OPCRunning
            udfOPCServerState = "Running"
        Case OPCAutomation.OPCServerState.OPCFailed
            udfOPCServerState = "Failed"
        Case OPCAutomation.OPCServerState.OPCNoconfig
            udfOPCServerState = "No Config"
        Case OPCAutomation.OPCServerState.OPCSuspended
            udfOPCServerState = "Suspended"
        Case OPCAutomation.OPCServerState.OPCTest
            udfOPCServerState = "Test"
        Case OPCAutomation.OPCServerState.OPCDisconnected
            udfOPCServerState = "Disconnected"
        Case Else
            udfOPCServerState = "Unknown"
    End Select
End Function

Private Sub LoadOrderToPLC_Click(sender As Object, e As EventArgs) Handles LoadOrderToPLC.Click

End Sub

Конечный класс

Answer 1

Я никогда не находил вескую причину, почему, но у меня была та же проблема с недавним проектом. Обходной путь, который заставил меня функционировать, был:

Imports Microsoft.Office.Core
Dim app as Object
app = CreateObject("Excel.Application")

Это заставило остальную часть моего кода работать так, как я хотел, но с недостатком, что IntelliSense не функционировал ни для одной из моих переменных Excel. Так как я бездельник, который в большей степени полагается на ярлыки, а не на запоминание всего, я написал закомментированное руководство по синтаксису и вставил его везде, где работал с таблицами в своем коде, для справки.

Надеюсь, это поможет. Мне все еще интересно, есть ли лучший способ исправить это.

РЕДАКТИРОВАТЬ: пример фрагмента из моего собственного кода (с моей шпаргалкой в ​​комплекте):

Imports Microsoft.Office.Core

Dim xl As Object, wb As Object, sht As Object, rng As Object, wrksht As Object

    'EXCEL SYNTAX GUIDE:
    'Excel.
    '     .Application  :   Instance of the Excel program opened by VB code
    '     .Workbooks    :   All open workbooks. Often use .Add or .Open when setting Workbook variable
    '     .Workbook     :   An individual workbook (.xls file). Often use .ActiveSheet to set Worksheet variable
    '     .Sheets       :   All worksheets (tabs) of a particular workbook
    '     .Worksheet    :   An individual worksheet
    '     .Range        :   A range of worksheet cells, e.g. ("A1", "C4")

    xl = CreateObject("Excel.Application")
    xl.Visible = False
    xl.DisplayAlerts = False
    wb = xl.Workbooks.Open(Environ("USERPROFILE") & "\dropbox\Program Database.xlsx")
    For Each wrksht In wb.Worksheets
        If wrksht.Name = "MASTER MATRIX" Then
            sht = wrksht
            Exit For
        End If
    Next
    For rNum = 6 To 201
        rng = sht.Range("A" & rNum, "AT" & rNum)
        Dim inputs(12) As String
        inputs(0) = rng.Cells(1, 1).Value
        inputs(1) = rng.Cells(1, 4).Value
        inputs(2) = rng.Cells(1, 5).Value
'This should be enough to demonstrate all the necessary syntax.
'
'
'Release variables and close Excel as follows:
'(Disabling alerts and user control prevents Excel from asking the user to save)
rng = Nothing
sht = Nothing
wb = Nothing
xl.DisplayAlerts = False
xl.UserControl = False
xl.Quit()
xl = Nothing