(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);
КонецЕсли;
КонецЦикла;
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс