Чтобы динамически изменить имя листа Excel с помощью VB.NET, вы можете использовать различные методы. Вот три разных подхода с примерами кода:

1. Использование свойства Name:

   Imports Excel = Microsoft.Office.Interop.Excel
   Module Module1
   Sub Main()
       Dim excelApp As New Excel.Application()
       Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\YourWorkbook.xlsx")
       Dim sheet As Excel.Worksheet = workbook.Sheets("Sheet1")
       sheet.Name = "NewSheetName"
       workbook.Save()
       workbook.Close()
       excelApp.Quit()
   End Sub
   End Module

2. Использование метода Rename:

   Imports Excel = Microsoft.Office.Interop.Excel
   Module Module1
   Sub Main()
       Dim excelApp As New Excel.Application()
       Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\YourWorkbook.xlsx")
       Dim sheet As Excel.Worksheet = workbook.Sheets("Sheet1")
       sheet.Activate()
       sheet.Name = "NewSheetName"
       workbook.Save()
       workbook.Close()
       excelApp.Quit()
   End Sub
   End Module

3. Использование коллекции Таблиц:

   Imports Excel = Microsoft.Office.Interop.Excel
   Module Module1
   Sub Main()
       Dim excelApp As New Excel.Application()
       Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\YourWorkbook.xlsx")
       Dim sheet As Excel.Worksheet = workbook.Sheets("Sheet1")
       workbook.Sheets("Sheet1").Name = "NewSheetName"
       workbook.Save()
       workbook.Close()
       excelApp.Quit()
   End Sub
   End Module

В этих примерах код открывает книгу Excel, выбирает лист с именем «Лист1», а затем меняет его имя на «NewSheetName». Наконец, книга сохраняется и закрывается, а приложение Excel закрывается.