Работа с таблицами Excel

@Tiva · Регистрация: 25.04.2012

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

есть вот такая таблица

https://docs.google.com/spread... rue#gid=12

надо как-то автоматически загнать значения из таблицы в обычный двумерный массив. брать надо только целые значения(например c14 д14 и тд)

нашел либу для xlsx, например вот такую
http://www.libxl.com/
но как-то не очень хочется вникать в это все
что проще, просто забить всю эту таблицу руками, или все-таки разобраться?
можно пример, как считать из xlsx нужные значения в массив?(этой или любой другой либой)
http://img132.imageshack.us/im... 971954.png
из выделенного нужны только целые значения, 12х6 получается.

я конечно могу переписать всё руками, но как-то надо быть по-умнее

помогите пожалуйста

@vxg · 01.04.2013, 10:22

просто для примера (Borland C++ Builder)

C++
1
2
3
4
5
6
7
8
9
    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 cell = ws.OlePropertyGet("Cells", 1, 1);
    cell.OlePropertySet("Value", 456);
    wb.OleProcedure("Save");
    app.OleProcedure("Quit");

@Владимир_1994 · 02.06.2013, 15:57

Скажите пж, что нужно сделать, чтобы заставить этот код работать в Студии (12)?

@vxg · 03.06.2013, 11:34

Сообщение от Владимир_1994

чтобы заставить этот код работать

в ней он работать не будет ибо это код из Borland C++ Builder. в студии придется самому кувыркаться с IDispatch или интерфейсами вытаскиваемыми прямо из библиотек типов офиса (студии это умеют). сам не пробовал (точнее никогда не добивался что бы оно запустилось) - в студии не работаю. вот из того что получилось применительно к Access (понимаю, это не Excel, но может навеет что-то - весь код рабочий)

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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
// adodb_port_test.cpp : Defines the entry point for the console application.
//
 
#include "stdafx.h"
 
//beg
 
#import "c:\program files\common files\system\ado\msadox.dll"
#import "c:\program files\common files\system\ado\msado25.tlb" rename("EOF", "EndOfFile")
 
void *catalog_create(BSTR connection_string)
{
    ADOX::_CatalogPtr *catalog = 0;
    try
    {
        catalog = new ADOX::_CatalogPtr("ADOX.Catalog");
        (*catalog)->PutActiveConnection(connection_string);
    }
    catch (...)
    {
        delete catalog;
        catalog = 0;
    }
    return catalog;
}
 
void catalog_destroy(void *catalog)
{
    delete (ADOX::_CatalogPtr *)catalog;
}
 
long catalog_get_tables_count(void *catalog)
{
    long res = 0;
    try
    {
        res = (*(ADOX::_CatalogPtr *)catalog)->Tables->Count;
    }
    catch (...)
    {}
    return res;
}
 
bool catalog_get_table_name(void *catalog, long tables_count, BSTR *table_name)
{
    bool res = true;
    ADOX::_CatalogPtr &_catalog = *(ADOX::_CatalogPtr *)catalog;
    try
    {
        for (long i = 0L; i < tables_count; i++)
            table_name[i] = SysAllocString(_catalog->Tables->Item[i]->Name);
    }
    catch (...)
    {
        res = false;
        for (long i = 0L; i < tables_count; i++)
        {
            SysFreeString(table_name[i]);
            table_name[i] = 0;
        }
    }
    return res;
}
 
void *connection_create(BSTR connection_string, BSTR user, BSTR password)
{
    ADODB::_ConnectionPtr *connection = 0;
    try
    {
        connection = new ADODB::_ConnectionPtr("ADODB.Connection");
        (*connection)->Open(connection_string, user, password, ADODB::adConnectUnspecified);
    }
    catch (...)
    {
        delete connection;
        connection = 0;
    }
    return connection;
}
 
void connection_destroy(void *connection)
{
    delete (ADODB::_ConnectionPtr *)connection;
}
 
void *recordset_create_by_table_name(BSTR source, void *connection)
{
    ADODB::_RecordsetPtr *recordset = 0;
    try
    {
        recordset = new ADODB::_RecordsetPtr("ADODB.Recordset");
        (*recordset)->Open(source, ((ADODB::_ConnectionPtr *)connection)->GetInterfacePtr(), ADODB::adOpenForwardOnly, ADODB::adLockReadOnly, ADODB::adCmdTable);
    }
    catch (...)
    {
        delete recordset;
        recordset = 0;
    }
    return recordset;
}
 
void *recordset_create_by_cmd(BSTR source, void *connection)
{
    ADODB::_RecordsetPtr *recordset = 0;
    try
    {
        recordset = new ADODB::_RecordsetPtr("ADODB.Recordset");
        (*recordset)->Open(source, ((ADODB::_ConnectionPtr *)connection)->GetInterfacePtr(), ADODB::adOpenForwardOnly, ADODB::adLockReadOnly, ADODB::adCmdText);
    }
    catch (...)
    {
        delete recordset;
        recordset = 0;
    }
    return recordset;
}
 
void recordset_destroy(void *recordset)
{
    delete (ADODB::_RecordsetPtr *)recordset;
}
 
long recordset_get_fields_count(void *recordset)
{
    long res = 0;
    try
    {
        res = (*(ADODB::_RecordsetPtr *)recordset)->Fields->Count;
    }
    catch (...)
    {}
    return res;
}
 
bool recordset_get_field_name(void *recordset, long fields_count, BSTR *field_name)
{
    bool res = true;
    ADODB::_RecordsetPtr &_recordset = *(ADODB::_RecordsetPtr *)recordset;
    try
    {
        for (long i = 0L; i < fields_count; i++)
            field_name[i] = SysAllocString(_recordset->Fields->Item[i]->Name);
    }
    catch (...)
    {
        res = false;
        for (long i = 0L; i < fields_count; i++)
        {
            SysFreeString(field_name[i]);
            field_name[i] = 0;
        }
    }
    return res;
}
 
bool recordset_eof(void *recordset)
{
    bool res = true;
    try
    {
        res = (*(ADODB::_RecordsetPtr *)recordset)->EndOfFile;
    }
    catch (...)
    {}
    return res;
}
 
bool recordset_move_first(void *recordset)
{
    bool res = true;
    try
    {
        (*(ADODB::_RecordsetPtr *)recordset)->MoveFirst();
    }
    catch (...)
    {
        res = false;
    }
    return res;
}
 
bool recordset_move_next(void *recordset)
{
    bool res = true;
    try
    {
        (*(ADODB::_RecordsetPtr *)recordset)->MoveNext();
    }
    catch (...)
    {
        res = false;
    }
    return res;
}
 
bool recordset_get_field_value(void *recordset, long fields_count, VARIANT *field_value)
{
    bool res = true;
    ADODB::_RecordsetPtr &_recordset = *(ADODB::_RecordsetPtr *)recordset;
    try
    {
        for (long i = 0L; i < fields_count; i++)
            field_value[i] = _recordset->Fields->Item[i]->Value;
    }
    catch (...)
    {
        res = false;
        for (long i = 0L; i < fields_count; i++)
            VariantClear(&field_value[i]);
    }
    return res;
}
 
//end
 
#include <stdio.h>
 
int main(int argc, char* argv[])
{
    CoInitialize(0);
 
    BSTR connection_string = SysAllocString(L"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;");
    BSTR user = SysAllocString(L"");
    BSTR password = SysAllocString(L"");
 
    void *catalog = catalog_create(connection_string);
    long tables_count = catalog_get_tables_count(catalog);
    BSTR *table_name = new BSTR[tables_count];
    for (long i = 0L; i < tables_count; i++)
        table_name[i] = 0;
    catalog_get_table_name(catalog, tables_count, table_name);
 
    printf("tables_count = %li\n", tables_count);
    for (i = 0L; i < tables_count; i++)
        printf("%ls\n", table_name[i]);
    printf("\n");
 
    void *connection = connection_create(connection_string, user, password);
 
    void *recordset = recordset_create_by_table_name(table_name[0L], connection);
    long fields_count = recordset_get_fields_count(recordset);
    BSTR *field_name = new BSTR[fields_count];
    VARIANT *field_value = new VARIANT[fields_count];
    for (i = 0L; i < fields_count; i++)
    {
        field_name[i] = 0;
        VariantInit(&field_value[i]);
    }
    recordset_get_field_name(recordset, fields_count, field_name);
 
    printf("%ls\t", field_name[0L]);
    for (i = 1L; i < fields_count; i++)
        printf("\t%ls", field_name[i]);
    printf("\n");
 
    for (long r = 0L; r < 5L; r++)
    {
        recordset_get_field_value(recordset, fields_count, field_value);
 
        printf("%lf", field_value[0L].dblVal);
        for (long c = 1L; c < fields_count; c++)
        {
            printf("\t%f", field_value[c].fltVal);
        }
        printf("\n");
 
        recordset_move_next(recordset);
    }
 
    recordset_destroy(recordset);
    connection_destroy(connection);
    catalog_destroy(catalog);
 
    CoUninitialize();
 
    system("pause");
 
    return 0;
}

@Владимир_1994 · 03.06.2013, 15:40

Насколько я понимаю, C++ один для любого компилятора и в студии можно заставить работать любой код из билдера, главное подключить то что надо.

@vxg · 03.06.2013, 22:48

Сообщение от Владимир_1994

в студии можно заставить работать любой код из билдера

но только не тот который содержит типы специфичные для билдера, например, из библиотеки VCL. или расширения языка вроде __properties

04.06.2013, 22:20

Здравствуйте дорогие программисты) Помогите пожалуйста. У меня задана эпициклоида с 4мя лепестками, а при построении получается только два. Что там нужно сделать в Excel чтобы получить все 4 лепестка?

@vxg · 05.06.2013, 23:01

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

Что там нужно сделать в Excel

очевидно расширить интервал параметра от которого строится функция. а какое это имеет отношение к COM

?

@Степан_888 · 05.10.2017, 05:08

vxg, Скажите, скопировал ваш код и запустил. На этапе компиляции долго думает и в по итогу не отвечает. Скажите, в чем может быть проблема?

И скажите, как мне запихнуть данные с RichEdit'а в столбец "B" таблицы Excel? Благодарю за ответы.

@vxg · 05.10.2017, 06:43

Степан_888, код рабочий. Если долго думает значит есть над чем, а вот если не отвечает значит болен) без сообщений компилятора сложно подсказать в чем может быть проблема.
Если у вас VC то по аналогии с тем что выше либо в лоб по аналогии с этим https://www.cyberforum.ru/com-... st10123237
Если у вас Builder то по аналогии с https://www.cyberforum.ru/com-... ost7603555

@Степан_888 · 13.10.2017, 08:33

vxg, Открыл учебник "Работа с OLE-сервером Excel". По инструкции написал код. Выдает ошибку. Не могу понять в чем дело

Поможете?

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include      <ComObj.hpp>
#include      <utilcls.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Variant  vVarApp,vVarBooks,vVarBook,
         vVarSheets,vVarSheet,vVarCell;
         bool fStart;
 
 if(fStart) vVarApp.OleProcedure("Quit");
 Close();
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant  vVarApp,vVarBooks,vVarBook,
         vVarSheets,vVarSheet,vVarCell;
         bool fStart;
 
Variant v;
 if(!fStart)
 {
  try
  {
   vVarApp=CreateOleObject("Excel.Application");
   fStart=true;
  }
  catch(...)
  {
   MessageBox(0, "Ошибка при открытии сервера Excel", 
                 "Ошибка", MB_OK);
  return;
  }
 }
vVarApp.OlePropertySet("Visible",true);
vVarBooks=vVarApp.OlePropertyGet("Workbooks");
vVarApp.OlePropertySet("SheetsInNewWorkbook",3);
vVarBooks.OleProcedure("Add");
vVarApp.OlePropertySet("SheetsInNewWorkbook",5);
vVarBooks.OleProcedure("Add");
vVarBook=vVarBooks.OlePropertyGet("Item",1);
vVarSheets=vVarBook.OlePropertyGet("Worksheets") ;        
}
//---------------------------------------------------------------------------

@vxg · 13.10.2017, 08:44

Степан_888, отродясь не видал такой ошибки. Попробуйте без фанатизма выполнить кусок РАБОТАЮЩЕГО кода а потом переходите к исследованию неизведанного

@Степан_888 · 13.10.2017, 08:56

vxg, Использую код предложенный выше. Стопроцентного работающего кода практически нигде не возьмешь, да и не зачем хочется самому разобраться да потом помогать таким как я

Взял следующее:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Variant  vVarApp,vVarBooks,vVarBook,
         vVarSheets,vVarSheet,vVarCell;
         bool fStart;
    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 cell = ws.OlePropertyGet("Cells", 1, 1);
    cell.OlePropertySet("Value", 456);
    wb.OleProcedure("Save");
    app.OleProcedure("Quit");
}

Показывает слудующее (см.скриншот).

@vxg · 13.10.2017, 18:05

Степан_888, файл то есть?

@Степан_888 · 14.10.2017, 02:24

vxg, Спасибо. Ошибка вызвана с некорректной версией Builder

Установил другую версию, Excel поднялся

Новые блоги и статьи Все статьи Все блоги /
Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Сложность Колмогорова: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .

@Tiva 96 / 96 / 21 Регистрация: 25.04.2012 Сообщений: 449

	Работа с таблицами Excel 30.03.2013, 12:17. Показов 13949. Ответов 14 Метки нет (Все метки) есть вот такая таблица https://docs.google.com/spread... rue#gid=12 надо как-то автоматически загнать значения из таблицы в обычный двумерный массив. брать надо только целые значения(например c14 д14 и тд) нашел либу для xlsx, например вот такую http://www.libxl.com/ но как-то не очень хочется вникать в это все что проще, просто забить всю эту таблицу руками, или все-таки разобраться? можно пример, как считать из xlsx нужные значения в массив?(этой или любой другой либой) http://img132.imageshack.us/im... 971954.png из выделенного нужны только целые значения, 12х6 получается. я конечно могу переписать всё руками, но как-то надо быть по-умнее помогите пожалуйста 0

@Владимир_1994 2 / 2 / 0 Регистрация: 19.05.2013 Сообщений: 27
	02.06.2013, 15:57
	Скажите пж, что нужно сделать, чтобы заставить этот код работать в Студии (12)? 0

@Владимир_1994 2 / 2 / 0 Регистрация: 19.05.2013 Сообщений: 27
	03.06.2013, 15:40
	Насколько я понимаю, C++ один для любого компилятора и в студии можно заставить работать любой код из билдера, главное подключить то что надо. 0

@vxg Модератор 3401 / 2172 / 353 Регистрация: 13.01.2012 Сообщений: 8,429
	03.06.2013, 22:48
	Сообщение от Владимир_1994 в студии можно заставить работать любой код из билдера но только не тот который содержит типы специфичные для билдера, например, из библиотеки VCL. или расширения языка вроде __properties 0

LittleIze
	04.06.2013, 22:20
	Здравствуйте дорогие программисты) Помогите пожалуйста. У меня задана эпициклоида с 4мя лепестками, а при построении получается только два. Что там нужно сделать в Excel чтобы получить все 4 лепестка?

@vxg Модератор 3401 / 2172 / 353 Регистрация: 13.01.2012 Сообщений: 8,429
	05.06.2013, 23:01
	Сообщение от LittleIze Что там нужно сделать в Excel очевидно расширить интервал параметра от которого строится функция. а какое это имеет отношение к COM ? 0

@Степан_888 1 / 1 / 1 Регистрация: 07.04.2016 Сообщений: 243
	05.10.2017, 05:08
	vxg, Скажите, скопировал ваш код и запустил. На этапе компиляции долго думает и в по итогу не отвечает. Скажите, в чем может быть проблема? И скажите, как мне запихнуть данные с RichEdit'а в столбец "B" таблицы Excel? Благодарю за ответы. 0

@vxg Модератор 3401 / 2172 / 353 Регистрация: 13.01.2012 Сообщений: 8,429
	05.10.2017, 06:43
	Степан_888, код рабочий. Если долго думает значит есть над чем, а вот если не отвечает значит болен) без сообщений компилятора сложно подсказать в чем может быть проблема. Если у вас VC то по аналогии с тем что выше либо в лоб по аналогии с этим https://www.cyberforum.ru/com-... st10123237 Если у вас Builder то по аналогии с https://www.cyberforum.ru/com-... ost7603555 0

@vxg Модератор 3401 / 2172 / 353 Регистрация: 13.01.2012 Сообщений: 8,429
	13.10.2017, 08:44
	Степан_888, отродясь не видал такой ошибки. Попробуйте без фанатизма выполнить кусок РАБОТАЮЩЕГО кода а потом переходите к исследованию неизведанного 0

@vxg Модератор 3401 / 2172 / 353 Регистрация: 13.01.2012 Сообщений: 8,429
	13.10.2017, 18:05
	Степан_888, файл то есть? 0

Опции темы

@Степан_888 1 / 1 / 1 Регистрация: 07.04.2016 Сообщений: 243
	14.10.2017, 02:24
	vxg, Спасибо. Ошибка вызвана с некорректной версией Builder Установил другую версию, Excel поднялся 1