| utd |
| Отправлено: 14.01.2007, 15:54 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 5
|
Подскажите пожалуйста.
Можно ли как-нибудь сделать невидимым используемую WorkBooks при видимом приложении Excel?
Как можно реализовать индикатор, отображающий, что комп не висит (например, как курсор мыши в виде песочных часов) при открытии книги? Для доступа к Excel и книге используется функция ExcelInit() из уроков.
| CODE |
void __fastcall TForm1::ExcelInit(String File)
{
// если Excel запущен — подключиться к нему
try {
App=Variant::GetActiveObject("Excel.Application");
} catch(...) {
// Excel не запущен — запустить его
try { App=Variant::CreateObject("Excel.Application"); } catch (...) {
Application->MessageBox("Невозможно открыть Microsoft Excel!"
"Возможно Excel не установлен на компьютере.","Ошибка",MB_OK+MB_ICONERROR);
} }
try {
if(File!="")
App.OlePropertyGet("WorkBooks").OleProcedure("Open",File);
else
App.OlePropertyGet("WorkBooks").OleProcedure("add");
Sh=App.OlePropertyGet("WorkSheets",1);
} catch(...) {
Application->MessageBox("Ошибка открытия книги Microsoft Excel!",
"Ошибка",MB_OK+MB_ICONERROR);
}
}/* ExcelInit() */
|
Отредактировано utd — 14.01.2007, 16:30 |
|
| Doga |
| Отправлено: 14.01.2007, 20:07 |
|
Мастер участка
Группа: Участник
Сообщений: 575
|
Очень хороший ресурс по работе с EXCEL:
http://www.delphikingdom.com/asp/itemq.asp...mode=1&itemid=2
Отредактировано Doga — 14.01.2007, 20:07
|
|
| utd |
| Отправлено: 15.01.2007, 22:40 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 5
|
Спасибо за ссылку  |
|
| utd |
| Отправлено: 17.01.2007, 19:58 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 5
|
Ещё такой вопрос возник: можно ли получить доступ к листам книги, которая открывается уже как нивидимая?
И ещё, скрыть книгу получается
| CODE |
App.OlePropertyGet("ActiveWindow").OlePropertySet("Visible",false); |
а отобразить снова — нет. Может кто-нибудь в курсе, как это сделать?
Отредактировано utd — 18.01.2007, 19:57 |
|
| utd |
| Отправлено: 20.01.2007, 00:10 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 5
|
Понял!
Wb.OlePropertyGet("Windows",1).OlePropertySet("Visible",true)
(Wb — спрятанная WorkBook)  |
|
