Программирование. Использование 1С и Excel
21.06.2001
20:22
#1
\"Решаемая задача - не стандартное определение себестоимости продукции. Используемый вариант решения:<br><br> - перенос различных данных из 1С в Excel;<br><br> - дополнительный анализ и обработка данных в Excel (в т.ч. вручную и использованием других программ);<br><br> - возврат сформированных готовых данных в 1С.<br><br> Выполнение производится из 1С используя OLE.<br><br>ПРОБЛЕМА:<br><br> Очень желательно, чтобы в момент запуска Excel пользователь не имел возможности возврата в 1С до его закрытия (т.е. Excel). Как этого добиться?\"
22.06.2001
21:41
#2
\"Сам себе же отвечаю (может быть будет полезно для других):<br><br>Например это запретит продолжать работу в 1C если<br><br>запущен Excel<br><br>//Создали объекты EXCEL<br><br>Excel = CreateObject(\"Excel.Application\");<br><br>Book = Excel.WorkBooks.Open(ИмяФайла);<br><br>List = Book.Worksheets(1);<br><br>Excel.Visible=1; <br><br>ПриложениеЗапущено=\"Да\";<br><br>Пока ПустаяСтрока(ПриложениеЗапущено)=0 Цикл<br><br> Попытка<br><br> ПриложениеЗапущено = List.Cells(1,1);<br><br> Состояние(\"До закрытия Excel файла продолжение работы в 1С.бухгалтерия НЕ ВОЗМОЖНО!\");<br><br> Исключение <br><br> ПриложениеЗапущено = \"\"\"\";<br><br> Excel = \"\"\"\";<br><br> Book = \"\"\"\";<br><br> List = \"\"\"\";<br><br> Прервать;<br><br> КонецПопытки; <br><br>КонецЦикла;<br><br>Возможно зависание если в Excel будет выполняться мощная обработка.<br><br><br><br>Интересны другие варианты решения?<br><br>\"
Читают тему
(гостей: 1)