Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Проблема с OpenDialog!!!!

71K
09 октября 2011 года
Екатерина_21
7 / / 09.10.2011
С помощью 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 добавить и через него открыть - тоже ничего.

Кто понял, в чем проблема, подскажите, пожалуйста, где ошибка!))))
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог