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