Код

//СЗТаблицы - Список на форме куда будут записаны все листы таблицы
// ИмяБД полный путь к xls
// Заголовок   считать первую строку заголовком

	cn = CreateObject("ADODB.Connection");
	rs = СоздатьОбъект("ADODB.Recordset");
	cat = СоздатьОбъект("ADOX.Catalog");	СЗТаблицы.УдалитьВсе();

	cn.ConnectionString = "
	|Provider=Microsoft.Jet.OLEDB.4.0;
	|Password="""";
	|User ID=Admin;
	|Data Source=" + СокрЛП(ИмяБД) + ";
	|Mode=Share Deny Write;
	|Extended Properties=""HDR=" + ?(Заголовок = 1, "YES", "NO") + ";"";
	|Jet OLEDB:System database="""";
	|Jet OLEDB:Registry Path="""";
	|Jet OLEDB:Database Password="""";
	|Jet OLEDB:Engine Type=35;
	|Jet OLEDB:Database Locking Mode=0;
	|Jet OLEDB:Global Partial Bulk Ops=2;
	|Jet OLEDB:Global Bulk Transactions=1;
	|Jet OLEDB:New Database Password="""";
	|Jet OLEDB:Create System Database=False;
	|Jet OLEDB:Encrypt Database=False;
	|Jet OLEDB:Don't Copy Locale on Compact=False;
	|Jet OLEDB:Compact Without Replica Repair=False;
	|Jet OLEDB:SFP=False";
	cn.Open();
	cat.ActiveConnection = cn;

	Для Индекс = 0 По cat.Tables.Count - 1 Цикл
		Name = cat.Tables(Индекс).Name;
		Если Лев(Name, 4) = "MSys" Тогда
			Продолжить;
		КонецЕсли;
		Если cat.Tables(Индекс).Type = "VIEW" Тогда
			Продолжить;
		КонецЕсли;
		Сим1 = Прав(Name,1);
		Если Сим1 = "_" Тогда Продолжить; КонецЕсли;
		СЗТаблицы.ДобавитьЗначение(Name);
	КонецЦикла;

 

Код

База =СоздатьОбъект("ODBCDatabase");
	Если База.Соединение("DRIVER=Microsoft Excel Driver (*.xls); DBQ=" + СокрЛП(ИмяФайла)) = 0 Тогда
		Предупреждение("Ошибка открытия файла", 20);
		Возврат;
	КонецЕсли;

	RecordSetXLS =СоздатьОбъект("ODBCRecordSet");
	RecordSetXLS.УстБД(База);

	ТекстЗапроса ="
	|select *
	|from [Лист1$A1:AZ]
	|";

	ТЗ = RecordSetXLS.ВыполнитьИнструкцию(ТекстЗапроса);