О
Denis Noname
Может быть... Эксель не установлен?
он стоит. На одной компе стоит Офис365. На другом Office2016. На обоих не работает
Size: a a a
2020 March 22
s
с 365 так точно не работает
D
Message from Влада deleted. Reason: media (?)
S
Оксана
Привет, подскажите, пожалуйста, почему вылетает исключение, что ms excel не установлен?
Процедура Загрузить(Команда)
ПодключитьРасширениеРаботыСФайлами();
Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
Фильтр = "Таблица(*.xls)|*.xls";
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = "Выберите файл";
Если ДиалогОткрытияФайла.Выбрать() Тогда
ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла;
Иначе
Возврат;
КонецЕсли;
Попытка
Excel = Новый COMОбъект("Ехсе1.Application");
Excel.WorkBooks.Open(ПутьКФайлу);
ExcelЛист = Excel.Sheets(1);
Исключение
Сообщить ("Не установлено приложение МS Ехсе1!");
Возврат;
КонецПопытки;
ТекущаяСтрока = 2;
ТекущееЗначение = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 2).Value);
Пока ЗначениеЗаполнено(ТекущееЗначение) Цикл
Состояние("Загрузка данных... строка" + Строка(ТекущаяСтрока-1));
Наименование = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 2).Value);
ЦенаПродажи = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 3).Value);
ЕдиницаИзмерения = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 4).Value);
ЗаполнитьЭлементСправочника(Объект.ЗагрузкаНаДату,Наименование,ЦенаПродажи,ЕдиницаИзмерения);
ТекущаяСтрока = ТекущаяСтрока + 1;
ТекущееЗначение = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 2).Value);
КонецЦикла;
Excel.Quit();
КонецПроцедуры
Новый COMОбъект("Excel.Application"); а у вас "Exce1.Application"
𝖍
Оксана
Привет, подскажите, пожалуйста, почему вылетает исключение, что ms excel не установлен?
Процедура Загрузить(Команда)
ПодключитьРасширениеРаботыСФайлами();
Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
Фильтр = "Таблица(*.xls)|*.xls";
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = "Выберите файл";
Если ДиалогОткрытияФайла.Выбрать() Тогда
ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла;
Иначе
Возврат;
КонецЕсли;
Попытка
Excel = Новый COMОбъект("Ехсе1.Application");
Excel.WorkBooks.Open(ПутьКФайлу);
ExcelЛист = Excel.Sheets(1);
Исключение
Сообщить ("Не установлено приложение МS Ехсе1!");
Возврат;
КонецПопытки;
ТекущаяСтрока = 2;
ТекущееЗначение = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 2).Value);
Пока ЗначениеЗаполнено(ТекущееЗначение) Цикл
Состояние("Загрузка данных... строка" + Строка(ТекущаяСтрока-1));
Наименование = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 2).Value);
ЦенаПродажи = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 3).Value);
ЕдиницаИзмерения = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 4).Value);
ЗаполнитьЭлементСправочника(Объект.ЗагрузкаНаДату,Наименование,ЦенаПродажи,ЕдиницаИзмерения);
ТекущаяСтрока = ТекущаяСтрока + 1;
ТекущееЗначение = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 2).Value);
КонецЦикла;
Excel.Quit();
КонецПроцедуры
В этом коде выдается сообщение с текстом "Не установлено приложение МS Ехсе1!" и не отображается истинная ошибка.
Заменить на ВызватьИсключение;
Заменить на ВызватьИсключение;
АБ
Оксана
У меня l стоит) ну ради интереса поменяла и все равно ничего
Попытка
Excel = Новый COMОбъект("Ехсе1.Application");
Excel.WorkBooks.Open(ПутьКФайлу);
ExcelЛист = Excel.Sheets(1);
Исключение
Сообщить (ОписаниеОшибки());
КонецПопытки;
Excel = Новый COMОбъект("Ехсе1.Application");
Excel.WorkBooks.Open(ПутьКФайлу);
ExcelЛист = Excel.Sheets(1);
Исключение
Сообщить (ОписаниеОшибки());
КонецПопытки;
О
Попытка
Excel = Новый COMОбъект("Ехсе1.Application");
Excel.WorkBooks.Open(ПутьКФайлу);
ExcelЛист = Excel.Sheets(1);
Исключение
Сообщить (ОписаниеОшибки());
КонецПопытки;
Excel = Новый COMОбъект("Ехсе1.Application");
Excel.WorkBooks.Open(ПутьКФайлу);
ExcelЛист = Excel.Sheets(1);
Исключение
Сообщить (ОписаниеОшибки());
КонецПопытки;
Значение не является значением объектного типа (Cells)
О
Ругается на эту строчку
ТекущееЗначение = СокрЛП(ExcelЛист.Cells(ТекущаяСтрока, 2).Value);АБ
на это моменте что выдает?
Исключение
Сообщить (ОписаниеОшибки());
Исключение
Сообщить (ОписаниеОшибки());
АБ
попробуйте так
https://kb.mista.ru/article.php?id=865
https://kb.mista.ru/article.php?id=865
О
Спасибо, попробую
S
Оксана
У меня l стоит) ну ради интереса поменяла и все равно ничего
вообще, с экселем работать через COM уже не комильфо.
посмотрите сюды:
https://infostart.ru/public/1025900/
посмотрите сюды:
https://infostart.ru/public/1025900/
ГР
В Розница 2.2 где то хранится старая цена? Чтоб в запросе можно было вытащить
ГР
РС.ЦеныНоменклатуры
ГР
Тут ведь текущая цена выйдет