(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);
КонецЕсли;
КонецЦикла;
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан