1с переписать модуль подключение к обьекту с 2003 офиса на 2016

Enterprise Resource Planning (ERP) — incorrectly specified categories?

ФайлЗагр = Новый Файл(Файл);

Если ФайлЗагр.Существует() = Ложь Тогда

Сообщить(НСтр("ru='Файла ';uk='Файлу '")+Файл+НСтр("ru=' не существует!';uk=' не існує!'"));

Возврат Неопределено;

КонецЕсли;

Ёксель = Новый COMОбъект("ADODB.Connection");

НаборЗаписей = Новый COMОбъект("ADODB.Recordset");

Ёксель.ConnectionString = "

|Provider=Microsoft.ACE.OLEDB.12.0;

//|Microsoft.Jet.OLEDB.4.0;

|Data Source="+ФайлЗагр.ПолноеИмя+";

|Extended Properties=""Excel 12.0;

//|IMEX=1;

|""";

//Ёксель.ConnectionString = "

//Provider=Microsoft.Jet.OLEDB.4.0;

//Data Source="+ФайлЗагр.ПолноеИмя+";

//Extended Properties=""Excel 8.0;

//IMEX=1;

//HDR=NO""";

//IMEX=1 - значения преобразуются в текст

////HDR=NO - Имена полей имеют вид "F1, F2, F3..." то-есть буква "F" и порядковый номер колонки. Если данный параметр опустить

//// имена полей беруться из первой строки - для таблиц Экселя норма. Ёксель.Open();

Ёксель.Open();

Catalog = Новый COMОбъект("ADOX.Catalog");

Catalog.ActiveConnection = Ёксель;

Исключение

Сообщить("Не удалось создать подключение к книге файла инмпорта. Причина: "+ОписаниеОшибки());

Возврат Неопределено;

КонецПопытки;

Proposals 5

Anatoly Kalinin

14 0

Projects 14
Rating -
Rating 324

Budget: 500 UAH Deadline: 1 day

Добрый день. Сделаю завтра, обращайтесь. Ничего сложного нет.

Artem Berdnikov

10 0

Projects 6
Rating -
Rating 328

Budget: 600 UAH Deadline: 1 day

Добрый день. Готовы выполнить ваш заказ. Есть пара вариантов решения. Пишите, звоните - обсудим детали.

Опыт работы 17 лет.
Сертификаты 1С.
Наши работы и контакты в профиле.

PS: Всем своим клиентам дарим модуль загрузки курсов валют с интернета.