Ошибка при вызове конструктора (COMObject)

[antoshik86]

https://yandex.ru/search/?text=-2147...win=333&lr=237

[vitalshim]

Я пользуюсь этим способом, работает везде:

&НаКлиенте
Процедура Загрузка(Команда)

Режим = РежимДиалогаВыбораФайла.О� �крытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.Фильт� � = НСтр("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);
Если Ответ = КодВозвратаДиалога.ОК Тогда
Возврат;
КонецЕсли;

КонецЕсли;

КонецПроцедуры

[vitalshim]

Я пользуюсь этим способом, работает везде:

&НаКлиенте
Процедура Загрузка(Команда)

Режим = РежимДиалогаВыбораФайла.О� �крытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.Фильт� � = НСтр("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));
КонецПроцедуры