Бюджет: 500 UAH Термін: 1 день
Добрый день. Сделаю завтра, обращайтесь. Ничего сложного нет.
ФайлЗагр = Новый Файл(Файл);
Если ФайлЗагр.Существует() = Ложь Тогда
Сообщить(НСтр("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 = Ёксель;
Исключение
Сообщить("Не удалось создать подключение к книге файла инмпорта. Причина: "+ОписаниеОшибки());
Возврат Неопределено;
КонецПопытки;
Бюджет: 500 UAH Термін: 1 день
Добрый день. Сделаю завтра, обращайтесь. Ничего сложного нет.
Бюджет: 600 UAH Термін: 1 день
Добрый день. Готовы выполнить ваш заказ. Есть пара вариантов решения. Пишите, звоните - обсудим детали.
Опыт работы 17 лет.
Сертификаты 1С.
Наши работы и контакты в профиле.
PS: Всем своим клиентам дарим модуль загрузки курсов валют с интернета.
Бюджет: 550 UAH Термін: 1 день
Добрый вечер! Готовы помочь с Вашим вопросом, данная задача обойдется в 550грн. Пишите в ЛС обсудим детали, будем рады помочь.
Бюджет: 500 UAH Термін: 1 день
Добрий вечір. Готовий переписати вам вашу процедуру або обробку. Ціна 500 грн/год. Готовий приступити завтра зранку.
Робота з клієнтами 7 ставок 6:50
Робота з клієнтами 15 ставок 31 липня
4 ставки 31 липня
6 ставок 28 липня
Управління клієнтами та CRM 46 ставок 28 липня