Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Pro100kvachina
3 / 3 / 0
Регистрация: 23.01.2013
Сообщений: 197
#1

Excel

13.03.2013, 12:47. Просмотров 488. Ответов 2
Метки нет (Все метки)

Приветствую
Как из БД импортировать данные в Excel

Вот есть рабочий пример

в примере происходит следующие - заполняем поля Edit нажимаем на кнопку распечать и данные введёные в Edit импортируются в Excel + строки дописанные вручную ( Sheet.Cells[8,1]:='имя'



Delphi
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
procedure TForm5.BitBtn2Click(Sender: TObject);
var
 XLApp,Sheet,Colum:Variant; i:integer;
begin  XlApp:=CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Eaeoaioey';
 Colum:=XLApp.Workbooks[1].WorkSheets['Eaeoaioey'].Columns;
 Colum.Columns[1].ColumnWidth:=16;
 Colum.Columns[2].ColumnWidth:=9;
 Colum.Columns[3].ColumnWidth:=9;
 Colum.Columns[4].ColumnWidth:=9;
 Colum.Columns[5].ColumnWidth:=9;
 Colum.Columns[6].ColumnWidth:=9;
 Colum.Columns[7].ColumnWidth:=9;
 Colum.Columns[8].ColumnWidth:=9;
 
 Colum:=XLApp.Workbooks[1].WorkSheets['Eaeoaioey'].Rows;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Size:=12;
 Colum.Rows[8].Font.Bold:=true;
 Sheet:=XLApp.Workbooks[1].WorkSheets['Eaeoaioey'];
 
 Sheet.Cells[1,1]:='Г”Г*ìèëèÿ';
 Sheet.Cells[2,1]:='Èìÿ';
 Sheet.Cells[3,1]:='ГЋГІГ·ГҐГ±ГІГўГ®';
 Sheet.Cells[4,1]:='В№ óäîñòîâåðåГ*ГЁГї';
 Sheet.Cells[5,1]:='Г„Г*ГІГ* ðîæäåГ*ГЁГї';
 Sheet.Cells[6,1]:='ГЌГ*ГЇГ°Г*âëåГ*ГЁГҐ';
 Sheet.Cells[7,1]:='Âèä ìåñòГ*';
 Sheet.Cells[8,1]:='Г–ГҐГ*Г*';
 
 Sheet.Cells[1,2]:=Form5.Edit1.Text+'';
 Sheet.Cells[2,2]:=Form5.Edit2.Text+'';
 Sheet.Cells[3,2]:=Form5.Edit3.Text+'';
 Sheet.Cells[4,2]:=Form5.Edit4.Text+'';
 Sheet.Cells[5,2]:=Form5.MaskEdit1.Text+'';
 Sheet.Cells[6,2]:=''+ComboBox1.Text+'';
 Sheet.Cells[7,2]:=''+ ComboBox2.Text+'';
 Sheet.Cells[8,2]:=Form5.Edit6.Text+'';
end;

Есть DBGrid в ней заполнены поля
Нужно сделать что бы с БД бралась информация и выводила в excel
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2013, 12:47
Ответы с готовыми решениями:

Из Excel в DBGrid. Подключиться к рабочей книге MS Excel, как к базе данных.
Доброго времени суток! У меня возникли проблемы при выводе таблицы с Excel на...

Заполнение шаблона excel из DBGrid при этом сохранив имеющиеся данные в excel
Здравствуйте. у меня есть список который при нажатии на кнопку в делфи...

excel
Помогите мне, расскажите подробно как работать с excel'ем Какой компонент...

Excel
У меня есть файл(15 строк). Нужно найти в Х колонке слово(или цифру) короче...

Бд и Excel
У меня есть задача. Мне нужно сделать базу данных, данные в которую будут...

2
rdama
567 / 290 / 12
Регистрация: 28.01.2011
Сообщений: 1,326
13.03.2013, 14:06 #2
Какой ужас. Гугл вам даст уйму вариантов как вывести данные из таблицы в ексель. Например экспорт через вариантный массив.
0
droider
Universal
Эксперт Pascal/Delphi
4397 / 2445 / 763
Регистрация: 04.10.2012
Сообщений: 8,887
13.03.2013, 14:26 #3
Pro100kvachina, DBGridEh Вам в помощь и не мучайтесь
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2013, 14:26

Excel
Программисты скажите пожалуйста как мне excel таблицу вывести в StringGrid1 а...

Экспорт в Excel
Использую Access+Delphi. Для экспорта использую вот этот код: procedure...

Экспорт в Excel
в бд есть кнопка экспорт в эксель, вот ее код: procedure...


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

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

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