Найдите имя последнего листа Excel в Visual Basic (VB) - Fcodenotes

Чтобы найти имя последнего листа Excel в Visual Basic (VB), вы можете использовать различные методы в зависимости от версии Excel, с которой вы работаете. Вот несколько подходов с примерами кода:

Метод 1. Использование библиотеки взаимодействия с Excel (для версий Excel до 2013 года):

Imports Microsoft.Office.Interop.Excel
Module Module1
    Sub Main()
        Dim xlApp As New Application()
        Dim xlWorkbook As Workbook = xlApp.Workbooks.Open("C:\Path\To\Your\File.xlsx")

        ' Get the last sheet name
        Dim lastSheetName As String = xlWorkbook.Sheets(xlWorkbook.Sheets.Count).Name

        Console.WriteLine("Last sheet name: " & lastSheetName)

        xlWorkbook.Close()
        xlApp.Quit()

        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkbook)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
    End Sub
End Module

Метод 2. Использование Open XML SDK (для версий Excel 2007 и более поздних):

Imports DocumentFormat.OpenXml.Packaging
Module Module1
    Sub Main()
        Dim filePath As String = "C:\Path\To\Your\File.xlsx"

        Using spreadsheetDocument As SpreadsheetDocument = SpreadsheetDocument.Open(filePath, False)
            Dim workbookPart As WorkbookPart = spreadsheetDocument.WorkbookPart

            ' Get the last sheet name
            Dim lastSheetName As String = workbookPart.Workbook.Sheets.Last().Elements(Of Sheet)().First().Name

            Console.WriteLine("Last sheet name: " & lastSheetName)
        End Using
    End Sub
End Module

Метод 3. Использование библиотеки EPPlus (для версий Excel 2007 и более поздних):

Imports OfficeOpenXml
Module Module1
    Sub Main()
        Dim filePath As String = "C:\Path\To\Your\File.xlsx"

        Using excelPackage As New ExcelPackage(New FileInfo(filePath))
            Dim lastSheetName As String = excelPackage.Workbook.Worksheets.Last().Name

            Console.WriteLine("Last sheet name: " & lastSheetName)
        End Using
    End Sub
End Module

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