5 / 5 / 1
Регистрация: 20.04.2013
Сообщений: 95
1

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

28.06.2015, 21:15. Показов 436. Ответов 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;
Миниатюры
Как в Excel экспортировать время?  
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.06.2015, 21:15
Ответы с готовыми решениями:

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

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

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

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

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

и если всё ж поглядеть ваш пример - то лучше целиком исходник.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2015, 14:15

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

Как экспортировать данные из Advantech Genie в Excel?
Нужно реализовать перенос данных из "Genie" в "Excel" и обратно. Неделю мучаюсь, не могу сделать,...

Как можно экспортировать данные из zedgraph в Excel?
Пожалуйста подскажите, где можно узнать о том, как можно экспортировать данные из zedgrapha в ...

Как разделить и экспортировать в Excel 10 значный символ на ячейки?
Привет всем! Нужна ваша помощь. Есть на форме текстбокс и кнопка. В текстбокс можно только ввести...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru