Экспорт данных из DBGrid в Excel с шапкой таблицы

@mpd · Регистрация: 12.05.2011

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

Всем привет! Прошу помощи, т.к. уже голову сломал. Есть код для экспорта в Excel данных из DBGrid, но минус в том, что шапка таблицы (названия столбцов) не переносится в 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
procedure TForm_Zayavki.Button10Click(Sender: TObject);
var
 XL, XArr: Variant;
 k: Integer;
 n: Integer;
begin
 // Создаем массив элементов, полученных в результате запроса
 XArr:=VarArrayCreate([1,dm.Zayavki.FieldCount],varVariant);
 XL:=CreateOLEObject('Excel.Application');     // Создание OLE объекта
 XL.WorkBooks.add;
 XL.visible:=true;
 
 n := 1;
 dm.Zayavki.First;
 while not dm.Zayavki.Eof do
  begin
   k:=1;
   while k<=dm.Zayavki.FieldCount do
    begin
     XArr[k] := dm.Zayavki.Fields[k-1].Value;
     k := k+1;
    end;
   XL.Range['A'+IntToStr(n),CHR(64+dm.Zayavki.FieldCount)+IntToStr(n)].Value := XArr;
   dm.Zayavki.Next;
   n:=n+1;
  end;
 XL.Range['A1',CHR(64+dm.Zayavki.FieldCount)+IntToStr(n)].select;
 // XL.cells.select;                     // Выбираем все
 XL.Selection.Font.Name:='Arial cur';
 XL.Selection.Font.Size:=10;
 XL.selection.Columns.AutoFit;
 XL.Range['A1','A1'].select;
end;

@II_Dimit_II · 02.06.2013, 18:16

Тебе так важно в Exsel? знаю как Word очень просто забросить таблицу

@mpd · 02.06.2013, 19:03 **[ТС]**

Принципиально в Excel. Но я бы не отказался от кода по экспорту в Word, я думаю в будущем понадобится.

@II_Dimit_II · 02.06.2013, 19:27

Кидаешь в папку с прогой файл MyWord. и на кнопку вставляешь это код:

Delphi
1
2
3
4
5
6
7
if CreateWord then begin
 VisibleWord(false);
 AddDoc;
 ADOQuery1.DisableControls;
 WordTableAddFromDBGrid(sDBGrid1,true,table);
 VisibleWord(true);
 ADOQuery1.EnableControls;

ADOQuery можно заменить на Table

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

@II_Dimit_II 1 / 1 / 1 Регистрация: 27.05.2013 Сообщений: 39
	02.06.2013, 18:16
	Тебе так важно в Exsel? знаю как Word очень просто забросить таблицу 0

@mpd 2 / 2 / 0 Регистрация: 12.05.2011 Сообщений: 36
	02.06.2013, 19:03 [ТС]
	Принципиально в Excel. Но я бы не отказался от кода по экспорту в Word, я думаю в будущем понадобится. 0

Опции темы