Точно работает драйвер Microsoft.ACE.OLEDB.12.0 без установленного Офиса?
Посмотрел через отладчик: OpenSchema(adSchemaTables) отображает Имя листа, но список просматривает в порядке Индекса (а не в порядке отображения в книге; в перечисление ходят автофильтры "Лист1", "Лист1$_xlnm#_FilterDatabase") - поэтому первый лист из "TABLE_NAME" будет иметь первый индекс:
set tables = conn.OpenSchema(20)
wscript.echo tables("TABLE_NAME")
tables.Close
Создайте переменную (счётчик) в цикле для определения индекса нужного листа. Но индекс листа в книге и порядок листов в документе (можно перемещать) могут иметь разные значения.