powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проверка на наличие EXCEL в системе
5 сообщений из 5, страница 1 из 1
Проверка на наличие EXCEL в системе
    #32621588
LAVix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В Excel генерируется ряд отчетов, при этом необходимо обработать ситуацию на то установлен ли в системе Excel.
Подскажите,пожалуйста, как это можно сделать?
...
Рейтинг: 0 / 0
Проверка на наличие EXCEL в системе
    #32621602
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
#INCLUDE registry.h
#INCLUDE excel.h
IF TYPE("loregistry") # "O"
	loRegistry = CreateObject("registry")
ENDIF
cValue=''
loregistry.getregkey("", @cValue, "Software\CLASSES\Excel.Application\CurVer", HKEY_LOCAL_MACHINE)
IF empty(cValue)
	=MessageBox("Excel-я нет.",  64 , "Внимание")
	RETURN .f.
ELSE
	RETURN .t.
ENDIF

Желаю удачи
...
Рейтинг: 0 / 0
Проверка на наличие EXCEL в системе
    #32621809
А не проще ли так:
Код: plaintext
1.
2.
3.
4.
5.
6.
oExcel = CREATEOBJECT('excel.application')
IF TYPE('oExcel') = 'O'
* Excel присутствует. Выполняем нужные действия
ELSE
   = MESSAGEBOX('На вашем компе Excel не обнаружен!')
ENDIF
...
Рейтинг: 0 / 0
Проверка на наличие EXCEL в системе
    #32622078
Фотография neznajka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
To LAVix:
А еще иногда полезно использовать GetObject() - чтобы не создавать лишней копии Excel-приложения (при запуске в отдельных окнах) если Excel не только установлен, но и уже запущен в системе:
#Include excel.h
Local loExcel, lcOldError
Wait window nowait "...Запускается Excel.."
lcOldError=On("ERROR")
on error loExcel=.NULL.
&& Запуск Excel'а
loExcel= GetObject(,"Excel.Application")
on error &lcOldError
if isnull(loExcel)
loExcel=CreateObject("Excel.Application")
IF TYPE('loExcel') = 'O'
With loExcel
&&...
&& Команды создания Excel-отчета
&&...
EndWith
loexcel.Visible=.T.
ELSE
= MESSAGEBOX('Ошибка создания рабочей книги Excel!')
ENDIF
endif
Release loexcel
...
Рейтинг: 0 / 0
Проверка на наличие EXCEL в системе
    #32629619
LAVix
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое всем спасибо! У меня все получилось отлично!!!
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проверка на наличие EXCEL в системе
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]