Excel и С++ Builder

@Anest Tasanta · Регистрация: 10.04.2009

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

Ребята, проблема такая:

Есть программа на С++, которая копирует файлы...
Как сделать так, чтобы отчет о выполнении сохранялся в .xls? Записывалось имя файла и дату копирования.
Даже не знаю как подойти. Пишите пожалуйста подробно

@Lord_Voodoo · 07.06.2009, 20:53

а ну выложи не текст, а именно проект, у меня такое было, когда в хидер помещал эту библиотеку, типа конфикт между двумя классами

@Atilla_360 · 07.06.2009, 20:56

напиши мыло отправлю

@Atilla_360 · 07.06.2009, 20:58

вот

@Lord_Voodoo · 07.06.2009, 20:58

да сюда прикрепи, в расширенном режиме, удали только tds, obj, exe

@Atilla_360 · 07.06.2009, 21:00

прикрепил (сообщение выше)

@Lord_Voodoo · 07.06.2009, 21:05

C++
1
2
3
4
#include "main.h"
#include <OleServer.hpp>
#include <Excel_2K_SRVR.h>
#include <utilcls.h>

@Atilla_360 · 07.06.2009, 21:09

Excel_2K_SRVR.h ну с этой штукой проблем больше нет, но с остальным осталось

@Lord_Voodoo · 07.06.2009, 21:18

ну а там уже ошибки в коде за тобой, главное, что эксель в проект сел

@Atilla_360 · 08.06.2009, 21:58

ну дело в том что он и сидел, а ошибки те и были и с тем h файлом и без него

Добавлено через 5 часов 16 минут 35 секунд
Excel_2K_SRVR.h

@Lord_Voodoo · 09.06.2009, 09:55

у тебя он конфликтовал, конфликты я устранил, но править весь код, извини, не хочется, тем более там уже не так уж все и сложно, ты переменную sh (вроде бы) объяви там со звездочкой, тогда еще часть ошибок уйдет

@martanton · 10.06.2009, 13:53

[BCC32 Error] Unit1.cpp(374): E2451 Undefined symbol 'RangePtr'

скажите отчего эта ошибка возникает с вышеизложенным кодом?

@Lord_Voodoo · 10.06.2009, 13:59

ну вообще пишет, что вроде бы нет точки с запятой, покажи сам кусок с ошибкой

@martanton · 10.06.2009, 15:29

C++
1
RangePtr my_range;

@Lord_Voodoo · 10.06.2009, 15:46

да весь покажи, иногда билдер пишет массу ошибок, но большинство это как следствие той одной самой важной

@martanton · 10.06.2009, 15:49

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
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <Excel_2K_SRVR.h>
 
#pragma package(smart_init)
#pragma link "Excel_2K_SRVR"
#pragma resource "*.dfm"
 
void __fastcall TForm1::BitBtn7Click(TObject *Sender)
{
    RangePtr my_range;
    AnsiString r = "";
    TExcelApplication* ExcelApplication1 = new TExcelApplication(NULL);
    TExcelWorkbook* ExcelWorkbook1 = new TExcelWorkbook(NULL);
    TExcelWorksheet* ExcelWorksheet1 = new TExcelWorksheet(NULL);
    ExcelApplication1->Connect();
    ExcelApplication1->Workbooks->Add();
    ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->get_Item(TVariant(1)));
    ExcelWorkbook1->Activate(0);
    ExcelWorksheet1->ConnectTo(ExcelWorkbook1->Sheets->get_Item(TVariant(1)));
    ExcelWorksheet1->Activate(0);
 
    ExcelApplication1->set_Visible(1,1);
}

ошибки:
[BCC32 Error] Unit1.cpp(376): E2451 Undefined symbol 'RangePtr'
[BCC32 Error] Unit1.cpp(376): E2379 Statement missing ;

@lordrus · 12.06.2010, 17:19

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

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
Variant App, Sh;
TDate Today = Now();
 
// устанавливаем путь к файлу шаблона
AnsiString sFile = GetCurrentDir()+"\\NaclSf.xlt";
 
// инициализируем Excel, открываем этот шаблон
try {
App=Variant::GetActiveObject("Excel.Application");
} catch(...) {
try { App=Variant::CreateObject("Excel.Application"); }
catch (...) {
Application->MessageBox("Невозможно открыть Microsoft Excel!"
" Возможно этого приложения на компьютере не установлено.","Ошибка",MB_OK+MB_ICONERROR);
}}
try {
App.OlePropertyGet("WorkBooks").OleProcedure("Open",sFile.c_str(),0,false,1);
Sh=App.OlePropertyGet("WorkSheets",1);
} catch(...) {
Application->MessageBox("Ошибка открытия книги Microsoft Excel!","Ошибка",MB_OK+MB_ICONERROR);
}
 
// выводим в шаблон данные
// сначала заголовок
toExcel(App,"НомерНАКЛ",SaleManID->Value);
toExcel(App,"ДатаНАКЛ",Today.DateString());
toExcel(App,"ПоставщикНАКЛ",SaleManOrg->Value.c_str());
toExcel(App,"ИННПНАКЛ",SaleManInn->Value.c_str());
 
toExcel(App,"НомерСФ",SaleManID->Value);
toExcel(App,"ДатаСФ",Today.DateString());
toExcel(App,"АдресПСФ",SaleManAddr->Value.c_str());
toExcel(App,"ПоставщикСФ",SaleManOrg->Value.c_str());
toExcel(App,"ИННПСФ",SaleManInn->Value.c_str());
 
// определяем в n количество товара (строк для ввода в шаблон)
Goods->First();
int n = 0; while(!Goods->Eof) { n++; Goods->Next(); }
// или int n = Goods->RecordCount;
 
// вставляем в шаблон нужное количество строк
Variant C;
App.OlePropertyGet("WorkSheets",1).OleProcedure("Select");
C=App.OlePropertyGet("Range","ТоварСФ");
C=App.OlePropertyGet("Rows",(int) C.OlePropertyGet("Row")+1);
for(int i=1;i<n;i++) C.OleProcedure("Insert");
 
App.OlePropertyGet("WorkSheets",2).OleProcedure("Select");
C=App.OlePropertyGet("Range","ТоварНАКЛ");
C=App.OlePropertyGet("Rows",(int) C.OlePropertyGet("Row")+1);
for(int i=1;i<n;i++) C.OleProcedure("Insert");
 
// вывод данных из накладной в эти строки
Goods->First();
int i = 0;
while(!Goods->Eof){
toExcel(App,"ТоварСФ",i,GoodsName->Value.c_str());
toExcel(App,"ТоварНАКЛ",i,GoodsName->Value.c_str());
toExcel(App,"НомерППНАКЛ",i,i+1);
toExcel(App,"СтранаСФ",i,"Россия");
toExcel(App,"ЕдизмСФ",i,GoodsIzmer->Value.c_str());
toExcel(App,"ЕдизмНАКЛ",i,GoodsIzmer->Value.c_str());
toExcel(App,"КолСФ",i,GoodsCount->Value);
toExcel(App,"КолНАКЛ",i,GoodsCount->Value);
toExcel(App,"ЦенаСФ",i,GoodsPrice->Value);
toExcel(App,"ЦенаНАКЛ",i,GoodsPrice->Value);
toExcel(App,"СтоимСФ",i,GoodsPrice->Value*GoodsCount->Value);
toExcel(App,"СтоимостьСНДССФ",i,(GoodsPrice->Value*GoodsCount->Value*5)/100.);
toExcel(App,"ВсегоНАКЛ",i,GoodsPrice->Value*GoodsCount->Value);
toExcel(App,"СуммаНДССФ",i,(GoodsPrice->Value*GoodsCount->Value*5)/100.);
toExcel(App,"СуммаНДСНАКЛ",i,(GoodsPrice->Value*GoodsCount->Value*5)/100.);
i++; Goods->Next();
}
 
// и наконец, делаем Excel видимым 
App.OlePropertySet("Visible",true);

Но ничего не выходит выдает ошибку : E2268 Call to undefined function 'toExcel'
как исправить??? мне кажется это самый приемлимый вариант но как его довести до ума и использовать в своейпрограмме не пойму, может кто помочь исправить ошибку?

@Lord_Voodoo · 13.06.2010, 11:27

lordrus, ну а где сама функция toExcel, это явно нестандартная функция

@lordrus · 13.06.2010, 12:27

в самом примере код слегка другой, но он не рабтает выдает ошибку что нехватает каких то файлов просит их импортировать. а вот сам код программы:

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
 
Variant App, Sh;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::bOpenClick(TObject *Sender)
{
    SaleMan->Close(); Goods->Close();
    DBase->Connected = false;
    AnsiString sWay = GetCurrentDir();
    DBase->Params->Strings[0] = "PATH=" + sWay;
    DBase->Connected = true;
    SaleMan->Open(); Goods->Open();
}
//---------------------------------------------------------------------------
 
Variant toExcel(Variant App,const char *Exc, int off, String data)
{
  try {
    App.OlePropertyGet("Range", Exc).OlePropertyGet("Offset", off).OlePropertySet("Value", data.c_str());
  } catch(...) { ; }
}/* toExcel() */
//---------------------------------------------------------------------------
Variant  toExcel(Variant App,const char *Exc, double data)
{
  try {
    App.OlePropertyGet("Range", Exc).OlePropertySet("Value", data);
  } catch(...) { ; }
}/* toExcel() */
 
//---------------------------------------------------------------------------
Variant  toExcel(Variant App,const char *Exc, int data)
{
  try {
    App.OlePropertyGet("Range", Exc).OlePropertySet("Value", data);
  } catch(...) { ; }
}/* toExcel() */
 
//---------------------------------------------------------------------------
Variant  toExcel(Variant App,const char *Exc, AnsiString data)
{
  try {
    Variant  cur = App.OlePropertyGet("Range", Exc);
    cur.OlePropertySet("Value", data.c_str());
  } catch(...) { ; }
}/* toExcel() */
//---------------------------------------------------------------------------
 
void __fastcall TForm1::bToExcelClick(TObject *Sender)
{
    // получаем сегодняшнюю дату
    TDate Today = Now();
 
    // устанавливаем путь к файлу шаблона
     AnsiString sFile = GetCurrentDir()+"\\NaclSf.xlt";
 
     // инициализируем Excel, открываем этот шаблон
     try {
       App=Variant::GetActiveObject("Excel.Application");
     } catch(...) {
     try { App=Variant::CreateObject("Excel.Application"); }
     catch (...) {
      Application->MessageBox("Невозможно открыть Microsoft Excel!"
      " Возможно этого приложения на компьютере не установлено.","Ошибка",MB_OK+MB_ICONERROR);
        }}
     try {
      App.OlePropertyGet("WorkBooks").OleProcedure("Open",sFile.c_str(),0,false,1);
      Sh=App.OlePropertyGet("WorkSheets",1);
     } catch(...) {
      Application->MessageBox("Ошибка открытия книги Microsoft Excel!","Ошибка",MB_OK+MB_ICONERROR);
     }
 
  // выводим в шаблон данные
  // сначала заголовок
  toExcel(App,"НомерНАКЛ",SaleManID->Value);
  toExcel(App,"ДатаНАКЛ",Today.DateString());
  toExcel(App,"ПоставщикНАКЛ",SaleManOrg->Value.c_str());
  toExcel(App,"ИННПНАКЛ",SaleManInn->Value.c_str());
 
  toExcel(App,"НомерСФ",SaleManID->Value);
  toExcel(App,"ДатаСФ",Today.DateString());
  toExcel(App,"АдресПСФ",SaleManAddr->Value.c_str());
  toExcel(App,"ПоставщикСФ",SaleManOrg->Value.c_str());
  toExcel(App,"ИННПСФ",SaleManInn->Value.c_str());
 
  // определяем в n количество товара (строк для ввода в шаблон)
  Goods->First();
  int n = 0;  while(!Goods->Eof) { n++; Goods->Next(); }
 
  // вставляем в шаблон нужное количество строк
  Variant C;
  App.OlePropertyGet("WorkSheets",1).OleProcedure("Select");
  C=App.OlePropertyGet("Range","ТоварСФ");
  C=App.OlePropertyGet("Rows",(int) C.OlePropertyGet("Row")+1);
  for(int i=1;i<n;i++) C.OleProcedure("Insert");
 
  App.OlePropertyGet("WorkSheets",2).OleProcedure("Select");
  C=App.OlePropertyGet("Range","ТоварНАКЛ");
  C=App.OlePropertyGet("Rows",(int) C.OlePropertyGet("Row")+1);
  for(int i=1;i<n;i++) C.OleProcedure("Insert");
 
  // вывод данных из накладной в эти строки
  Goods->First();
  int i = 0;
  while(!Goods->Eof){
    toExcel(App,"ТоварСФ",i,GoodsName->Value.c_str());
    toExcel(App,"ТоварНАКЛ",i,GoodsName->Value.c_str());
    toExcel(App,"НомерППНАКЛ",i,i+1);
    toExcel(App,"СтранаСФ",i,"Россия");
    toExcel(App,"ЕдизмСФ",i,GoodsIzmer->Value.c_str());
    toExcel(App,"ЕдизмНАКЛ",i,GoodsIzmer->Value.c_str());
    toExcel(App,"КолСФ",i,GoodsCount->Value);
    toExcel(App,"КолНАКЛ",i,GoodsCount->Value);
    toExcel(App,"ЦенаСФ",i,GoodsPrice->Value);
    toExcel(App,"ЦенаНАКЛ",i,GoodsPrice->Value);
    toExcel(App,"СтоимСФ",i,GoodsPrice->Value*GoodsCount->Value);
    toExcel(App,"СтоимостьСНДССФ",i,(GoodsPrice->Value*GoodsCount->Value*5)/100.);
    toExcel(App,"ВсегоНАКЛ",i,GoodsPrice->Value*GoodsCount->Value);
    toExcel(App,"СуммаНДССФ",i,(GoodsPrice->Value*GoodsCount->Value*5)/100.);
    toExcel(App,"СуммаНДСНАКЛ",i,(GoodsPrice->Value*GoodsCount->Value*5)/100.);
    i++; Goods->Next();
     }
 
  App.OlePropertySet("Visible",true);
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  App.OleProcedure("Quit");
  Sh.Clear();
  App.Clear();
}
//---------------------------------------------------------------------------

но и здесь я не пойму как работает эта функция и как она вообще связывается с таблицей???

@Lord_Voodoo · 13.06.2010, 12:32

lordrus, ну вообще она никак не связана с таблице, данные в нее передаются и она их пишет в экселевский документ, а чего там ему не нравится, что за файлы требует?

@lordrus · 13.06.2010, 12:37

вкладываю сам пимер может кто разберется и пригодится в будующем.

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Anest Tasanta 1 / 1 / 0 Регистрация: 10.04.2009 Сообщений: 14

	Excel и С++ Builder 10.04.2009, 07:06. Показов 26107. Ответов 41 Метки нет (Все метки) Ребята, проблема такая: Есть программа на С++, которая копирует файлы... Как сделать так, чтобы отчет о выполнении сохранялся в .xls? Записывалось имя файла и дату копирования. Даже не знаю как подойти. Пишите пожалуйста подробно 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	07.06.2009, 20:53
	а ну выложи не текст, а именно проект, у меня такое было, когда в хидер помещал эту библиотеку, типа конфикт между двумя классами 0

@Atilla_360 0 / 0 / 1 Регистрация: 03.06.2009 Сообщений: 19
	07.06.2009, 20:56
	напиши мыло отправлю 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	07.06.2009, 20:58
	да сюда прикрепи, в расширенном режиме, удали только tds, obj, exe 0

@Atilla_360 0 / 0 / 1 Регистрация: 03.06.2009 Сообщений: 19
	07.06.2009, 21:00
	прикрепил (сообщение выше) 0

@Atilla_360 0 / 0 / 1 Регистрация: 03.06.2009 Сообщений: 19
	07.06.2009, 21:09
	Excel_2K_SRVR.h ну с этой штукой проблем больше нет, но с остальным осталось 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	07.06.2009, 21:18
	ну а там уже ошибки в коде за тобой, главное, что эксель в проект сел 0

@Atilla_360 0 / 0 / 1 Регистрация: 03.06.2009 Сообщений: 19
	08.06.2009, 21:58
	ну дело в том что он и сидел, а ошибки те и были и с тем h файлом и без него Добавлено через 5 часов 16 минут 35 секунд Excel_2K_SRVR.h 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	09.06.2009, 09:55
	у тебя он конфликтовал, конфликты я устранил, но править весь код, извини, не хочется, тем более там уже не так уж все и сложно, ты переменную sh (вроде бы) объяви там со звездочкой, тогда еще часть ошибок уйдет 0

@martanton 0 / 0 / 0 Регистрация: 13.03.2009 Сообщений: 27
	10.06.2009, 13:53
	[BCC32 Error] Unit1.cpp(374): E2451 Undefined symbol 'RangePtr' скажите отчего эта ошибка возникает с вышеизложенным кодом? 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	10.06.2009, 13:59
	ну вообще пишет, что вроде бы нет точки с запятой, покажи сам кусок с ошибкой 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	10.06.2009, 15:46
	да весь покажи, иногда билдер пишет массу ошибок, но большинство это как следствие той одной самой важной 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	13.06.2010, 11:27
	lordrus, ну а где сама функция toExcel, это явно нестандартная функция 1

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	13.06.2010, 12:32
	lordrus, ну вообще она никак не связана с таблице, данные в нее передаются и она их пишет в экселевский документ, а чего там ему не нравится, что за файлы требует? 0