VB.Net Класс Excel создает, но отдельные листы

Question

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

Dim iExcel As Excel.Application 
    Dim iBook As Excel.Workbook 
    Dim iSheet As Excel.Worksheet 

    iExcel = CreateObject("Excel.Application") 
    iExcel.Visible = True 
    iBook = iExcel.Workbooks.Open("C:\.....") 
    iSheet = iBook.Worksheets("Lifts")  

Но, создав класс, я не могу понять, как вызвать отдельный лист в экземпляре. Это мой новый код с классом

Dim excelNew As ExcelOpen = New ExcelOpen() 
    excelNew.OpenExcel() 

excelNew.OpenExcel() открывает книгу, но мне нужно, чтобы это было на праве листа. Но как я могу назвать конкретный лист для отдельных форм в этом случае «Инжиниринг» вместо «Лифты»?

Answer 1

Используя код размещен, вот что я думаю, что вы ищете:

Public Class ExcelOpen 

    Private sheetName As String 

    Public Sub New(Optional ByVal wsName As String = "Sheet1") 
     sheetName = wsName 
    End Sub 

    Public Sub OpenExcel() 
     Dim iExcel As Excel.Application 
     Dim iBook As Excel.Workbook 
     Dim iSheet As Excel.Worksheet 
     iExcel = CreateObject("Excel.Application") 
     iExcel.Visible = True 
     iBook = iExcel.Workbooks.Open("C:\.....") 
     iSheet = iBook.Worksheets(sheetName) 
    End Sub 

End Class 

Dim excelNew As ExcelOpen = New ExcelOpen("Engineering") 
excelNew.OpenExcel()