Открытие закрытие Excel

При клике по кнопке отрывается Excel пользователь работает с ним и закрывает когда необходимо
При повтором клике выдает ошибку raised exception class EAccess violation at adress 016C2A2D in module dd.dll . Read of adress 00000000 Process Stoped.
Use Step or Run to continue

Text

Это функция при клике
void __fastcall Tsinh_tab::P1Click(TObject *Sender)
{
sinh_tab->ExcelApplication1->Connect();
sinh_tab->ExcelApplication1->Workbooks->Add("", 0);
sinh_tab->ExcelWorkbook1->ConnectTo(sinh_tab->ExcelApplication1->ActiveWorkbook);
sinh_tab->ExcelWorksheet1->ConnectTo(sinh_tab->ExcelWorkbook1->ActiveSheet);
sinh_tab->ExcelApplication1->Set_Visible(0, true);
}

Когда пользователь закрывает Excel я вызываю следующую функцию иначе при закрытии Excel процесс Excel остается висеть

Text

void __fastcall Tsinh_tab::ExcelApplication1WorkbookDeactivate(
TObject *Sender, ExcelWorkbookPtr Wb)
{
sinh_tab->ExcelWorksheet1->Free();
sinh_tab->ExcelWorkbook1->Free();
sinh_tab->ExcelApplication1->Disconnect();
sinh_tab->ExcelApplication1->Quit();
sinh_tab->ExcelApplication1->Free();
}

sinh_tab- это моя форма.
как можно сделать что бы повторно запускать Excel?

	Автор	Тема: Открытие закрытие Excel (Прочитано 674 раз)
0 Пользователей и 1 Гость смотрят эту тему.