При сохранении данных таблицы StringGrid в Excel появляется ошибка

@Аsуа · Регистрация: 23.02.2014

Author24 — интернет-сервис помощи студентам

При сохранении данных таблицы StringGrid в Excel появляется ошибка. Код пишу в обработчике кнопки :
void __fastcall TForm1::Button10Click(TObject *Sender). В чем ошибка не понимаю. Помогите найти, пожалуйста.
Вот сам код:

C++

void __fastcall TForm1::Button10Click(TObject *Sender)
{
if(SaveDialog1->Execute())
    {
        Variant app = CreateOleObject("Excel.Application");
        Variant wbs = app.OlePropertyGet("Workbooks");
        Variant wb = wbs.OleFunction("Add",SaveDialog1->FileName.c_str());
            Variant wss = wb.OlePropertyGet("Worksheets");
            Variant ws = wss.OlePropertyGet("Item", 1);
            for (int r = 0; r <= StringGrid1->RowCount; r++)
                {
        for (int c = 0; c <= StringGrid1->ColCount; c++)
        {
            Variant cell = ws.OlePropertyGet("Cells", r + 1, c + 1);
            cell.OlePropertySet("Value", StringGrid1->Cells[c][r]);
        }
 
            wb.OleProcedure("Save");
        app.OleProcedure("Quit");
}
}

@D1973 · 27.03.2014, 06:23

Ошибка-то какая?

@volvo · 27.03.2014, 13:17

Аналогичная: Ошибка "Неизвестное имя" при сохранении данных таблицы StringGrid в Excel , вестимо...

@D1973 Модератор 9457 / 6210 / 2420 Регистрация: 21.01.2014 Сообщений: 26,473 Записей в блоге: 3
	27.03.2014, 06:23	2
	Ошибка-то какая? 0

@volvo Супер-модератор 32955 / 21273 / 8168 Регистрация: 22.10.2011 Сообщений: 36,543 Записей в блоге: 8
	27.03.2014, 13:17	3
	Аналогичная: Ошибка "Неизвестное имя" при сохранении данных таблицы StringGrid в Excel , вестимо... 0

Опции темы