Работа с таблицами 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++

    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++

// 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++

//---------------------------------------------------------------------------
 
#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++

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 поднялся

Новые блоги и статьи
Из чего и как собрать свой домашний кинотеатр bt_guru 21.01.2025 Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .	Ошибки стиральных машин bt_guru 21.01.2025 Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .	Копирование (маппинг) объектов в JavaScript bytestream 21.01.2025 В современной разработке программного обеспечения копирование объектов представляет собой фундаментальную операцию, которая требует особого внимания и понимания. Маппинг объектов в JavaScript – это. . .	Как работать с Apache Kafka в C# .NET bytestream 21.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки больших объемов информации в реальном времени. Эта система,. . .	Как использовать RabbitMQ в C# .NET bytestream 21.01.2025 RabbitMQ представляет собой мощный брокер сообщений, который эффективно решает эту задачу, обеспечивая надежную передачу данных между множеством приложений. Этот инструмент реализует протокол AMQP. . .	Как объединить последние коммиты в Git bytestream 21.01.2025 В мире разработки программного обеспечения система контроля версий Git стала незаменимым инструментом для управления исходным кодом. Одной из наиболее полезных, но порой сложных для освоения функций. . .
Как запушить новую локальную ветку (branch) в удалённый репозиторий Git и отслеживать её bytestream 21.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемым инструментом для эффективного управления кодом и организации командной работы. Одной из ключевых. . .	Как создать директорию и все родительские директории, указанные в пути, с помощью Python bytestream 21.01.2025 Python предоставляет мощные инструменты для работы с файловой системой через встроенные модули os и pathlib, которые значительно упрощают процесс манипуляции директориями. Эти модули содержат. . .	Как работать с массивами в JavaScript bytestream 21.01.2025 Массивы в JavaScript представляют собой один из фундаментальных типов данных, который позволяет хранить упорядоченные коллекции различных элементов в одной переменной. Эта структура данных является. . .	Какая максимальная длина адреса (URL) в различных браузерах и стандартах bytestream 21.01.2025 В современном мире интернет-технологий URL-адреса (Uniform Resource Locator) играют фундаментальную роль в функционировании веб-пространства. Эти уникальные идентификаторы ресурсов стали неотъемлемой. . .	Как сбросить локальный репозиторий до состояния удалённого репозитория Git bytestream 21.01.2025 При разработке программного обеспечения с использованием системы контроля версий Git разработчики часто сталкиваются с необходимостью синхронизации локального и удаленного репозиториев. Данная задача. . .	Как запретить подсветку выделенного текста с помощью CSS bytestream 20.01.2025 Подсветка текста при выделении является стандартным поведением браузера, которое не всегда соответствует дизайнерским решениям или функциональным требованиям веб-приложения. Выделение текста может. . .

@Tiva 96 / 96 / 21 Регистрация: 25.04.2012 Сообщений: 449
		1
	Работа с таблицами Excel 30.03.2013, 12:17. Показов 13911. Ответов 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	3
	Скажите пж, что нужно сделать, чтобы заставить этот код работать в Студии (12)? 0

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

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

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

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

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

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

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

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

	14.10.2017, 02:24

Опции темы