Delphi вывод данных в Excel

@Кристл · Регистрация: 05.06.2016

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

Здравствуйте, есть код вывод данных в Excel

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
procedure TForm4.ToolButton3Click(Sender: TObject);
var ExcelApp, Workbook: Variant;
i:integer;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Application.EnableEvents:=false;
workbook:=ExcelApp.Workbooks.Add(ExtractFilePath(ParamStr(0))+'grafik.xlsx');
ExcelApp.ActiveWorkBook.Sheets.Item[1].Activate;
 
begin
DBGrid1.DataSource.DataSet.First;
for i:=0  to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
ExcelApp.Cells[12+i,1]:=datamodule2.ADOQuery2.Fields.FieldByName('nomer_dela').AsString;
 ExcelApp.Cells[12+i,2]:=datamodule2.ADOQuery2.Fields.FieldByName('Data').AsString;
  ExcelApp.Cells[12+i,3]:=datamodule2.ADOQuery2.Fields.FieldByName('Time').AsString;
  ExcelApp.Cells[12+i,4]:=datamodule2.ADOQuery2.Fields.FieldByName('Zayvitel').AsString;
  ExcelApp.Cells[12+i,5]:=datamodule2.ADOQuery2.Fields.FieldByName('Otvetchik').AsString;
  ExcelApp.Cells[12+i,6]:=datamodule2.ADOQuery2.Fields.FieldByName('Sootvetchik').AsString;
  ExcelApp.Cells[12+i,7]:=datamodule2.ADOQuery2.Fields.FieldByName('Three_lico').AsString;
  ExcelApp.Cells[12+i,8]:=datamodule2.ADOQuery2.Fields.FieldByName('Osparimavaemay_symma').AsString;
  ExcelApp.Cells[12+i,9]:=datamodule2.ADOQuery2.Fields.FieldByName('Predmet_spora').AsString;
   ExcelApp.Cells[12+i,10]:=datamodule2.ADOQuery2.Fields.FieldByName('Sud').AsString;
 ExcelApp.Cells[12+i,11]:=datamodule2.ADOQuery2.Fields.FieldByName('FIO_sydi').AsString;
ExcelApp.Cells[12+i,13]:=datamodule2.ADOQuery2.Fields.FieldByName('Predstavitel_UFNS').AsString;
 ExcelApp.Cells[12+i,14]:=datamodule2.ADOQuery2.Fields.FieldByName('Predstavitel_IFNS').AsString;
  ExcelApp.Cells[12+i,15]:=datamodule2.ADOQuery2.Fields.FieldByName('Tekushcheye_sostoyanie').AsString;
ExcelApp.Cells[12+i,16]:=datamodule2.ADOQuery2.Fields.FieldByName('Primechanie').AsString;
 ExcelApp.Cells[12+i,12]:=datamodule2.ADOQuery2.Fields.FieldByName('Kabinet').AsString;
 
datamodule2.ADOQuery2.Next;
end;
 
ExcelApp.Visible := true;
 
 
end;
end;

Вопрос в том как сделать чтобы он не только выводил, но и ставил границы у выведенных данных
Заранее спасибо.

@D1973 · 31.05.2018, 16:08

Сообщение от Кристл

но и ставил границы у выведенных данных

Что значит "ставил границы"? Обрамление ячеек делал что ли? Если да - то поиск рулит!

@Кристл · 31.05.2018, 16:19 **[ТС]**

ну тоесть ставил и внешние и внутренние границы, по количеству выведенных данных

@D1973 · 31.05.2018, 16:48

Кристл, Вы можете объяснить, что Вы имеете в виду, когда говорите "границы"? На примере покажите, что-ли...

@Кристл · 31.05.2018, 16:57 **[ТС]**

вот я вывожу данные , мне нужно чтобы у них были границы

@D1973 · 31.05.2018, 17:03

Ну я же дал Вам ссылку - там все это есть...

Добавлено через 2 минуты
Но, если там мало - вот Вам еще одна ссылка

@Кристл · 31.05.2018, 17:13 **[ТС]**

я сделала как там показано , но он ставит границы на весь лист

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

@D1973 · 31.05.2018, 17:57

Сообщение от Кристл

что именно нужно добавить в мой код

В 30-ю строку (перед datamodule2.ADOQuery2.Next;) напишите:

Delphi
1
2
ExcelApp.Range[ExcelApp.Cells[12 + i, 1], ExcelApp.Cells[12 + i, 16]].Select;
ExcelApp.Selection.Borders.LineStyle := 1;

@Кристл · 31.05.2018, 18:15 **[ТС]**

огромное вам спасибо, все работает )

Добавлено через 2 минуты
а можно тогда еще вопрос, а если ниже будет еще информация , то как сделать чтобы он сдвигал ее вниз?

@D1973 · 31.05.2018, 18:19

Сообщение от Кристл

если ниже будет еще информация , то как сделать чтобы он сдвигал ее вниз?

Опять не совсем понял... У Вас же и так каждая запись из набора данных записывается в новую строку Excel... Или Вы что-то другое в виду имели?

@Кристл · 31.05.2018, 18:21 **[ТС]**

это все записывается просто отлично , после выведенных данных у меня , указывается начальник, там номер телефона и прочее инфа написанная от руки , данные вывод а вот то что было внизу пропадает (

@D1973 · 31.05.2018, 18:29

Ну а если эти данные не хранить в файле изначально, а потом, после того, как были перенесены данные из БД просто ниже их дописать программно?

@Кристл · 31.05.2018, 18:34 **[ТС]**

а как это сделать не подскажите ?

@D1973 · 31.05.2018, 18:48

Сообщение от Кристл

как это сделать

Да точно также, как Вы данные из БД записывали... Только для начала надо определить номер строки, с которой начнутся эти данные...
1. Объявить еще одну переменную в разделе var
n: integer;
2. перед циклом написать:

Delphi
1
n := 12 + DBGrid1.DataSource.DataSet.RecordCount;

3. После цикла, когда все данные из БД выведены, начинаем писать подвал... Для примера:

Delphi
1
2
3
4
5
ExcelApp.Cells[n + 2, 2] := 'Начальник транспортного цеха';
ExcelApp.Cells[n + 2, 10] := 'И.И. Иванов';
ExcelApp.Cells[n + 3, 2] := 'Подпись';
ExcelApp.Cells[n + 3, 10] := 'Дата';
ExcelApp.Cells[n + 3, 11] := DateToStr(Now);

Номера столбцов и нужный текст сами определите по своему xls-файлу...

@Кристл · 31.05.2018, 18:52 **[ТС]**

огромное тебе спасибо, все получилось , и все работает )
спасибо тебе очень выручил

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

Delphi вывод данных в Excel

Решение

Решение

@Кристл 0 / 0 / 0 Регистрация: 05.06.2016 Сообщений: 21
	31.05.2018, 16:19 [ТС]
	ну тоесть ставил и внешние и внутренние границы, по количеству выведенных данных 0

@D1973 Модератор 9921 / 6457 / 2457 Регистрация: 21.01.2014 Сообщений: 27,406 Записей в блоге: 3
	31.05.2018, 16:48
	Кристл, Вы можете объяснить, что Вы имеете в виду, когда говорите "границы"? На примере покажите, что-ли... 0

@Кристл 0 / 0 / 0 Регистрация: 05.06.2016 Сообщений: 21
	31.05.2018, 16:57 [ТС]
	вот я вывожу данные , мне нужно чтобы у них были границы Миниатюры 0

@D1973 Модератор 9921 / 6457 / 2457 Регистрация: 21.01.2014 Сообщений: 27,406 Записей в блоге: 3
	31.05.2018, 17:03
	Ну я же дал Вам ссылку - там все это есть... Добавлено через 2 минуты Но, если там мало - вот Вам еще одна ссылка 0

@Кристл 0 / 0 / 0 Регистрация: 05.06.2016 Сообщений: 21
	31.05.2018, 17:13 [ТС]
	я сделала как там показано , но он ставит границы на весь лист Добавлено через 3 минуты я не совсем понимаю, поэтому не могли вы мне подскакать что именно нужно добавить в мой код 0

@Кристл 0 / 0 / 0 Регистрация: 05.06.2016 Сообщений: 21
	31.05.2018, 18:15 [ТС]
	огромное вам спасибо, все работает ) Добавлено через 2 минуты а можно тогда еще вопрос, а если ниже будет еще информация , то как сделать чтобы он сдвигал ее вниз? 0

@Кристл 0 / 0 / 0 Регистрация: 05.06.2016 Сообщений: 21
	31.05.2018, 18:21 [ТС]
	это все записывается просто отлично , после выведенных данных у меня , указывается начальник, там номер телефона и прочее инфа написанная от руки , данные вывод а вот то что было внизу пропадает ( 0

@D1973 Модератор 9921 / 6457 / 2457 Регистрация: 21.01.2014 Сообщений: 27,406 Записей в блоге: 3
	31.05.2018, 18:29
	Ну а если эти данные не хранить в файле изначально, а потом, после того, как были перенесены данные из БД просто ниже их дописать программно? 0

@Кристл 0 / 0 / 0 Регистрация: 05.06.2016 Сообщений: 21
	31.05.2018, 18:34 [ТС]
	а как это сделать не подскажите ? 0

@Кристл 0 / 0 / 0 Регистрация: 05.06.2016 Сообщений: 21
	31.05.2018, 18:52 [ТС]
	огромное тебе спасибо, все получилось , и все работает ) спасибо тебе очень выручил 0