Форум программистов, компьютерный форум, киберфорум
Наши страницы
C++ Builder и базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 16, средняя оценка - 4.88
lordrus
1 / 1 / 1
Регистрация: 19.05.2010
Сообщений: 9
#1

Перенос данных в шаблон Excel - C++ Builder БД

12.06.2010, 17:07. Просмотров 2088. Ответов 1
Метки нет (Все метки)

В форумах нашел код но он выдает ошибку: E2268 Call to undefined function 'toExcel'

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);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2010, 17:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Перенос данных в шаблон Excel (C++ Builder БД):

Перенос данных из DBGrid в Excel
Всем доброго времени суток. Кто может подсказать как перенести данные из DBGrid...

Перенос данных из DBGrid в Excel
Здравствуйте. Обыскал весь ваш форум, но так и не нашел готового решения, а...

Перенос таблицы из StringGrid в Excel
Доброго времени суток, у меня имеется заполненная таблица в StringGrid, как я...

Перенос данных из приложения (IDE: Embarcdero Seatle) в MS Excell 2016. Считывание данных из Excell
Через какой компонент среды разработки можно реализовать импорт и экспорт...

Разработать шаблон класса структуры данных
Доброго времени суток! Помогите кто чем может, кто советом, кто кодом, вообщем...

Шаблон функции и разные типы данных
Как определить переменная какого типа была передана в шаблон функцию ? ...

1
lordrus
1 / 1 / 1
Регистрация: 19.05.2010
Сообщений: 9
12.06.2010, 17:09  [ТС] #2
Также есть пример самой программы, но он требует какие то файлы что бы скомпилировать
0
Вложения
Тип файла: rar xlt.rar (11.5 Кб, 97 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2010, 17:09
Привет! Вот еще темы с решениями:

C++ и Excel - обработка данных Excel
Точнее было бы тему назвать C++ vs Excel - битва титанов ;-) Добрый день! ...

Экспорт данных из access в существующий шаблон word
Добрый вечер всем. Помогите пожалуйста!!! Очень надо!! Мне СРОЧНО нужно...

Перенос данных из DBGrid в StringGrid
Всем доброго времени суток. Тем по подобному переносу достаточно, но у всех них...

Перенос данных из StringGrid1 в StringGrid2
Приветствую вас. Есть вопрос значит, как перенести данные из StringGrid1 в...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru