Показано с 1 по 10 из 42
Комбинированный просмотр
-
30.10.2018, 09:35 #1
- Регистрация
- 23.08.2018
- Сообщений
- 5
- Сказал(а) спасибо
- 1
- Поблагодарили 0 раз(а) в 0 сообщениях
Re: Ошибка при вызове конструктора (COMObject)
Я пользуюсь этим способом, работает везде:
&НаКлиенте
Процедура Загрузка(Команда)
Режим = РежимДиалогаВыбораФайла.О� �крытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.Фильт� � = НСтр("ru = ''; en = ''")
+ "Excel 97 • 2003 (*.xls)|*.xls|Excel 2010 и выше (*.xlsx)|*.xlsx";
ДиалогОткрытияФайла.Множе� �твенныйВыбор = Ложь;
ДиалогОткрытияФайла.Загол� �вок = "Выберите файлы";
Если ДиалогОткрытияФайла.Выбра� �ь() Тогда
ПолныйПуть = ДиалогОткрытияФайла.Полно� �ИмяФайла;
COMОб = ПолучитьCOMОбъект(ПолныйПут ь);
СтраницаФ = COMОб.WorkSheets(1);
Для НомСтроки = 2 По 100 Цикл
МассивЭлементов = Новый Массив;
МассивЭлементов.Вставить(0, СтраницаФ.Cells(НомСтроки,12).va lue);
МассивЭлементов.Вставить(1, СтраницаФ.Cells(НомСтроки,5).val ue);
МассивЭлементов.Вставить(2, СтраницаФ.Cells(НомСтроки,6).val ue);
МассивЭлементов.Вставить(3, СтраницаФ.Cells(НомСтроки,15).va lue);
МассивЭлементов.Вставить(4, СтраницаФ.Cells(НомСтроки,8).val ue);
МассивЭлементов.Вставить(5, СтраницаФ.Cells(НомСтроки,13).va lue);
МассивЭлементов.Вставить(6, СтраницаФ.Cells(НомСтроки,14).va lue);
МассивЭлементов.Вставить(7, НомСтроки);
//МассивЭлементов.Вставить(8, СтраницаФ.Cells(НомСтроки,11).va lue);
//МассивЭлементов.Вставить(9, СтраницаФ.Cells(НомСтроки,12).va lue);
//МассивЭлементов.Вставить(10 , СтраницаФ.Cells(НомСтроки,13).va lue);
//МассивЭлементов.Вставить(11 , СтраницаФ.Cells(НомСтроки,6).val ue);
Если НЕ ЗначениеЗаполнено(Страниц� �Ф.Cells(НомСтроки,12).value) И НЕ ЗначениеЗаполнено(Страниц� �Ф.Cells(НомСтроки,5).value) Тогда
Прервать;
КонецЕсли;
ЗагрузкаНаСервере(МассивЭ� �ементов,ПолныйПуть);
КонецЦикла;
Иначе
Режим = РежимДиалогаВопрос.ОК;
Ответ = Вопрос(НСтр("ru = 'Загрузка прервана!';"
+ " en = 'Do you want to continue?'"), Режим, 0);
Если Ответ = КодВозвратаДиалога.ОК Тогда
Возврат;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ЗагрузкаНаСервере(МассивЭ� �ементов,ПолныйПуть)
ВремяОплаты = СокрЛП(МассивЭлементов.Пол учить(0));
КартаКлиента = СокрЛП(МассивЭлементов.Пол учить(1));
СнятаяСумма = СокрЛП(МассивЭлементов.Пол учить(2));
ТелФ = СокрЛП(МассивЭлементов.Пол учить(3));
ДатаФ = СокрЛП(МассивЭлементов.Пол учить(4));
НомерФ = СокрЛП(МассивЭлементов.Пол учить(5));
СуммаФ = СокрЛП(МассивЭлементов.Пол учить(6));
НомСтроки = СокрЛП(МассивЭлементов.Пол учить(7));
КонецПроцедуры
Похожие темы
-
Ошибка при выполнении операции с базой данных. Внутренняя ошибка
от IvanIvan48 в разделе Установка и администрирование 1С - ПредприятиеОтветов: 1Последнее сообщение: 08.06.2017, 01:12 -
Ошибка при вызове метода контекста
от Assasin95 в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 9Последнее сообщение: 16.04.2014, 13:50 -
обработка конструктора печати
от анна1992 в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 0Последнее сообщение: 27.02.2014, 22:04 -
Ошибка СУБД: Ошибка SQL: Таблица не найдена '_Document208'
от Мики в разделе Конфигурирование, программирование 1С - ПредприятиеОтветов: 2Последнее сообщение: 12.08.2013, 14:34 -
Ошибка при вызове метода контекста (выполнить пакет)
от avaddon89 в разделе Общие вопросы по 1С - ПредприятиеОтветов: 1Последнее сообщение: 27.06.2013, 20:33
Социальные закладки