Перенос текста в объединенных ячейках

@Within_t · Регистрация: 20.10.2013

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

Добрый день, выручайте)

Написал код, который передает данные из программы в Excel

.h

C++
1
2
3
4
5
6
7
8
9
10
11
#include <ComObj.hpp>
 
private:    // User declarations
Variant  vVarApp,   
         vVarBooks, 
         vVarBook,   
         vVarSheets, 
         vVarSheet,  
         vVarCells,  
         vVarCell;   
bool     fStart;

.cpp

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
35
36
37
38
39
40
41
42
43
44
45
if(!fStart)
{
    try
    {
        vVarApp=CreateOleObject("Excel.Application");
        fStart=true;
    }
    catch(...)
    {
        Application->MessageBox(L"ќшибка при открытии сервера Excel", L"ќшибка...", MB_OK | MB_ICONINFORMATION);
        return;
    }
}
 
//установка свойства
vVarApp.OlePropertySet("Visible",true);
//ѕеременной vVarBooks присваиваетс¤ значение Workbooks - свойство
//объекта Excel.Application, содержащее набор рабочих книг Excel.
vVarBooks=vVarApp.OlePropertyGet("Workbooks");
//SheetsInNewWorkbook задает количество листов в создаваемой книге,
//пусть в первой книге их будет 1 страница (лист)
vVarApp.OlePropertySet("SheetsInNewWorkbook",1);
//ƒобавл¤ем книгу из 1 листов в объект vVarBooks.
vVarBooks.OleProcedure("Add");
//ѕеременна¤ vVarBook содержит ссылку на текущую книгу.
//(ѕусть текуща¤ книга будет перва¤).
vVarBook=vVarBooks.OlePropertyGet("Item",1);
//ѕеременной vVarSheets присваиваем значение
//Worksheets - свойство объекта Excel.Application,
//содержащее набор страниц книги Excel.
vVarSheets=vVarBook.OlePropertyGet("Worksheets");
//берем первый лист
vVarSheet=vVarSheets.OlePropertyGet("Item",1);
//задаем новое им¤ листу
vVarSheet.OlePropertySet("Name", (WideString)"Имя листа");
 
//встаем на указанную ¤чейку
vVarCell=vVarSheet.OlePropertyGet("Range", (WideString)"A1:B2");
vVarCell.OleProcedure("Merge");
vVarCell.OlePropertySet("WrapText", true); ПЕРЕНОС НА ДРУГУЮ СТРОКУ
vVarCell.OlePropertyGet("Font").OlePropertySet("Name", (WideString)"Times New Roman");
vVarCell.OlePropertySet("HorizontalAlignment",-4131);
vVarCell.OlePropertySet("VerticalAlignment",-4108);
//устанавливаем значение данных
vVarCell.OlePropertySet("Value", (WideString)Form1->ATS_Otch->FieldByName("Text")->AsString.c_str());

Но проблема в то, что данные (большой массив) выводятся в объединенные ячейки, но они не переносятся на другую строку (т.е. ячейка не расширяется).

@volvo · 05.06.2018, 16:46

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

но они не переносятся на другую строку

А должны?

У меня вот так:

, причем даже если я то же самое делаю средствами Excel-я - то получается точно так же, еще выше ячейка не становится, чтобы вместить в себя всю строку.

@Within_t · 05.06.2018, 17:09 **[ТС]**

Т.е. я правильно Вас понял, что высота ячейки не изменится при объедененных ячейках?

Если же в одну ячейку, то все прекрасно

@volvo · 05.06.2018, 17:55

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

высота ячейки не изменится при объедененных ячейках?

Именно.

You cannot use the AutoFit feature for rows or columns that contain merged cells in Excel

@Within_t · 05.06.2018, 18:32 **[ТС]**

Спасибо за совет)))

Тут только такой выход: посмотреть сколько символов вмещается в заданный диапазон (m), длину самой строки/m = количество строк (n)

C++
1
2
3
String temp = "A1:B"+n
vVarCell=vVarSheet.OlePropertyGet("Range", (WideString)temp.c_dtr());
vVarCell.OleProcedure("Merge");

Если есть еще какие нибудь советы, я во внимании)))

Добавлено через 10 минут
*либо n*умножить на высоту ячейки

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@Within_t 34 / 21 / 11 Регистрация: 20.10.2013 Сообщений: 577
	05.06.2018, 17:09 [ТС]
	Т.е. я правильно Вас понял, что высота ячейки не изменится при объедененных ячейках? Если же в одну ячейку, то все прекрасно 0