Как получить имя первого листа в Excel используя VBScript OpenSchema?

Question

[Emil Revencu]

Есть файл Excel c несколько листами
Нужно открыть первый лист через VBS
Мой код:

strConn="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=file.xlsx;Extended Properties=""Excel 12.0; ReadOnly=true; HDR=No;IMEX=1"""
Set conn = CreateObject("ADODB.Connection")
conn.Open strConn
set tables = conn.OpenSchema(20)
      do until tables.eof
      wscript.echo tables("TABLE_NAME")
      tables.movenext
      loop

Возвращает список названий всех листов но а алфавитном порядке
Как узнать индекс порядка листа в документе?
Нужно открыть первый лист. В полученном списке наименований листов он не первый

Comments

[h8nor]

1. Точно работает драйвер Microsoft.ACE.OLEDB.12.0 без установленного Офиса?
   
2. Посмотрел через отладчик: OpenSchema(adSchemaTables) отображает Имя листа, но список просматривает в порядке Индекса (а не в порядке отображения в книге; в перечисление ходят автофильтры "Лист1", "Лист1$_xlnm#_FilterDatabase") - поэтому первый лист из "TABLE_NAME" будет иметь первый индекс:

   set tables = conn.OpenSchema(20)
   wscript.echo tables("TABLE_NAME")
   tables.Close

   
   
3. Создайте переменную (счётчик) в цикле для определения индекса нужного листа. Но индекс листа в книге и порядок листов в документе (можно перемещать) могут иметь разные значения.
   

Answer 1

[Пычев Анатолий]

Обязательно использовать ADODB?
Создайте сразу объект Excel

Comments

[Emil Revencu]

Это на бакенде. Там Офис не установлен