Проблема с OpenDialog!!!!
Код:
if (OpenDialog1->Execute())
{
var_Excel=CreateOleObject("Excel.Application");
var_Excel.OlePropertyGet("Application").OlePropertyGet("Workbooks").OleProcedure("Open" , OpenDialog1->FileName.c_str() ); var_Excel.OlePropertySet("Visible",false);
var_Sheet = var_Excel.OlePropertyGet("ActiveSheet");
for (Row_Counter ; Row_Counter <= Max_Row ; Row_Counter++)
{
for (Column_Counter ; Column_Counter <= Max_Column ; Column_Counter++)
{
StringGrid1->Cells[Column_Counter][Row_Counter] =
var_Sheet.OlePropertyGet("Cells").OlePropertyGet("Item", Row_Counter + 1 , Column_Counter + 1);
}
Column_Counter = 0;
}
var_Excel.OlePropertyGet("Application").OleProcedure("Quit");
var_Sheet = Unassigned;
var_Excel = Unassigned;
}
Первый раз все открывает нормально, но когда я пытаюсь уже на второй панели открыть другой файл и занести
Код:
StringGrid2->Cells[Column_Counter][Row_Counter] =
var_Sheet.OlePropertyGet("Cells").OlePropertyGet("Item", Row_Counter + 1 , Column_Counter + 1);
ТО НИЧЕГО НЕ ПРОИСХОДИТ!!!!
УЖЕ НИЧЕГО НЕ ОТКРЫВАЕТ.
Пробывала другой Opendialog добавить и через него открыть - тоже ничего.
Кто понял, в чем проблема, подскажите, пожалуйста, где ошибка!))))