Чтение/запись в Excel с COM OLE C++

@Optimus11 · Регистрация: 10.01.2017

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

Здравствуйте,

Подскажите пожалуйста, есть ли у кого пример кода чтения и записи данных из/в откртый ексель файл с помощью COM/OLE на чистом С++.

Есть микрософтовский пример:
https://support.microsoft.com/... -or-import

Он создает ексель файл и записывает в него данные, но как записать данные в уже открытый ексель, как этот ексель файл отловить, такого примера нет, а доработать/изменить микрософтовский примера под свою задачу, для меня на данный момент, к сожалению совершенно не возможно, настолько там все сложно.

Может кто нибудь делал нечто подобное.

@Optimus11 · 22.02.2019, 20:18 **[ТС]**

Простым опытным путем выяснил, что:

C++
1
2
3
4
5
//Get value from the range
    VARIANT rngResult;
    AutoWrap(DISPATCH_PROPERTYGET, &rngResult, pXlRange, (LPOLESTR)L"Value", 0);
 
        BYTE ival_byte = rngResult.bVal;

Не знаю, что за значение выдает этот BYTE, но, если формат ячейки ексель чисто текстовый, то если ival_byte вывести в консоль, то выдается "М", числовой же формат, общий или процентный, выдает пустое поле, то есть по идее можно было бы определять текстовый ли формат в ячейке или нет, простым условием:

C++
1
2
3
4
if (ival_byte == "M")
    {
        cout << "ival_byte = M"<<endl;
    }

Но тут ошибка, которую пока что не могу понять - "несовместимые типы операндов (BYTE и const char*)", то есть понятно уже, что их нельзя сравнивать, вопрос в том, как все таки можно их сравнить правильно ?

@vxg · 22.02.2019, 20:23

Optimus11, способ плохой. Сделайте то что хотите в VBA - там можно и список функций и свойств посмотреть и справку по ним почитать - потом перенесите в C++

@Optimus11 · 22.02.2019, 20:29 **[ТС]**

Прошу прощение, решил самым простым способом:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Get value from the range
    VARIANT rngResult;
    AutoWrap(DISPATCH_PROPERTYGET, &rngResult, pXlRange, (LPOLESTR)L"Value", 0);
 
        BYTE ival_byte = rngResult.bVal;
 
        bool I_byte = ival_byte;
 
    cout << "bool:" << I_byte << endl;
 
    if (I_byte == 1)
    {
        cout << "CEll Excel = text"<<endl;
    }

2)А как код VBA перенести в C++ ? Это же совершенно разный код ?

PS: Мне смотреть формат ячейки ексель нужно для того, что, когда я "читаю" значения из екселя в виде текста BSTR и если в этот момент в ясейке ексель находится не текст, а число, то происходит краш приложения, поэтому и хочу опредеять формат ячейки, если текстовый, то применять BSTR, если числовой, то LONG, а потом уже ковентировать в string/

@vxg · 23.02.2019, 21:09

Optimus11, еще раз - это плохой способ - просто потому что значение хранимое в ячейке это совсем не формат ячейки. как быть?
1) запускаете Excel
2) включаете запись макроса
3) делаете нужные вам действия, например, устанавливаете формат ячейки в текстовый
4) выключаете запись макроса
5) идете в VBA (Alt + F11), открываете модуль в который записался макрос и читаете его содержимое, у меня оно примерно такое:

Visual Basic
1
2
    Range("E7").Select
    Selection.NumberFormat = "@"

что это означает? это означает что мы выделили ячейку и установили ее свойство NumberFormat. очевидно если мы хотим узнать что там за формат мы должны прочесть это свойство. так же очевидно, что у этого свойства есть некие значения соответствующие неким понимаемым человеком форматам. попробуем выделить слово NumberFormat и нажать F1 - видим справку и кое-какие пояснения о форматах. однако, справка сейчас совсем не та что была раньше - то ли сказывается падение уровня образования пользователей в результате которого справку вынуждены оглуплять то ли просто ее отрефакторили криворукие уроды. возможно придется вбить слово NumberFormat в поиск и почитать что пишут об этом продвинутые пользователи. в общих словах в NumberFormat хранится VARIANT в котором сидит текст-маска в том виде в каком мы его видим когда выбираем один из форматов.

Добавлено через 1 час 25 минут
Optimus11, если проблема именно в том что не понятно что лежит в ячейке то можно поступать как то так

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
            if (V_VT(&v) == VT_R8) //в ячейке значение типа VT_R8 типичного для вычислений в Excel
            {
                double x = V_R8(&v);
                //делаем что-то с x...
            }
            else if (V_VT(&v) == VT_BSTR) //в ячейке текст
            {
                BSTR x = V_BSTR(&v);
                //делаем что-то с x...
            }
            else //в ячейке что-то ужасное - пытаемся получить из этого текст
            {
                VARIANT tmp;
                VariantInit(&tmp);
 
                HRESULT hr = VariantChangeType(&tmp, &v, 0, VT_BSTR);
                if (hr != S_OK)
                {
                    //не вышло
                }
                else
                {
                    BSTR x = V_BSTR(&tmp);
                    //делаем что-то с x...
                }
 
                VariantClear(&tmp);
            }

@Optimus11 · 27.02.2019, 21:29 **[ТС]**

vxg, Огромное спасибо! Это прям, то что нужно.

@Optimus11 · 05.03.2019, 19:38 **[ТС]**

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

Есть из msdn`овского примера, вот эти строки:

C++
1
2
3
4
5
6
7
8
// Get ActiveSheet object
    IDispatch *pXlSheet;
    {
    VARIANT result;
    VariantInit(&result);
    AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, (LPOLESTR)L"ActiveSheet", 0);//ActiveSheet
    pXlSheet = result.pdispVal;
    }

То есть результат выполнения этого кусочка кода pXlSheet = result.pdispVal и есть имя листа, но только активного.

Но, какая строка в autowrape, куда все эти параметры передаются, может отвечать за выбор нужно листа, а не активного, что то вообще ни как не могу понять.

@Optimus11 · 06.03.2019, 13:23 **[ТС]**

Решено добавлением еще одно параметра в AutoWrap:

C++
1
2
3
4
5
6
7
8
// Get ActiveSheet object
    IDispatch *pXlSheet;
    {
    VARIANT result;
    VariantInit(&result);
    AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, (LPOLESTR)L"ActiveSheet", 0, [B]Name_sheet[/B]);//ActiveSheet
    pXlSheet = result.pdispVal;
    }

Где Name_sheet - соотвесвенно имя нужного листа. И все работает!
Но, я совершенно не понимаю, как это работает.
Autowrap - это функция, которая, если я правильно понимаю принимает в себя 5 параметров, но если смотреть, то Name_sheet - это 6ой параметр, как он туда тогда передается ?:

C++
1
2
3
4
HRESULT AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp, LPOLESTR ptName, int cArgs...)
{
...код...
}

@vxg · 06.03.2019, 18:17

Optimus11, есть такая штука «функции с переменным количеством аргументов»

@vxg · 09.03.2019, 08:02

Optimus11

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
#define BREAK_ON_FAIL(x) if (FAILED(hr = x)) break;
 
...
 
struct xls_t
{
    VARIANT app;
    VARIANT wbs;
    VARIANT wb;
    VARIANT wss;
    VARIANT ws;
};
 
HRESULT proc_beg(const std::string &path, xls_t * const xls, bool visible)
{
    HRESULT hr;
 
    VARIANT x;
    VARIANT _path;
 
    VariantInit(&xls->app);
    VariantInit(&xls->wbs);
    VariantInit(&xls->wb);
    VariantInit(&_path);
    VariantInit(&xls->wss);
    VariantInit(&xls->ws);
 
    while (true) {
 
    CoInitialize(NULL);
 
    CLSID clsid;
    BREAK_ON_FAIL(CLSIDFromProgID(L"Excel.Application", &clsid))
 
    xls->app.vt = VT_DISPATCH;
    xls->app.pdispVal = 0;
    BREAK_ON_FAIL(CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&xls->app.pdispVal))
 
    x.vt = VT_I4;
    x.lVal = visible;
    BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYPUT, NULL, xls->app.pdispVal, L"Visible", 1, x))
 
    BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYGET, &xls->wbs, xls->app.pdispVal, L"Workbooks", 0))
 
    if (path.size())
    {
        _path.vt = VT_BSTR;
        _path.bstrVal = SysAllocString(str_to_wstr(path).c_str());
        BREAK_ON_FAIL(AutoWrap(DISPATCH_METHOD, &xls->wb, xls->wbs.pdispVal, L"Open", 1, _path))
        VariantClear(&_path);
    }
    else
    {
        BREAK_ON_FAIL(AutoWrap(DISPATCH_METHOD, &xls->wb, xls->wbs.pdispVal, L"Add", 0))
    }
 
    BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYGET, &xls->wss, xls->wb.pdispVal, L"Worksheets", 0))
 
    x.lVal = 1;
    BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYGET, &xls->ws, xls->wss.pdispVal, L"Item", 1, x))
 
    break;}
 
    return hr;
}
 
HRESULT proc_end(HRESULT hr, xls_t * const xls, bool save, bool close)
{
    if (!FAILED(hr))
    {
        while (true) {
 
        if (save)
        {
            BREAK_ON_FAIL(AutoWrap(DISPATCH_METHOD, NULL, xls->wb.pdispVal, L"Save", 0))
        }
 
        if (close)
        {
            BREAK_ON_FAIL(AutoWrap(DISPATCH_METHOD, NULL, xls->wb.pdispVal, L"Close", 0))
        }
 
        break;}
    }
 
    VariantClear(&xls->app);
    VariantClear(&xls->wbs);
    VariantClear(&xls->wb);
    VariantClear(&xls->wss);
    VariantClear(&xls->ws);
 
    return hr;
}
 
HRESULT set_ws_no(xls_t * const xls, int no)
{
    HRESULT hr;
 
    VARIANT x;
 
    while (true) {
 
    x.vt = VT_I4;
    x.lVal = no;
    BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYGET, &xls->ws, xls->wss.pdispVal, L"Item", 1, x))
 
    break;}
 
    return hr;
}

@Optimus11 · 18.01.2020, 08:59 **[ТС]**

Здравствуйте,

Подскажите пожалуйста, вот есть к примеру:

C++
1
string data = "Hello";

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

Но вопрос в другом, вот теперь есть к примеру:

C++
1
string data_unicode = u8"思";

То есть в string уже записывается не один байт информации под символ, а в данном случае три байта, соотвесвенно я все той же оберткой COM из записываю в ячейку ексель, НО ексель их воспринимает, как отдельные три символа в ascii кодировки видимо.

И вот вопрос, как сказать екселю, чтобы он данный ему массив data_unicode.c_str() - воспринимал как набор байт юникода и преобразовывал в символы юникод, а не по умолчанию в ascii ?

@oleg-m1973 · 18.01.2020, 11:12

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

Но вопрос в другом, вот теперь есть к примеру:
string data_unicode = u8"思";

Это не юникод, это utf-8, немного разные вещи. Юникод-строка делается так

C++
1
std::wstring data_unicode = L"思";

И - excel работает только с юникодом.

@Optimus11 · 18.01.2020, 11:25 **[ТС]**

Сообщение от oleg-m1973

Это не юникод, это utf-8, немного разные вещи. Юникод-строка делается так

C++
1
std::wstring data_unicode = L"思";

Насколько я понимаю юникод - это стандарт, а utf8 и utf16 его кодированные представления.
И буковка L если я правильно понимаю преобразует ascii символ или строку в utf16.

Сообщение от oleg-m1973

И - excel работает только с юникодом.

Позвольте пожалуйста немного переформулировать вопрос:

Есть текстовый txt документ , в нем соотвесвенно ест текст в кодировке utf8, я его считывают getline'ом в string, и с помощью обертки COM записываю в ексель, но записываются абракадабры. Вопрос как записать тонда чтобы были нормальные символы ?

@oleg-m1973 · 18.01.2020, 11:41

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

И буковка L если я правильно понимаю преобразует ascii символ или строку в utf16.

Именно это буковка тебе и нужна, при работе с BSTR.

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

Есть текстовый txt документ , в нем соотвесвенно ест текст в кодировке utf8, я его считывают getline'ом в string, и с помощью обертки COM записываю в ексель, но записываются абракадабры. Вопрос как записать тонда чтобы были нормальные символы ?

Воспользуйся либо MultiByteToWideChar , CP_UTF8

Добавлено через 2 минуты
В общем, там надо будет по-любому конвертировать в юникод-строку, BSTR.

@Optimus11 · 18.01.2020, 11:51 **[ТС]**

Сообщение от oleg-m1973

Воспользуйся либо MultiByteToWideChar , CP_UTF8

Если я правильно понимаю, то MultiByteToWideChar преобразует символ из одной кодировки в другую. Если так, то эта функция мне не нужна, так как в текстовом файле симвооы уже в ножной utf8 кодировке.

@oleg-m1973 · 18.01.2020, 15:35

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

Если я правильно понимаю, то MultiByteToWideChar преобразует символ из одной кодировки в другую. Если так, то эта функция мне не нужна, так как в текстовом файле симвооы уже в ножной utf8 кодировке.

Нужной кому?
Она преобразовывает именно в то, что нужно передавать в excel. Или тебе не это надо?

@Optimus11 · 18.01.2020, 15:56 **[ТС]**

Сообщение от oleg-m1973

Нужной кому?
Она преобразовывает именно в то, что нужно передавать в excel. Или тебе не это надо?

Я сам запутался уже

Я не совсем тогда понимаю, как это функция работает, как я понял на вход она принимает массив чаров в стиле строки Си, а на выходе то, что она выдает ?

@oleg-m1973 · 18.01.2020, 16:11

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

Я не совсем тогда понимаю, как это функция работает, как я понял на вход она принимает массив чаров в стиле строки Си, а на выходе то, что она выдает ?

На выходе выдаёт юникод-строку, utf-16.

C++
1
2
3
4
5
6
7
8
        setlocale(LC_ALL, "Russian");
        const char8_t s[] = u8"111фывапролФЫВАПРОЛ";
        wchar_t buf[1024];
        const auto res = ::MultiByteToWideChar(CP_UTF8, 0, (LPCCH)s, std::size(s), buf, std::size(buf));
        std::wcout << buf << std::endl;
 
        BSTR s2 = ::SysAllocString(buf); //Ready to send to excel
        std::wcout << s2 << std::endl;

Я правильно понимаю, что у тебя файл в utf-8?

@Optimus11 · 18.01.2020, 17:43 **[ТС]**

Сообщение от oleg-m1973

Я правильно понимаю, что у тебя файл в utf-8?

Да.

@Optimus11 · 23.01.2020, 21:34 **[ТС]**

Спасибо!
Все это работает, но я уже голову сломал, не могу, откудато в появляется после преобразованного чимвола мусор. Причем муссор появляется не в буффере, потому как его размер просто ограничен ровно тем каюоличеством, которые нудны по сисвол utf16.
Мусор появляется уже в екселе почему то.

@oleg-m1973 · 23.01.2020, 21:39

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

Все это работает, но я уже голову сломал, не могу, откудато в появляется после преобразованного чимвола мусор. Причем муссор появляется не в буффере, потому как его размер просто ограничен ровно тем каюоличеством, которые нудны по сисвол utf16.
Мусор появляется уже в екселе почему то.

Скорее всего, BSTR неправильно создаёшь. Покажи код.

Новые блоги и статьи Все статьи Все блоги /
Теория всего 6. Судьба неотвратима? anaschu 21.07.2026 Математическое доказательство Судьбы: Точка бифуркации в едином тензорном ядре Модели ВсегоСвежее обновление питоновского ядра «Soil Chemistry 2. 0» дало нам неопровержимое математическое. . .	Теория всего 5. ядро Теории Всего: Математический изоморфизм репликаторов и иллюзия свободы воли anaschu 21.07.2026 Единое ядро Теории Всего: Математический изоморфизм репликаторов и иллюзия свободы воли Главная задача «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы» (аттракторов. . .	сукцессия 37. Внедрил дипсик в свой оркестр из ИИ. У него закончилось пространство чата, потому опубликую выводы из его работы здесь anaschu 21.07.2026 ==================================================================== КОНТЕКСТ: Моделирование микоризной сукцессии (AM → ECM) ==================================================================== . . .	сукцессия 36. Делаю прогоны модели около порога бифуркации (превращения эндо микоризы в экто микоризу) anaschu 21.07.2026 СУКЦЕССИЯ МИКОРИЗ: КАК МАТЕМАТИКА ОБЪЯСНЯЕТ ПОДЗЕМНУЮ ВОЙНУ Мы привыкли думать, что лес — это деревья. А грибы — это то, что мы собираем в корзинку осенью. Но если заглянуть под землю, окажется,. . .
ИИ и человечность kumehtar 21.07.2026 Забавно, что общаясь с ИИ, я замечаю, насколько он высказывается умно, и насколько верит в людей. Он умеет прощать. Он знает как отвечать не обесценивая опыт других людей, даже если сам не верит. Он. . .	Нейтральные знания ..., ... чистая наука. Пока что-то проходит модерацию на Хабре, стоит развить мысль ... Hrethgir 20.07.2026 К таким радикальным взглядам я конечно в той публикации не приходил, но чтобы скоротать вечер, решил углубиться немного. 1. Почему показания термометра заряжены целью? Цель заложена в самом. . .	Установка нескольких штампов электронной подписи в строго определенных местах файла docx ВладимирСамохин 19.07.2026 (В!) Работа с Электронной подписью - это неотъемлемая часть современного документооборота. Но что делать, если нужно поставить несколько штампов электронной подписи в строго определенных местах. . .	сукцессия 35. Научная статья о проделанной работе anaschu 19.07.2026 Написал в формате латекс и пдф

Чтение/запись в Excel с COM OLE C++

Решение

Решение

@Optimus11 -41 / 49 / 5 Регистрация: 10.01.2017 Сообщений: 1,915

	Чтение/запись в Excel с COM OLE C++ 24.01.2019, 21:21. Показов 59981. Ответов 71 Метки нет (Все метки) Здравствуйте, Подскажите пожалуйста, есть ли у кого пример кода чтения и записи данных из/в откртый ексель файл с помощью COM/OLE на чистом С++. Есть микрософтовский пример: https://support.microsoft.com/... -or-import Он создает ексель файл и записывает в него данные, но как записать данные в уже открытый ексель, как этот ексель файл отловить, такого примера нет, а доработать/изменить микрософтовский примера под свою задачу, для меня на данный момент, к сожалению совершенно не возможно, настолько там все сложно. Может кто нибудь делал нечто подобное. 0

@vxg Модератор 3410 / 2182 / 354 Регистрация: 13.01.2012 Сообщений: 8,469
	22.02.2019, 20:23
	Optimus11, способ плохой. Сделайте то что хотите в VBA - там можно и список функций и свойств посмотреть и справку по ним почитать - потом перенесите в C++ 0

@Optimus11 -41 / 49 / 5 Регистрация: 10.01.2017 Сообщений: 1,915
	27.02.2019, 21:29 [ТС]
	vxg, Огромное спасибо! Это прям, то что нужно. 0

@vxg Модератор 3410 / 2182 / 354 Регистрация: 13.01.2012 Сообщений: 8,469
	06.03.2019, 18:17
	Optimus11, есть такая штука «функции с переменным количеством аргументов» 0

@Optimus11 -41 / 49 / 5 Регистрация: 10.01.2017 Сообщений: 1,915
	23.01.2020, 21:34 [ТС]
	Спасибо! Все это работает, но я уже голову сломал, не могу, откудато в появляется после преобразованного чимвола мусор. Причем муссор появляется не в буффере, потому как его размер просто ограничен ровно тем каюоличеством, которые нудны по сисвол utf16. Мусор появляется уже в екселе почему то. 0