Как создать название книги Excel из Delphi

03.07.2014, 19:56. Показов 1585. Ответов 0

Метки нет (Все метки)

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

Нужно создать название для 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 Button1OnClick(Sender: TfrxComponent);
var
   XApp:Variant;
   sheet:Variant;
   r,c:Integer;
   row,col:Integer;
   filName:Integer;
   q:Integer;
 
   ds:TfrxDataSet;
   ss:TStringList;
begin
   ds := MasterData1.DataSet;
   ss:=TStringList.Create;
   ds.GetFieldList(ss);
   XApp:=CreateOleObject('Excel.Application');
   XApp.Visible:=true;
   XApp.WorkBooks.Add(-4167);                                                             
   XApp.WorkBooks[1].WorkSheets[1].Name:='Sheet1';
   sheet:=XApp.WorkBooks[1].WorkSheets['Sheet1'];
   for filName:=0 to ds.FieldsCount-1 do
   begin
        q:=filName+1;
        sheet.Cells[1,q]:=ss.Strings[filName];
   end;
   for r:=0 to ds.RecordCount-1 do
   begin
        for c:=0 to ds.FieldsCount-1 do
        begin
             row:=r+2;
             col:=c+1;
             sheet.Cells(row,col):=ds.Value(ss.Strings[c]);
        end;
        ds.Next;
   end;
 
   ss.free;
end;

Спасибо!

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

03.07.2014, 19:56

Ответы с готовыми решениями:

Как создать сокращенное название в excel
Добрый день! Прошу помочь в следующем вопросе. В excel есть таблица названий товара. Все они имеют примерно такую форму: Кастр. эм....

Проверить название листов в книги Excel
Необходимо проверить название листов в книги Excel. листы должны называться Лист1 и Лист2. В книге только 2 листа (больше быть не может)...

Как на основе одной Excel-книги программно создать другие?
Здравствуйте. Была поставлена задача преобразовывать 1 Excel документ в несколько других. Есть одна большая таблица Excel с несколькими...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

03.07.2014, 19:56

Помогаю со студенческими работами здесь

Описать структуру Bibliotec, содержащую следующие поля: автор книги, инвентарный номер книги, название книги
Описать структуру BIBLIOTEC содержащий следующие поля: автор книги , инвентарный номер книги , название книги. Подсчитать , книги скольких...

Создать приложение в VBA, позволяющее создать примечание при открытии книги Excel
нужно 1. Создать приложение в VBA, позволяющее создать примечание при открытии книги Excel. как начать незнаю??? подскажите

Создать библиотеку в которой есть название книги, год издания и автор
Создать библиотеку в которой есть название книги , год издания и автор . В ней должно быть конструктор , декструктор и 2 метода. ...

Печать всей книги Excel из Delphi
Доброго времени. Нужна помощь. Подскажите что нужно прописать, что бы при нажатии кнопки печать книги Excel, не выводилось сообщение...

Работа с несколькими листами книги Excel в Delphi
Доброе утро, у меня вышла загвоздка когда потребовалось работать с несколькими листами Excel книги: Есть 4 листа с абсолютно одинаковыми...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

Наверх