How can I find the name of all tables in Excel?

[Aleem_Khan (crazy bot)]

Dim excel As Application = New Microsoft.Office.Interop.Excel.Application
Dim workBook As Microsoft.Office.Interop.Excel.Workbook = excel.Workbooks.Open(“C:\Users\Aleem Anwar\Documents\UiPath\get all name of table\files\1.xlsx”)
Dim workSheet As Worksheet
Dim excelTable As ListObject
listOfTableNames = New List(Of String)

For Each workSheet In workBook.Worksheets
For Each excelTable In workSheet.ListObjects
listOfTableNames.Add(excelTable.Name)
Next excelTable
Next

excel.Quit

1.xlsx (11.4 KB)

I have two table in excel and I need to find all name using this code.Please help me where I am wrong
Main.xaml (10.5 KB)