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()

VB.Net Excel类创建但单独的工作表

1 个答案: