Передача цвета строк и цвета текста из stringgrid в excel и обратно

@Sergey_03 · Регистрация: 15.12.2014

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

Доброго дня. Интересует вопрос передачи цвета строк и цвета текста из stringgrid в excel и желательно обратно, а так же формирование шапки и ширина страницы excel Помогите плиз, ссылкой или примером. Нагуглил чтото похожее только для дельфи, но в итоге еще больше запутался.

Нашел такое - работает, но как сформировать шапку и передать в эксель цвета - в затруднении...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    WideString str;
    TStringList *sl = new TStringList;
    for(int i = 0 ; i<StringGrid1->RowCount ;++i)
        {
            for(int j = 0; j< StringGrid1->ColCount;++j)
            str +=StringGrid1->Cells[j][i]+ "\t";
            sl->Add(Trim(str));
            str = "\n\r" ;
        }
        if (SaveDialog1->Execute())
            sl->SaveToFile(SaveDialog1->FileName);
            delete sl;
}

@D1973 · 22.05.2015, 05:53

Все очень просто...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#include <ComObj.hpp>
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  Variant app, books, book, sheet;
  String FileName = ExtractFilePath(Application->ExeName) + "111.xls";
  int MaxR, MaxC, BeginR, BeginC;
  BeginR = 3, BeginC = 1; 
  int k = 0;
  app = CreateOleObject("Excel.Application");
  books = app.OlePropertyGet("Workbooks");
  books.OleFunction("Open", WideString(FileName));
  book = books.OlePropertyGet("item",1);
  sheet = book.OlePropertyGet("WorkSheets",1);
  MaxR = sheet.OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count");
  MaxC = sheet.OlePropertyGet("UsedRange").OlePropertyGet("Columns").OlePropertyGet("Count");
  String s_grd = "";
  for(int i = BeginR; i <= MaxR; i++)
   {
     for(int j = BeginC; j <= MaxC; j++)
      {
        String s = sheet.OlePropertyGet("Cells").OlePropertyGet("Item",i,j).OlePropertyGet("Value");
        if(s.Trim().Length() == 0)
         s_grd += "";
        else s_grd += String().sprintf("\"%s\" ", s);
      }
     StringGrid1->Rows[k]->CommaText = s_grd;
     s_grd = "";
     k++;
     if(k > 2) StringGrid1->RowCount++;
   }
  app.OleProcedure("Quit");
}
//---------------------------------------------------------------------------

@Sergey_03 · 22.05.2015, 09:20 **[ТС]**

Спасибо, но ошибки
на месте

C++
1
"\"%s\" ", s

такие

C++
1
2
[BCC32 Error] Unit26_Monitoring.cpp(5177): E2034 Cannot convert 'const char *' to 'const wchar_t *'
[BCC32 Error] Unit26_Monitoring.cpp(5177): E2342 Type mismatch in parameter 'format' (wanted 'const wchar_t *', got 'const char *')

@volvo · 22.05.2015, 09:34

Добавь один символ:

C++
25
        else s_grd += String().sprintf(L"\"%s\" ", s);

- указанные ошибки пропадут

@Sergey_03 · 22.05.2015, 10:03 **[ТС]**

Да, пропали. А можно через опендиалог файл для загрузки выбирать?

Добавлено через 1 минуту
И подскажите пару слов про прагму и верх - чего после чего и почему- гуглил - боюсь не уловил..

@volvo · 22.05.2015, 10:17

Сообщение от Sergey_03

А можно через опендиалог файл для загрузки выбирать?

Можно, как обычно:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
    if (OpenDialog1->Execute())
    {
        Variant app, books, book, sheet;
        // String FileName = ExtractFilePath(Application->ExeName) + "111.xls";
        int MaxR, MaxC, BeginR, BeginC;
        BeginR = 3, BeginC = 1;
        int k = 0;
        app = CreateOleObject("Excel.Application");
        books = app.OlePropertyGet("Workbooks");
        books.OleFunction("Open", WideString(OpenDialog1->FileName));
        book = books.OlePropertyGet("item", 1);
        sheet = book.OlePropertyGet("WorkSheets", 1);
        MaxR = sheet.OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count");
        MaxC = sheet.OlePropertyGet("UsedRange").OlePropertyGet("Columns").OlePropertyGet("Count");
        String s_grd = "";
        for (int i = BeginR; i <= MaxR; i++)
        {
            for (int j = BeginC; j <= MaxC; j++)
            {
                String s = sheet.OlePropertyGet("Cells").OlePropertyGet("Item", i, j).OlePropertyGet("Value");
                if (s.Trim().Length() == 0) s_grd += "";
                else s_grd += String().sprintf(L"\"%s\" ", s);
            }
            StringGrid1->Rows[k]->CommaText = s_grd;
            s_grd = "";
            k++;
            if (k > 2) StringGrid1->RowCount++;
        }
        app.OleProcedure("Quit");
    }

Сообщение от Sergey_03

пару слов про прагму

Все то, что подключено перед #pragma hdrstop, будет скомпилировано один раз. Все то, что после - будет компилироваться при каждой перекомпиляции модуля. То есть, подключать заголовки перед этой прагмой нужно только тогда, когда у тебя во всех модулях проекта подключаются одни и те же хидеры, и нет смысла их каждый раз перекомпилировать для каждой единицы компиляции. Скажем, очень удобно так подключать vcl.h - он однозначно требуется везде, tchar.h для работы с юникодом тоже подключается ко всем cpp-файлам проекта. А все остальные хидеры, которые используются в одном-двух cpp-файлах, нет необходимости подключать подобным образом, они подключаются после #pragma hrdstop

@Sergey_03 · 22.05.2015, 10:38 **[ТС]**

Огромное спасибо. Все работает.
я убрал

C++
1
2
if (s.Trim().Length() == 0) s_grd += "";
                else

потому что мне надо, чтобы и пустые ячейки тоже заходили. а реально в них убрать (null) ?

@volvo · 22.05.2015, 11:11

Так?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
        for (int i = BeginR; i <= MaxR; i++)
        {
            for (int j = BeginC; j <= MaxC; j++)
            {
                String s = sheet.OlePropertyGet("Cells").OlePropertyGet("Item", i, j).OlePropertyGet("Value");
                s_grd += String().sprintf(L"\"%s\" ", s);
            }
            StringGrid1->Rows[k]->CommaText = s_grd;
            StringGrid1->Rows[k]->CommaText = StringReplace(StringGrid1->Rows[k]->CommaText, "(null)", "", TReplaceFlags() << rfReplaceAll);
            s_grd = "";
            k++;
            if (k > 2) StringGrid1->RowCount++;
        }

@Sergey_03 · 22.05.2015, 12:45 **[ТС]**

Да, все работает. Спасибо. Какоеж я днище в этом всем

@D1973 · 22.05.2015, 17:12

Сообщение от Sergey_03

я убрал

C++
1
2
if (s.Trim().Length() == 0) s_grd += "";
* * * * * * * * else

Дык это и делалось, вообще-то, для того, чтобы (null) не было...
Хорошо, что volvo свой вариант предложил... Хотя не очень понятно, чем мой-то не угодил?

@Sergey_03 · 22.05.2015, 17:32 **[ТС]**

Сообщение от D1973

Хотя не очень понятно

Все правильно, просто мне нужно было не терять структуры таблицы. А так, если в ячейке ничего не было, следующая занимала её место.

@D1973 · 22.05.2015, 17:58

Точно, косяк...

Добавлено через 7 минут
Вот так правильно будет...

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
for(int i = BeginR; i <= MaxR; i++)
   {
     for(int j = BeginC; j <= MaxC; j++)
      {
        String s = sheet.OlePropertyGet("Cells").OlePropertyGet("Item",i,j).OlePropertyGet("Value");
        if(s.Trim().Length() == 0)
         s_grd += ";";
        else s_grd += String().sprintf(L"\"%s\";", s);
      }
     StringGrid1->Rows[k]->Delimiter = ';';
     StringGrid1->Rows[k]->DelimitedText = s_grd;
     s_grd = "";
     k++;
     if(k > 2) StringGrid1->RowCount++;
   }

@Sergey_03 · 22.05.2015, 18:01 **[ТС]**

Спасибо!

@Sergey_03 · 25.05.2015, 09:19 **[ТС]**

Доброго утра. Не подскажите такой вопрос появился. Есть готовый файл эксель, в нем книга на 13 листов. Мне нужно через OpenDialog считать c листа 4
пятый и седьмой столбец в StringGrid 1 (button1)
и записать их через SaveDialog в лист 8
в первый и одинадцатый столбец (button2) соответственно. Но обязательно через StringGrid.
Я понимаю, что эти действия почти аналогичны выше написанным, но есть проблемы с правильным выбором ячеек, столбцов ..

@volvo · 25.05.2015, 09:45

C++
1
sheet = book.OlePropertyGet("WorkSheets", 1);

Единицу замени на номер листа, с которым нужно работать. В чем проблема-то заключается?

@Sergey_03 · 25.05.2015, 09:56 **[ТС]**

Спасибо. Хотел попробовать использовать индексы ячеек - может понадобиться менять только одно значение какой-то конкретной ячейки. Сейчас попробую листы менять.

@Sergey_03 · 27.05.2015, 13:03 **[ТС]**

Доброе утро. Не подскажите, как поставить SaveDialog на сохранение файла из грида в эксель? Желательно с расширением по умолчанию. Гуглю, пробую - не получается чегото..

Добавлено через 2 часа 5 минут
как бы нашел))

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if (SaveDialog1->Execute())//надо это
    {//..............................всякое мое
           //Открыли Ексель
             Variant app, Rang, vCell, sheet, cell;
             app = CreateOleObject("Excel.Application");
             app.OlePropertySet("Visible",0);
             app.OlePropertySet("SheetsInNewWorkbook", 1);
             app.OlePropertyGet("WorkBooks").OleFunction("Add", 1);
             Variant wbs = app.OlePropertyGet("Workbooks").OlePropertyGet("Item", 1);//надо это
             wbs.OleProcedure("SaveAs", StringToOleStr(SaveDialog1->FileName));//надо это
             sheet = app.OlePropertyGet("WorkSheets", 1);
           //............................всякое мое
             app.OleProcedure("Save");//надо это
             app.OleProcedure("Quit");//надо это
    }

спасибо.

Добавлено через 39 минут
Но почемуто при сохранении пишет
Файл 'RESUME.XLW' уже существует в другом месте. Заменить?
Что это и почему, не подскажете?

@volvo · 27.05.2015, 14:28

Потому что внимательнее надо быть. Там, откуда ты скопировал этот код, был вызов метода Save для чего? Для wbs, то есть, Workbook. Тогда приведенной ошибки не возникает. А у тебя вызывается Save для Excel.Application, вот и результат...

@Sergey_03 · 27.05.2015, 15:12 **[ТС]**

Исправил

C++
1
wbs.OleProcedure("Save");

@Sergey_03 · 01.06.2015, 22:56 **[ТС]**

Добрый вечер, вопрос такой встал - возможно ли загрузить в документ экселя из грида данные в определенные столбцы определенного листа, не меняя всего остального, что есть в этом документе?

@volvo · 01.06.2015, 22:58

Можно, в чем проблема? Как получить лист - известно, как обращаться к конкретной ячейке листа - тоже известно, ничего остальное затронуто не будет.

Новые блоги и статьи Все статьи Все блоги /
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663
	22.05.2015, 10:03 [ТС]
	Да, пропали. А можно через опендиалог файл для загрузки выбирать? Добавлено через 1 минуту И подскажите пару слов про прагму и верх - чего после чего и почему- гуглил - боюсь не уловил.. 0

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663
	22.05.2015, 12:45 [ТС]
	Да, все работает. Спасибо. Какоеж я днище в этом всем 0

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663
	22.05.2015, 18:01 [ТС]
	Спасибо! 0

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663
	25.05.2015, 09:19 [ТС]
	Доброго утра. Не подскажите такой вопрос появился. Есть готовый файл эксель, в нем книга на 13 листов. Мне нужно через OpenDialog считать c листа 4 пятый и седьмой столбец в StringGrid 1 (button1) и записать их через SaveDialog в лист 8 в первый и одинадцатый столбец (button2) соответственно. Но обязательно через StringGrid. Я понимаю, что эти действия почти аналогичны выше написанным, но есть проблемы с правильным выбором ячеек, столбцов .. 0

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663
	25.05.2015, 09:56 [ТС]
	Спасибо. Хотел попробовать использовать индексы ячеек - может понадобиться менять только одно значение какой-то конкретной ячейки. Сейчас попробую листы менять. 0

@volvo Супер-модератор 33478 / 21576 / 8250 Регистрация: 22.10.2011 Сообщений: 37,034 Записей в блоге: 12
	27.05.2015, 14:28
	Потому что внимательнее надо быть. Там, откуда ты скопировал этот код, был вызов метода Save для чего? Для wbs, то есть, Workbook. Тогда приведенной ошибки не возникает. А у тебя вызывается Save для Excel.Application, вот и результат... 1

@Sergey_03 21 / 9 / 4 Регистрация: 15.12.2014 Сообщений: 663
	01.06.2015, 22:56 [ТС]
	Добрый вечер, вопрос такой встал - возможно ли загрузить в документ экселя из грида данные в определенные столбцы определенного листа, не меняя всего остального, что есть в этом документе? 0

@volvo Супер-модератор 33478 / 21576 / 8250 Регистрация: 22.10.2011 Сообщений: 37,034 Записей в блоге: 12
	01.06.2015, 22:58
	Можно, в чем проблема? Как получить лист - известно, как обращаться к конкретной ячейке листа - тоже известно, ничего остальное затронуто не будет. 0