VPF::excel + builder + ole - Форум программистов

Андре

Дата 7.4.2005, 16:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Проблема вот в чём...есть приложение для заполнения некоего xlt шаблона и отображения его на форме...код для этого выглядит следующим образом..

Код


// устанавливаем путь к файлу шаблона
AnsiString sFile = GetCurrentDir()+"\\abc.xlt";
// инициализируем Excel, открываем этот шаблон
try 
{
App=Variant::GetActiveObject("Excel.Application");
} 
catch(...) 
{
try 
{ 
App=Variant::CreateObject("Excel.Application"); 
 }
catch (...) 
{
Application->MessageBox("Невозможно открыть Microsoft Excel!"
"Возможно это приложение на компьютере не установлено.","Ошибка",MB_OK+MB_ICONERROR);
 }
}
try 
{
App.OlePropertyGet("WorkBooks").OleProcedure("Open",sFile.c_str(),0,false,1);
Sh=App.OlePropertyGet("WorkSheets",1);
} 
catch(...) 
{
Application->MessageBox("Ошибка открытия книги Microsoft Excel!","Ошибка",MB_OK+MB_ICONERROR);
}
// заносим значение из поля ввода в ячейку 2, 1
AnsiString data;
data = Edit1->Text;
try 
{
Variant  cur = Sh.OlePropertyGet("Cells", 2,1);
cur.OlePropertySet("Value", data.c_str());
} 
catch(...) { ; }
//сохраняем файл с именем FIRM.XLS
App.OlePropertySet("DisplayAlerts", false);
App.OlePropertyGet("WorkSheets",1).OleProcedure("SaveAs","C:\\Pr\\Firm.xls");
//отображаем файл в приложении
PB1->OleContainer1->CreateObjectFromFile("C:\\Pr\\Firm.xls", false);
//Освобождаем ресурсы
Sh.Clear();
App.Clear();

И всё вроде бы ничего, работает...один раз за один запуск проги....в следующие разы выдаёт ошибку...может надо как-то закрывать эксель?
Подскажите пожалуйста.

Может кто-то уже делал подобное, знает более эффективный способ (не через сохранение файла).[/code]

_hunter

Дата 7.4.2005, 17:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 24
Всего: 98

попробуй в конце добавить
App = Unassigned;

--------------------

Tempora mutantur, et nos mutamur in illis...

Андре

Дата 8.4.2005, 16:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Блин, без полезно...чож делать то?

_hunter

Дата 8.4.2005, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 24
Всего: 98

а где ошибка? + что такое App?

--------------------

Tempora mutantur, et nos mutamur in illis...

Adil'

Дата 8.4.2005, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 311
Регистрация: 26.8.2004
Где: Питер

Репутация: 4
Всего: 15

Попробуй СeateObjectFromFilе закомментировать - тоже самое?

--------------------

Удачи

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »