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)