If no activity is able to extract all table names from excel file there is option to make it using invoke code:
Dim excel As Application = New Application
Dim workBook As Workbook = excel.Workbooks.Open("YourPathToExcelFile")
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
With list out argument:
It should work with that namespace imported:

This code should save all excel table names from each worksheet and return them by list argument
