BEST logo логотип компании БЭСТ - программы для бизнеса ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
ПОДДЕРЖКА
+7 (495) 775-66-76
consult@bestnet.ru
СКАЧАТЬ
Обновления
Дистрибутивы
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ в Личный кабинет.
Получите доступ.


Релизы / Обновления

Главная  / Общение  / Форум  / Публичные форумы  / Программирование приложений  / Как выгрузить Excel при обращении к нему в плагине?

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как выгрузить Excel при обращении к нему в плагине?
 
Здравствуйте!
Фрагмент кода :
TRY
oApp := CreateObject( "Excel.Application" )
CATCH
Alert("Excel не доступен!")
RETURN .F.
END
ALTD()
try
oWorkBook:=oApp:WorkBooks:open(OemToAnsi(cFileName),0)
catch
alert('Ошибка открытия входного файла. Не удалось открыть файл.')

RETURN .F.
end
try
oWorkSheet:=oWorkBook:worksheets(OemToAnsi('Лист1'))
catch
alert('Ошибка открытия входного файла. Не удалось открыть лист с данными')
RETURN .F.
end

Если в книге cFileName нет листа 'Лист1', то плагин прекращает работу.
Но при этом в диспетчере задач можно увидеть ,что excel.exe так и остался "висеть " в перечне процессов.
Какой командой его можно выгрузить в БЭСт 4 и в Бэст5?
Заранее спасибо.
 
Код
if(valtype(oWorkBook)='O', oWorkBook:close(.F.), nil)
if(valtype(oApp)='O' , oApp:quit(), nil)
 
Для БЭСТ 5 следует делать несколько иначе
начиная с



Код
TRY
  oApp := OleCreateObject( "Excel.Application" )
CATCH
и заканчиваем



Код
WIN32_OLEUNINITIALIZE()
Страницы: 1
Читают тему (гостей: 1)
Маркетплейс ПО на сайте Минцифры России

Компания БЭСТ является официальным партнером государственной системы маркировки и прослеживания Честный ЗНАК

ХИТЫ ПРОДАЖ



Учет алкогольной продукции в"БЭСТ-5. Алко". Интеграция с УТМ ЕГАИС

Новости