Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
4 / 4 / 3
Регистрация: 05.08.2014
Сообщений: 54
1
Другое

Проверка переменной Excel.Application на содержание открытой книги

26.10.2014, 01:48. Просмотров 1102. Ответов 2
Метки нет (Все метки)

Всем привет! Очень нужно сделать проверку! Суть проблемы: есть программа работающая с Excel, в ней предусмотрено отображение таблицы по нажатию на пункт меню (Visible := true/false). Однако нерадивые юзеры стремятся закрывать таблицу средствами самого Excel. В итоге получаем непустую переменную без ссылки на книгу (которая я предполагаю закрывается). Возникает вопрос: как мне перед операциями с переменной проверить, есть ли в переменной ссылка на объект? Пробовал VarIsEmpty, но и ежу понятно, что переменная непустая. Как быть? Может кто поделится опытом?!.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2014, 01:48
Ответы с готовыми решениями:

Бэкап открытой книги Excel
Всем привет! Может кто мне подскажет, как с помощью ВБА сделать бэкап открытой книги эксель. у нас...

Импорт в Access из открытой книги Excel
Здравствуйте. Использую следующий код VBA для импорт данный из excel в access: Dim cnn As...

Поиск открытой книги Excel Из Access
Помогите, пожалуйста, процедура, написанная Excele находит открытые книги, а в любом другом...

Создать процедуру, позволяющую третий столбец активного рабочего листа открытой рабочей книги Excel настраивать на формат значений типа дата
Помогите плиз, Создать процедуру, позволяющую третий столбец активного рабочего листа открытой...

2
1262 / 705 / 62
Регистрация: 21.12.2009
Сообщений: 2,255
26.10.2014, 09:21 2
Лучший ответ Сообщение было отмечено Outwork как решение

Решение

Не вполне уверен (не проверял), но попробуй так.

Delphi
1
2
3
4
5
6
7
    try
      //E - переменная типа variant;
      E := GetActiveOleObject('Excel.Application')
      //сюда попадешь только тогда, когда есть активное Excel - приложение
    except
      // сюда попадаешь, когда нет активных Exel - приложений
    end;
Попробуй, вдруг прокатит!
1
4 / 4 / 3
Регистрация: 05.08.2014
Сообщений: 54
26.10.2014, 20:54  [ТС] 3
Цитата Сообщение от SAMZ Посмотреть сообщение
но попробуй так.
Спасибо за ответ! Однако решил проблему несколько иначе
Delphi
1
if Workbooks.Count = 0 then
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2014, 20:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Тип переменной для OlePropertySet Excel.Application
Заполняю ячейки в Excel таблице. Variant v; if(!fStart) { try { ...

Создать объект Excel.Application: var Obj=Server.CreateObject('Excel.Application');
мне нужно создать объект var Obj=Server.CreateObject('Excel.Application'); у меня стоит iis 4.0 ...

Проверка существования рабочей книги Excel
Добрый день. Привожу пример кода: procedure TForm1.btn1Click(Sender: TObject); var ...

Програмная передача значения переменной из одной книги Excel в другую
Всем доброе время суток ! Есть такой вопрос: Как програмно передать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.