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

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

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

Студворк — интернет-сервис помощи студентам
Всем привет! Очень нужно сделать проверку! Суть проблемы: есть программа работающая с Excel, в ней предусмотрено отображение таблицы по нажатию на пункт меню (Visible := true/false). Однако нерадивые юзеры стремятся закрывать таблицу средствами самого Excel. В итоге получаем непустую переменную без ссылки на книгу (которая я предполагаю закрывается). Возникает вопрос: как мне перед операциями с переменной проверить, есть ли в переменной ссылка на объект? Пробовал VarIsEmpty, но и ежу понятно, что переменная непустая. Как быть? Может кто поделится опытом?!.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.10.2014, 01:48
Ответы с готовыми решениями:

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

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

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

2
1263 / 706 / 62
Регистрация: 21.12.2009
Сообщений: 2,256
26.10.2014, 09:21
Лучший ответ Сообщение было отмечено 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  [ТС]
Цитата Сообщение от SAMZ Посмотреть сообщение
но попробуй так.
Спасибо за ответ! Однако решил проблему несколько иначе
Delphi
1
if Workbooks.Count = 0 then
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
26.10.2014, 20:54
Помогаю со студенческими работами здесь

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

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru