(10) +1
MyCon = Новый COMОбъект ("ADODB.Connection");
MyCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.xls;Extended Properties=""Excel 8.0;HDR=No;IMEX=1""");
MyCat=Новый COMОбъект ("ADOX.Catalog");
MyCat.ActiveConnection = MyCon;
Для Каждого MDBТаблица Из MyCat.Tables Цикл
Если MDBТаблица.Type="TABLE" Тогда
Для Каждого СтолбецXLS Из MDBТаблица.Columns Цикл
Сообщить();
КонецЦикла;
Сообщить(MDBТаблица.Name);
КонецЕсли;
КонецЦикла;
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший