Почему мое решение не добавляет ссылку на Excel?

Я пытаюсь добавить ссылку на библиотеку объектов Excel с помощью менеджера ссылок в моем решении VB. Когда я пытаюсь добавить ссылку, ничего не происходит. В этот момент мой код ломается. Что мне не хватает при добавлении ссылки?

Эта учетная форма вызывается нажатием кнопки в другой форме.

Вот мой код

'Imports Excel = Microsoft.Office.Interop.Excel

Public Class frmAccounting

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click

        MsgBox("You are in button 1 in accounting", _ MsgBoxStyle.OkOnly, "Accounting - Step before")

        'Dim xlApp As Excel.Application
        'Dim xlWorkBook As Excel.Workbook
        'Dim xlWorkSheet As Excel.Worksheet
        'Dim range As Excel.Range
        'Dim rCnt As Integer
        'Dim cCnt As Integer
        'Dim Obj As Object

        'xlApp = New Excel.ApplicationClass
        'xlWorkBook = xlApp.Workbooks.Open("\accountsreceivable.xlsx")
        'xlWorkSheet = xlWorkBook.Worksheets("sheet1")

        'range = xlWorkSheet.UsedRange

        'For rCnt = 1 To range.Rows.Count
            'For cCnt = 1 To range.Columns.Count
                'Obj = CType(range.Cells(rCnt, cCnt), Excel.Range)
                'MsgBox(Obj.value)
            'Next
        'Next

        'xlWorkBook.Close()
        'xlApp.Quit()

        'releaseObject(xlApp)
        'releaseObject(xlWorkBook)
        'releaseObject(xlWorkSheet)
        MsgBox("You are in button 1 in accounting", _ MsgBoxStyle.OkOnly, "Accounting - Step after")

    End Sub
End class

0 ответов

Другие вопросы по тегам