Экспорт данных из Listbox в Excel

@Ji-Yun · Регистрация: 19.05.2015

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

здравствуйте. в общем задача такая: надо чтобы из listbox все данные экспортировались в excel. и желательно чтобы числа из listbox суммировались в одной ячейке

@Кривокодер · 19.05.2015, 11:25

Кидаем на форму компоненты TExcelApplication и TExcelWorkbook, которому задаем в свойстве ConnectKind значение ckAttachToInterface.

Пишем код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender:TObject);
var n:OleVariant;
var sum:real;
var i:integer;
begin
n:='c:\k1.xls';//Название файла таблицы
ExcelApplication1.Workbooks.Add(n,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
sum:=0;
for i:=0 to ListBox1.Items.Count-1 do
begin
ExcelApplication1.Cells.Item[i+1{строка},1{столбец}].Value:=ListBox1.Items[i];//Заполняем столбец A данными из списка
sum:=sum+StrToFloat(ListBox1.Items[i]);
end;
ExcelApplication1.Cells.Item[1,2].Value:=FloatToStr(sum);//Заносим в ячейку B1 сумму чисел
ExcelWorkbook1.Save;
ExcelWorkbook1.Close;
end;

@Ji-Yun · 19.05.2015, 20:31 **[ТС]**

спасибо большое)) а может знаешь как сделать чтобы еще в listbox из dbgrida выводились только два столбца с наименованием и суммой. а то уже битый час сижу и не получается

Добавлено через 17 минут
а все, получилось) но все же, когда экспортируется в excel то пишет ошибку, это из-за того что там присутствует наименование товаров, может в код что добавить, чтобы и наименование выводились в другом столбце

@Кривокодер · 19.05.2015, 20:33

Тогда надо 2 списка завести: 1 для чисел, другой для текстовых данных и код будет такой:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button1Click(Sender:TObject);
var n:OleVariant;
var sum:real;
var i:integer;
begin
n:='c:\k1.xls';//Название файла таблицы
ExcelApplication1.Workbooks.Add(n,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
sum:=0;
for i:=0 to ListBox1.Items.Count-1 do
begin
ExcelApplication1.Cells.Item[i+1{строка},1{столбец}].Value:=ListBox1.Items[i];//Заполняем столбец A данными из списка
ExcelApplication1.Cells.Item[i+1{строка},2{столбец}].Value:=ListBox2.Items[i];//Заполняем столбец B данными из другого списка
sum:=sum+StrToFloat(ListBox1.Items[i]);
end;
ExcelApplication1.Cells.Item[1,3].Value:=FloatToStr(sum);//Заносим в ячейку C1 сумму чисел
ExcelWorkbook1.Save;
ExcelWorkbook1.Close;
end;

@Ji-Yun · 19.05.2015, 20:59 **[ТС]**

ура) спасибо)

Добавлено через 11 минут
прости, еще один вопрос возник, как сделать чтобы после всего этого excel открывался, а то искать как-то не очень

@Кривокодер · 19.05.2015, 21:10

Вот так:

Delphi
1
ExcelApplication1.Visible[GetUserDefaultLCID]:=true;

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

Экспорт данных из Listbox в Excel

Решение

Решение

Решение

@Ji-Yun 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 3

	Экспорт данных из Listbox в Excel 19.05.2015, 09:47. Показов 2574. Ответов 5 Метки нет (Все метки) здравствуйте. в общем задача такая: надо чтобы из listbox все данные экспортировались в excel. и желательно чтобы числа из listbox суммировались в одной ячейке 0

@Ji-Yun 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 3
	19.05.2015, 20:31 [ТС]
	спасибо большое)) а может знаешь как сделать чтобы еще в listbox из dbgrida выводились только два столбца с наименованием и суммой. а то уже битый час сижу и не получается Добавлено через 17 минут а все, получилось) но все же, когда экспортируется в excel то пишет ошибку, это из-за того что там присутствует наименование товаров, может в код что добавить, чтобы и наименование выводились в другом столбце 0

@Ji-Yun 0 / 0 / 0 Регистрация: 19.05.2015 Сообщений: 3
	19.05.2015, 20:59 [ТС]
	ура) спасибо) Добавлено через 11 минут прости, еще один вопрос возник, как сделать чтобы после всего этого excel открывался, а то искать как-то не очень 0