87 / 0 / 0
Регистрация: 15.04.2016
Сообщений: 4

Задание диапазона ячеек при объединении (OLE-сервер Excel)

15.04.2016, 12:08. Показов 2522. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый день. Столкнулась с такой проблемой: при работе с OLE-сервером Excel, при задании диапазона объединения ячеек, появилась необходимость задавать его не конкретным значением, а переменной .
Т.е. когда пишу так:

C++
1
2
App.OlePropertyGet("Range",  WideString("A9:J9")).OleProcedure("Select"); 
App.OlePropertyGet("Selection").OleProcedure("Merge");
Программа отлично все отрабатывает. Но если задать диапазон переменной:

C++
1
2
3
4
5
6
WideString range_merging;
int row_print;
range_merging="A"+row_print;
range_merging+=":J"+row_print;
App.OlePropertyGet("Range",  WideString(range_merging)).OleProcedure("Select"); 
App.OlePropertyGet("Selection").OleProcedure("Merge");
Выдает ошибку (см. вложение)

Скажите, может, есть ошибка в коде или другой метод объединения ячеек. Впервые столкнулась с OLE-сервером, поэтому пока приходится методом проб и ошибок решать все вопросы. Очень буду благодарна за помощь.
Миниатюры
Задание диапазона ячеек при объединении (OLE-сервер Excel)  
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
15.04.2016, 12:08
Ответы с готовыми решениями:

Error 438 при объединении ячеек
Добрый день! прошу помощи!! пишу такой код objdoc.range(objdoc.tables(n_d * 2 + 2).Cell(n_i + 3, 1).range.start, _ ...

При объединении ячеек в первой строке растягиваются ячейки во второй, но не те
Есть таблица из двух строк, в первой строке все ячейки объединены, а во второй строке есть 4 ячейки. Если в первой строке много текста,...

При объединении документов word не переносит данные из ячеек exel
При слиянии документа в word не полностью переносит текст из ячейки exel

6
Модератор
 Аватар для vxg
3406 / 2177 / 354
Регистрация: 13.01.2012
Сообщений: 8,442
15.04.2016, 14:13
Цитата Сообщение от Heleniya Посмотреть сообщение
Но если задать диапазон переменной
а вы задали эту самую переменную? что то я не вижу значения у row_print или это просто эскиз?

Добавлено через 34 секунды
и "А" вместо L"А" оно нормально воспринимает?
0
87 / 0 / 0
Регистрация: 15.04.2016
Сообщений: 4
15.04.2016, 14:34  [ТС]
Цитата Сообщение от vxg Посмотреть сообщение
а вы задали эту самую переменную? что то я не вижу значения у row_print или это просто эскиз?
Да, это просто эскиз, эта переменная задается в цикле.
Цитата Сообщение от vxg Посмотреть сообщение
и "А" вместо L"А" оно нормально воспринимает?
да все проходит без проблем, Borland C++Builder 5 у меня воспринимает именно такую форму, в 6 только L"A".
0
Модератор
 Аватар для vxg
3406 / 2177 / 354
Регистрация: 13.01.2012
Сообщений: 8,442
15.04.2016, 17:49
Цитата Сообщение от Heleniya Посмотреть сообщение
Выдает ошибку
у меня все работает
C++
1
2
3
4
5
6
7
8
9
10
    Variant app = CreateOleObject("Excel.Application");
    Variant wbs = app.OlePropertyGet("Workbooks");
    Variant wb = wbs.OleFunction("Open", "C:\\test.xls");
    Variant wss = wb.OlePropertyGet("Worksheets");
    Variant ws = wss.OlePropertyGet("Item", 1);
    Variant r = ws.OlePropertyGet("Range", WideString("A1:J2"));
    r.OleProcedure("Select");
    app.OlePropertyGet("Selection").OleProcedure("Merge");
    wb.OleProcedure("Save");
    app.OleProcedure("Quit");
0
87 / 0 / 0
Регистрация: 15.04.2016
Сообщений: 4
15.04.2016, 20:25  [ТС]
Цитата Сообщение от vxg Посмотреть сообщение
у меня все работает
У меня тоже данный пример работает, но Вы задаете конкретный диапазон ("A1:J2"). Суть моего вопроса как раз в том, что бы задать этот конкретный диапазон переменной. Так как мне необходимо объединять заранее неизвестные номера ячеек.
0
Модератор
 Аватар для vxg
3406 / 2177 / 354
Регистрация: 13.01.2012
Сообщений: 8,442
16.04.2016, 11:39
Лучший ответ Сообщение было отмечено Heleniya как решение

Решение

C++
1
int x = 1; int y = 2; AnsiString s = "A" + IntToStr(x) + ":J" + IntToStr(y);
так чтоли?
1
87 / 0 / 0
Регистрация: 15.04.2016
Сообщений: 4
18.04.2016, 07:09  [ТС]
vxg, спасибо большое, все заработало)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.04.2016, 07:09
Помогаю со студенческими работами здесь

При объединении Excel файлов исчезают строки
Нужно написать маленькую программку для объединения xlsx-файлов (каждый файл помещается в отдельную книгу нового документа). Всё работает...

Получение диапазона ячеек из excel файла
Excel.Application xlApp; Excel.Workbook xlWorkBook; Excel.Worksheet xlWorkSheet; Excel.Range...

Копирование диапазона ячеек из Excel в Word
Приветствую. Уважаемые, столкнулся с проблемой копированя диапазона ячеек из Excel в Word. Имеется лист Экселя который...

OLE-сервер Excel. Builder c++
Всем добрый вечер работаю с Ole сервер Excel есть код: //создание объекта Excel.Application if(!fStart) { try { ...

OLE-сервер Excel в XE7
Пишу проект в C++ Builder XE7 . В конце решил сделать отчет через Excel. Начал изучать как это делается. В C++ Builder 6 учился и у меня...


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

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

Новые блоги и статьи
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
PowerShell Snippets
iNNOKENTIY21 11.11.2025
Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru