Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Dasha18
5 / 5 / 1
Регистрация: 20.04.2013
Сообщений: 95
1

Как в Excel экспортировать время?

28.06.2015, 21:15. Просмотров 282. Ответов 2
Метки нет (Все метки)

Добрый вечер! Скажите пожалуйста как в 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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
begin
  BeginCol := 1; BeginRow:=3;
  RowCount:=1+DM.ADOZP.RecordCount-1;
ColCount:= DBGrid3.Columns.Count;
 
ExcelApp:= CreateOleObject('Excel.Application');
ExcelApp. Application.EnableEvents := false;
 
  Workbook := ExcelApp.WorkBooks.Add;
 
ArrayData:= VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
DBGrid3.DataSource.DataSet.First;
 
for i:= 1 to RowCount  do
begin
  for j:= 1 to ColCount  do
ArrayData[i, j]:= DBGrid3.Fields[j-1]. AsString;
  DBGrid3.DataSource.DataSet.Next;
End;
 
Cell1 := WorkBook.Worksheets[1].Cells[BeginRow, BeginCol];
Cell2 := WorkBook.Worksheets[1].Cells[BeginRow+RowCount-1, BeginCol+ ColCount-1];
//==============================================================================
  begin
    WorkBook.Worksheets[1].Columns[1].ColumnWidth:=30;
    WorkBook.Worksheets[1].Columns[2].ColumnWidth:=35;
    WorkBook.Worksheets[1].Columns[3].ColumnWidth:=20;
    WorkBook.Worksheets[1].Columns[4].ColumnWidth:=20;
    WorkBook.Worksheets[1].Columns[5].ColumnWidth:=20;
  end;
 
WorkBook.Worksheets[1].Name := 'Отчёт';
 
WorkBook.Worksheets[1].Range['A1:F1'].Merge;
// задаем начертание, цвет, размер и тип шрифта для первого ряда
WorkBook.Worksheets[1].Rows[1].Font.Bold := True; //жирный
WorkBook.Worksheets[1].Rows[1].Font.Color := clRed;  // цвет красный
WorkBook.Worksheets[1].Rows[1].Font.Size := 14;  //размер 12
WorkBook.Worksheets[1].Rows[1].Font.Name := 'Times New Roman';  //шрифт
 
J:=1;
  DBGrid3.DataSource.DataSet.First;
  DBGrid3.DataSource.DataSet.First;
  with DBGrid3.Columns do
    begin
      i:=1;
        if Items[I-1].Visible then
        begin
          WorkBook.Worksheets[1].Cells.Item[J,I].Value:= 'Заработная плата с' ;
          WorkBook.Worksheets[1].Cells.Item[J,I].Font.Bold := True;
        end;
    end;
 
J := 2;
  DBGrid3.DataSource.DataSet.First;
  with DBGrid3.Columns do
    begin
      for i := 1 to Count  do
        if Items[I-1].Visible then
        begin
          WorkBook.Worksheets[1].Cells.Item[J,I].Value:= Items[I-1].Title.Caption;
          WorkBook.Worksheets[1].Cells.Item[J,I].Font.Bold := True;
        end;
    end;
 
 
Range := WorkBook.Worksheets[1].Range[Cell1, Cell2]; //выделение диапазона  Excel
Range.Value := ArrayData; //заполнение выделенного диапазона
ExcelApp.Visible := true; // приложение Excel становится видимым
 
    end;
0
Миниатюры
Как в Excel экспортировать время?  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.06.2015, 21:15
Ответы с готовыми решениями:

Программно экспортировать Excel 2010
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus,...

Как программно экспортировать раздел реестра в reg файл?
Программа лезет в реестр в определенное место, читает от туда данные. Если находит лишнее, тогда...

Как модель из 3d max экспортировать в Delphi 7?Если можно видео урок»
Как модель из 3d max экспортировать в Delphi 7?Если можно видео урок

Как экспортировать отдельные записи в Excel?
Здравствуйте! Долго искал по форумам, но так и не нашел даже близкой темы по моей проблеме....

Как из ADOTable экспортировать данные в excel?
Работаю в Embarcadero RAD Studio 2010. Как из ADOTable экспортировать данные в Excel файл? для...

2
Dasha18
5 / 5 / 1
Регистрация: 20.04.2013
Сообщений: 95
29.06.2015, 11:48  [ТС] 2
Совсем не кто не знает?
0
dalx
3 / 3 / 0
Регистрация: 28.06.2015
Сообщений: 12
29.06.2015, 14:15 3
точно ль не экспортирует время? в самом экселе формат поля проверяли?

и если всё ж поглядеть ваш пример - то лучше целиком исходник.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.06.2015, 14:15

Как из Excel экспортировать данные в dbf
Можно в самом Excel сделать форму на ней кнопку "Экспорт"?

Как экспортировать данные в Excel с VBA
Как экспортировать данные Query1 в Excel с VBA (например на диск с семенем эксспорт ) так штоби ...

Как экспортировать таблицу из Excel в Maple
Подскажите как экспортировать таблицу из Excel в Maple и найти собственные значения если матрица...


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

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

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