Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
s24g
0 / 0 / 0
Регистрация: 27.03.2014
Сообщений: 20
1

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

27.03.2014, 11:26. Просмотров 1577. Ответов 1
Метки нет (Все метки)

При попытке сохранения данных таблицы StringGrid в Excel , появляется сообщение об ошибке - "Неизвестное имя".
Код программы:
void __fastcall TForm1::Button10Click(TObject *Sender)
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{ 
    Variant app = CreateOleObject("Excel.Application");
    Variant wbs = app.OlePropertyGet("Workbooks");
 Variant wb = wbs.OleFunction("Save",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");
}
Прикрепляю скриншот ошибки:
0
Миниатюры
Ошибка "Неизвестное имя" при сохранении данных таблицы StringGrid в Excel  
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2014, 11:26
Ответы с готовыми решениями:

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

Ошибка при объявлении размера массива: "неизвестное имя 'n'"
program mass_5; type m=array of integer; // &lt;--- procedure InAr(var a:m; n:integer); // &lt;---...

Ошибка при сохранении данных из StringGrid в Excel
Добрый день! Возникает проблема при попытке сохранения данных из StringGrid в формате Excel ...

Ошибка при изменении/сохранении данных на диске "D"
https://www.cyberforum.ru/attachment.php?attachmentid=1012981&amp;stc=1&amp;d=1550502082 Не могу...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
29020 / 19155 / 7525
Регистрация: 22.10.2011
Сообщений: 33,374
Записей в блоге: 6
27.03.2014, 13:08 2
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    if (SaveDialog1->Execute())
    {
 
        Variant app = CreateOleObject("Excel.Application");
        app.OlePropertyGet("Workbooks").OleProcedure("Add");
        Variant wbs = app.OlePropertyGet("Workbooks").OlePropertyGet("Item", 1);
        wbs.OleProcedure("SaveAs", StringToOleStr(SaveDialog1->FileName));
        Variant wss = wbs.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", StringToOleStr(StringGrid1->Cells[c][r]));
            }
        wbs.OleProcedure("Save");
        app.OleProcedure("Quit");
    }
3
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.03.2014, 13:08

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Ошибка в Паскаль "Неизвестное имя b"
program matrica; type massiv = array of int; var i, j, c, b: int; m: massiv; begin ...

Ошибка "Неизвестное имя типа"
program lab10; uses crt; var F: Text; slovo: string; i: integer; begin clrscr;...

MDaemon 12 + Mozilla Thunderbird "При сохранении сообщения в папку "отправленные" произошла ошибка..."
Добрый день. Периодически с разных машин в сети при отправке почты выскакивает ошибка: &quot;При...

Ошибка "неверное имя" при создании таблицы
Создаю таблицу: create table Tab1 as select* from sh update table Tab1 set Tab1.cust='M'...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.