ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / не понятно как экспортировать даты в Excel
38 сообщений из 38, показаны все 2 страниц
  все  
не понятно как экспортировать даты в Excel
    #36999813
vgorshkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vgorshkov
Участник
Уважаемые Форумчане!

Экспортирую таблицу из SQL Server'a через Delphi в Excel 2007. Все экспортируется как положенно, но вот постоянная проблема с датами. Экспортирую я помассивно. Все элементы массива типа Variant. Но есть одна проблема, при экспорте формат ячейки в которую экспортируется дата меняется неизвестно от чего, то она текстовая, то числовая. Но вот отображение её всегда в числовом виде.

Проблему удалось решить преобразуя все даты в строки, все отображается корректно, но опять же не хочу это так оставлять, т.к. возможно пользователю понадобится сделать фильтр по месяцу, или же использовать дату в ячейке для вычислений каких нибудь, а там текст - а это не есть хорошо.

Надеюсь что кто нибудь сталкивался с подобной проблемой и поможет мне разобраться в данной ситуации
...
Рейтинг: 0 / 0
07.12.2010, 15:58:46
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37002301
Фотография Johnmen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Johnmen
Участник
Для "русского" Экселя:
Код: plaintext
1.
Range.NumberFormat:='ДД.ММ.ГГГГ';
Range.Value:=<переменная типа TDate/TDateTime>;
А вообще, гуги на тему NumberFormat.
...
Рейтинг: 0 / 0
08.12.2010, 15:20:07
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37002735
vgorshkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vgorshkov
Участник
Johnmen,

нет, не катит, я как только не пробовал, не проканало
...
Рейтинг: 0 / 0
08.12.2010, 17:09:49
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37002858
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соколинский Борис
Участник
vgorshkovНо есть одна проблема, при экспорте формат ячейки в которую экспортируется дата меняется неизвестно от чего, то она текстовая, то числовая. Но вот отображение её всегда в числовом виде. Слабо верится. Пример можешь выложить?
...
Рейтинг: 0 / 0
08.12.2010, 17:48:44
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003160
Xordal
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Xordal
Участник
данные также передавать как строка, просто формат ячейки в самом excel устанавливать не "общий", а "дата"
...
Рейтинг: 0 / 0
08.12.2010, 20:37:38
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003181
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соколинский Борис
Участник
Данные нужно передавать как даты, в том числе принудительно задавать VarType.
Не исключено, что в этом и суть проблемы: после каких-то манипуляций данные становятся типа Double.
...
Рейтинг: 0 / 0
08.12.2010, 20:56:17
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003207
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
Соколинский БорисДанные нужно передавать как даты, в том числе принудительно задавать VarType.
Не исключено, что в этом и суть проблемы: после каких-то манипуляций данные становятся типа Double.А это в Экселе установлен "стандартный" формат ячеек
...
Рейтинг: 0 / 0
08.12.2010, 21:12:55
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003315
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соколинский Борис
Участник
[quot GatorА это в Экселе установлен "стандартный" формат ячеек[/quot]
Нет, я имел в виду что-то типа этого
Код: plaintext
1.
2.
3.
 var  X: variant;
X:=now;  // VarType(X)=varDate 
X:=now+ 1 ;  //VarType(X)=varDouble
Не исключено, что у автора что-то подобное происходит.
Стандартный формат отображает даты как даты.
...
Рейтинг: 0 / 0
08.12.2010, 22:37:07
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003425
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
Соколинский БорисGatorА это в Экселе установлен "стандартный" формат ячеек
Нет, я имел в виду что-то типа этого
Код: plaintext
1.
2.
3.
 var  X: variant;
X:=now;  // VarType(X)=varDate 
X:=now+ 1 ;  //VarType(X)=varDouble
Не исключено, что у автора что-то подобное происходит.
Стандартный формат отображает даты как даты.IMHO ну их. Даже без Delphi при копировании/импорте в Excel бывало, что среди дат вдруг лезут "DateTime as Double" или "Integer as Date".
Так что у меня рефлекс: хочешь дату - установи формат
...
Рейтинг: 0 / 0
09.12.2010, 00:19:13
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003532
Фотография MMM_Corp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MMM_Corp
Участник
возможно оно вам и не надо, но напишу:

1. выборку данных с MSSQL сервака в езель можно делать напрямую - Данные, с сервера SQL...
2. можно сам екзель использовать как СУБД (г.. конечно, но можно,), при этом не надо думать над форматами данных ячеек
...
Рейтинг: 0 / 0
09.12.2010, 06:36:08
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003713
vgorshkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vgorshkov
Участник
Соколинский Борис,

Код: plaintext
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.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
    RowCount:=frmMultTrans.ReportBase.RecordCount+ 7 ;
    ColCount:=frmMultTrans.ReportHeader.RecordCount+ 1 ;
    row_count_all:=row_count_all+frmMultTrans.ReportBase.RecordCount;

     if  max_col_count<ColCount  then  max_col_count:=ColCount;

    frmMultTrans.ReportHeader.First;
     while   not  frmMultTrans.ReportHeader.Eof  do   begin 
      Workbook.ActiveSheet.Range[chr(frmMultTrans.ReportHeader.RecNo+ 1 + 64 )+inttostr(pos+ 3 )+':'+chr(frmMultTrans.ReportHeader.RecNo+ 1 + 64 )+inttostr(pos+rowcount)].Select;
       if  frmMultTrans.ReportHeader.FieldByName('align').AsString='L'  then 
        Excel.Selection.HorizontalAlignment :=  1 ;
       if  frmMultTrans.ReportHeader.FieldByName('align').AsString='C'  then 
        Excel.Selection.HorizontalAlignment :=  3 ;
       if  frmMultTrans.ReportHeader.FieldByName('align').AsString='R'  then 
        Excel.Selection.HorizontalAlignment :=  4 ;

       if  frmMultTrans.ReportHeader.FieldByName('type').AsString='S'  then 
        Excel.Selection.NumberFormat := '@';
       if  frmMultTrans.ReportHeader.FieldByName('type').AsString='I'  then 
        Excel.Selection.NumberFormat := '# ##0';
       if  frmMultTrans.ReportHeader.FieldByName('type').AsString='F'  then 
        Excel.Selection.NumberFormat := '# ##0'+SysUtils.DecimalSeparator+'00';
       if  frmMultTrans.ReportHeader.FieldByName('type').AsString='A'  then 
        Excel.Selection.NumberFormat := '# ##0'+SysUtils.DecimalSeparator+'000';

      frmMultTrans.ReportHeader.Next;
     end ;

    sum_kl2:= 0 ;

    ArrayData := VarArrayCreate([ 1 , RowCount,  1 , ColCount], varVariant);
    frmMultTrans.ReportHeader.First;
     while   not  frmMultTrans.ReportHeader.Eof  do   begin 
      ArrayData[ 6 ,frmMultTrans.ReportHeader.RecNo+ 1 ]:=frmMultTrans.ReportHeader.FieldByName('new_header').AsString;
      frmMultTrans.ReportHeader.Next;
     end ;

    frmMultTrans.ReportHeader.First;
     for  j:= 2   to  ColCount  do   begin 
      frmMultTrans.ReportBase.First;
      sum_kl:= 0 ;
       for  i:= 7   to  RowCount- 1   do   begin 

         if  frmMultTrans.ReportHeader.FieldByName('type').AsString='I'
           then  ArrayData[i, j]:=frmMultTrans.ReportBase.FieldByName(frmMultTrans.ReportHeader.FieldByName('header').AsString).AsInteger
         else 
         if  frmMultTrans.ReportHeader.FieldByName('type').AsString='F'
           then  ArrayData[i, j]:=frmMultTrans.ReportBase.FieldByName(frmMultTrans.ReportHeader.FieldByName('header').AsString).AsFloat
         else 
         if  frmMultTrans.ReportHeader.FieldByName('type').AsString='A'
           then  ArrayData[i, j]:=frmMultTrans.ReportBase.FieldByName(frmMultTrans.ReportHeader.FieldByName('header').AsString).AsFloat
         else 
         if  frmMultTrans.ReportHeader.FieldByName('type').AsString='D'
           then  ArrayData[i, j]:=frmMultTrans.ReportBase.FieldByName(frmMultTrans.ReportHeader.FieldByName('header').AsString).AsDateTime
         else 
          ArrayData[i, j]:=frmMultTrans.ReportBase.FieldByName(frmMultTrans.ReportHeader.FieldByName('header').AsString).AsString;

         if  frmMultTrans.ReportHeader.FieldByName('can_sum').AsBoolean
           then  sum_kl:=sum_kl+frmMultTrans.ReportBase.FieldByName(frmMultTrans.ReportHeader.FieldByName('header').AsString).AsVariant;
        frmMultTrans.ReportBase.Next;
       end ;
       if  frmMultTrans.ReportHeader.FieldByName('can_sum').AsBoolean
         then  ArrayData[RowCount, j]:=sum_kl;
       if  frmMultTrans.ReportHeader.FieldByName('can_sum_avr').AsBoolean  then   begin 
        sum_kl_all:=sum_kl_all+sum_kl;
        sum_kl2:=sum_kl;
       end ;
      frmMultTrans.ReportHeader.Next;
     end ;
     for  i:= 7   to  RowCount- 1   do   begin 
      ArrayData[i,  1 ]:=i- 6 ;
     end ;

    ArrayData[ 1 , 1 ]:=ColCount;
    ArrayData[ 2 , 1 ]:=RowCount- 7 ;
    ArrayData[ 3 , 1 ]:=sum_kl2;
     if  BlanksBase.FieldByName('lang_id').AsInteger= 1   then   begin 
      ArrayData[ 4 , 1 ]:=ansiuppercase(RoubleUnit.RealToRouble(sum_kl2,
        ValyutaBase.FieldByName('valyuta_text_rus').AsString, ValyutaBase.FieldByName('valyuta_end').AsBoolean,
        ValyutaBase.FieldByName('cent_text_rus').AsString, ValyutaBase.FieldByName('cent_end').AsBoolean, ValyutaBase.FieldByName('dop').AsString));
      ArrayData[ 5 , 1 ]:=frmMultTrans.AnyQuery.FieldByName('inv_text').AsString;
      ArrayData[ 6 , 1 ]:='¹';
     end   else 
     if  BlanksBase.FieldByName('lang_id').AsInteger= 2   then   begin 
      ArrayData[ 4 , 1 ]:=ansiuppercase(RoubleUnit.RealToDollars(sum_kl2,
        ValyutaBase.FieldByName('valyuta_text_eng').AsString,
        ValyutaBase.FieldByName('cent_text_eng').AsString))+' ONLY';
      ArrayData[ 5 , 1 ]:=frmMultTrans.AnyQuery.FieldByName('inv_text').AsString;
      ArrayData[ 6 , 1 ]:='#';
     end ;

    Cell1 := WorkBook.WorkSheets[ 1 ].Cells[pos+ 1 ,  1 ];
    Cell2 := WorkBook.WorkSheets[ 1 ].Cells[pos+RowCount, ColCount];
    Range := WorkBook.WorkSheets[ 1 ].Range[Cell1, Cell2];
    Range.Value := ArrayData;
...
Рейтинг: 0 / 0
09.12.2010, 10:09:00
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003722
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
vgorshkov, многа букаф Без намека на даты
...
Рейтинг: 0 / 0
09.12.2010, 10:15:30
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003791
vgorshkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vgorshkov
Участник
Gator,

Код: plaintext
1.
2.
     if  ReportHeader.FieldByName('type').AsString='D'  then 
      Excel.Selection.NumberFormat := 'ДД.ММ.ГГГГ';

вот если так сделать, то все работает как положено, но...если у пользователя Excel английский или еще какой нибудь? как определить какой именно формат здесь приемлемо использовать?
...
Рейтинг: 0 / 0
09.12.2010, 10:45:14
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003807
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
vgorshkov, http://www.delphikingdom.com/asp/viewitem.asp?catalogid=920
...
Рейтинг: 0 / 0
09.12.2010, 10:53:22
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003831
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
vgorshkovGator,

Код: plaintext
1.
2.
     if  ReportHeader.FieldByName('type').AsString='D'  then 
      Excel.Selection.NumberFormat := 'ДД.ММ.ГГГГ';

вот если так сделать, то все работает как положено, но...если у пользователя Excel английский или еще какой нибудь? как определить какой именно формат здесь приемлемо использовать?
Для локализованых Экселей положено использовать NumberFormatLocal
...
Рейтинг: 0 / 0
09.12.2010, 11:04:51
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003910
vgorshkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vgorshkov
Участник
Gator,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
 function  XL_GetShortDateFormat(XLApp: ExcelApplication):  String ;
 var  d, m, y: Integer;
 begin 
   if  XLApp.International[xlDayLeadingZero, lcid]
     then  d :=  2   else  d :=  1 ;
   if  XLApp.International[xlMonthLeadingZero, lcid]
     then  m :=  2   else  m :=  1 ;
   if  XLApp.International[xl4DigitYears, lcid]
     then  y :=  4   else  y :=  2 ;
  Result := Format('%1:s%0:s%2:s%0:s%3:s', [
    DateSeparator,
    StringOfChar(VarToStr(XLApp.International[xlDayCode, lcid])[ 1 ], d),
    StringOfChar(VarToStr(XLApp.International[xlMonthCode, lcid])[ 1 ], m),
    StringOfChar(VarToStr(XLApp.International[xlYearCode, lcid])[ 1 ], y)
  ]);
 end ;

пытался использовать функцию указанную в этой статье, дает ошибку:
'(' expected but '[' found

а что за ошибка, я не могу понять...не учили нас такому в Туркмении :(
...
Рейтинг: 0 / 0
09.12.2010, 11:31:06
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003931
vgorshkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vgorshkov
Участник
Anatoly Podgoretsky,

просвятите пожалуйста, что значит локализованная эксель? это значит что настройки региональные отличаются от глобальных? или как? я пробовал гуглить на эту тему, ничего не нашел
...
Рейтинг: 0 / 0
09.12.2010, 11:35:37
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37003993
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
vgorshkov, А ты не используй TExcelApplication, а используй нормальную COM/OLE
...
Рейтинг: 0 / 0
09.12.2010, 11:55:03
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37004081
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соколинский Борис
Участник
vgorshkov,
В твоем коде слишком много мест, где может быть ошибка.
Давай так: берешь простой пример, который работает:
 
Код: plaintext
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.
 program  Project1;

 {$APPTYPE CONSOLE} 

 uses 
  SysUtils, ComObj, Variants, ActiveX;

 Const 
  CellCount= 100 ;

 var 
  XL, WB, Data: OleVariant;
  i: integer;

 begin 
  CoInitialize( nil );

  XL:=CreateOleObject('Excel.Application');
   try 
     try 
      XL.DisplayAlerts:=False;

      WB:=XL.WorkBooks.Add;

      data:=varArrayCreate([ 0 ,CellCount- 1 , 0 , 0 ], varVariant);

       for  I:= 0   to  cellCount- 1   do 
        Data[i, 0 ]:=VarAsType( Random( 37000 ) {дата}  + Random  {время} , varDate);

      WB.ActiveSheet.Cells[ 1 , 1 ].Resize[CellCount, 1 ].Value:=Data;

      XL.Visible:=true;

     except 
      XL.Quit;
       Raise ;

     end ;
   finally 
    XL:=null;
   end ;
 end .
пошагово добавляешь свои примамбасы и выясняешь в какой момент работать перестанет.
Так быстрее ошибку найдем
...
Рейтинг: 0 / 0
09.12.2010, 12:17:59
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37004411
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
vgorshkovAnatoly Podgoretsky,

просвятите пожалуйста, что значит локализованная эксель? это значит что настройки региональные отличаются от глобальных? или как? я пробовал гуглить на эту тему, ничего не нашел
Зачем же используешь не локализованую версию. Она же только для английского.
авторReturns or sets the format code for the object as a string in the language of the user.
Почему ты вводишь локализированый формат для английских пользователей
авторесли у пользователя Excel английский или еще какой нибудь?
Думаешь оно понимает ДД.ММ.ГГГГ
Для ДД.ММ.ГГГГ существует NumberFormatLocal, а не NumberFormat
...
Рейтинг: 0 / 0
09.12.2010, 13:52:52
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37004894
vgorshkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vgorshkov
Участник
уважаемые, я наверное не совсем понимаю что нужно делать, я поставил проверку такого типа:

Код: plaintext
1.
2.
     if  ReportHeader.FieldByName('type').AsString='D'  then 
      Excel.Selection.NumberFormatLocal := 'ДД.ММ.ГГГГ';

т.е. если тип Дата, то преобразовать в дату, все работает прекрасно, но как сделать чтобы это работало независимо от версии Excel?

Статьи которые Вы предлогали я прочел, пробовал использовать функции которые там описаны, но они ничего хорошего мне непринесли, дают ошибки непонятного для меня характера. Может кто знает где можно про все это дело почитать в подробностях?
...
Рейтинг: 0 / 0
09.12.2010, 16:17:24
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37004967
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соколинский Борис
Участник
vgorshkovт.е. если тип Дата, то преобразовать в дату, все работает прекрасно, но как сделать чтобы это работало независимо от версии Excel? Из дельфей не сделаешь, поскольку мелкомягкие не доделали это место для Automation и неизвестно когда доделают. Только макросом.
...
Рейтинг: 0 / 0
09.12.2010, 16:42:50
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37005055
Фотография Anatoly Podgoretsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anatoly Podgoretsky
Участник
vgorshkovуважаемые, я наверное не совсем понимаю что нужно делать, я поставил проверку такого типа:

Код: plaintext
1.
2.
     if  ReportHeader.FieldByName('type').AsString='D'  then 
      Excel.Selection.NumberFormatLocal := 'ДД.ММ.ГГГГ';

т.е. если тип Дата, то преобразовать в дату, все работает прекрасно, но как сделать чтобы это работало независимо от версии Excel?

Статьи которые Вы предлогали я прочел, пробовал использовать функции которые там описаны, но они ничего хорошего мне непринесли, дают ошибки непонятного для меня характера. Может кто знает где можно про все это дело почитать в подробностях?
Попробуй в NumberFormat указать 'dd.mm.yyyy' и проверить на русской локализации.
...
Рейтинг: 0 / 0
09.12.2010, 17:04:00
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37005060
vgorshkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vgorshkov
Участник
Anatoly Podgoretsky,

попробовал, вместо всех дат пишет dd.mm.yyyy
...
Рейтинг: 0 / 0
09.12.2010, 17:05:28
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37005196
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соколинский Борис
Участник
В Excel-e есть древний баг: когда через Automation задаешь Range.NumberFormat на самом деле отрабатывает Range.NumberFormatLocal. Лечится либо макросом, либо шаблоном с форматированием (условным форматированием).
...
Рейтинг: 0 / 0
09.12.2010, 17:50:13
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37005221
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
Соколинский БорисВ Excel-e есть древний баг: когда через Automation задаешь Range.NumberFormat на самом деле отрабатывает Range.NumberFormatLocal. Лечится либо макросом, либо шаблоном с форматированием (условным форматированием).Вроде как в 2007 Офисе его исправили? Проверить не могу.
...
Рейтинг: 0 / 0
09.12.2010, 17:57:41
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37005288
Соколинский Борис
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Соколинский Борис
Участник
GatorВроде как в 2007 Офисе его исправили? Проверить не могу. Я могу. Не исправили.
...
Рейтинг: 0 / 0
09.12.2010, 18:23:37
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37005350
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
Соколинский БорисGatorВроде как в 2007 Офисе его исправили? Проверить не могу. Я могу. Не исправили.Вот засада! Неужели придется проверять в Documents to Go?
...
Рейтинг: 0 / 0
09.12.2010, 18:52:00
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37005354
Фотография Gator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gator
Участник
Соколинский БорисGatorВроде как в 2007 Офисе его исправили? Проверить не могу. Я могу. Не исправили.Вот засада! Неужели придется проверять в Documents to Go?
...
Рейтинг: 0 / 0
09.12.2010, 18:53:37
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37006003
Antoshka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antoshka
Участник
Попробуй для конвертирования форматной строки дельфи в Excel следующий код:

Код: plaintext
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.
 class   function  tExcelHelper.ConvertFormatString( const  DelphiFormatString:  string ;
    ExcelApp: variant):  string ;
   var 
    i: integer;
    s:  string ;
 begin 
  s:= '';

   for  i:=  1   to  Length(DelphiFormatString)  do 
     case  UpCase(DelphiFormatString[i])  of 
      '/': s:= s + VarToStr(ExcelApp.International[xlDateSeparator]);
      ':': s:= s + VarToStr(ExcelApp.International[xlTimeSeparator]);
      'D': s:= s + VarToStr(ExcelApp.International[xlDayCode]);
      'M': s:= s + VarToStr(ExcelApp.International[xlMonthCode]);
      'Y': s:= s + VarToStr(ExcelApp.International[xlYearCode]);
      'H': s:= s + VarToStr(ExcelApp.International[xlHourCode]);
      'N': s:= s + VarToStr(ExcelApp.International[xlMinuteCode]);
      'S': s:= s + VarToStr(ExcelApp.International[xlSecondCode]);
      ',': s:= s + VarToStr(ExcelApp.International[xlThousandsSeparator]);
      '.': s:= s + VarToStr(ExcelApp.International[xlDecimalSeparator]);
     else 
      s:= s + DelphiFormatString[i];
     end ;

  Result:= s;
 end ;

У меня работает на всех версиях Excel, начиная с 2003. (Ниже просто не проверял).

Единственное, нужно всегда указывать формат выводимого значения иначе будут траблы с автоподбором формата. Для строк указывать текстовый формат '@'
...
Рейтинг: 0 / 0
10.12.2010, 09:00:26
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #37006088
vgorshkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vgorshkov
Участник
Antoshka,

Благодарю, теперь все работает. Функция - супер
...
Рейтинг: 0 / 0
10.12.2010, 09:29:10
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
не понятно как экспортировать даты в Excel
    #38527336
MrDeadgott
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrDeadgott
Гость
Добрый день. Суть проблемы. Передаю данные из Delphi в Exel. Причём в заранее созданную книгу. У меня в БД Delphi порядка 78 записей, а в Exel передаёт только 29. Почему? Помогите пожалуйста. Вот обработчик сего действия:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
procedure TForm1.Button9Click(Sender: TObject);
var
a,b: Integer;
ExApp, WB, WS: Variant;
begin
ExApp:=CreateOleObject('Excel.Application');
WB:=ExApp.WorkBooks.Open('C:\Users\Вассська\Desktop\База данных\База данных(1)\данные1(1).xlsm');
WS := ExApp.Workbooks[1].WorkSheets[1];
with TMyDBGrid(DBGrid1).DataLink do
begin

for a:=0 to (RecordCount-1) do
begin
ActiveRecord:=a;
for b:=0 to (FieldCount-1) do
begin
WS.Cells[a+2, b+1].Value:=Fields.AsString;
end;
end;
ExApp.Visible:=true;
end;

end;



[b]Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
15.01.2014, 17:34:31
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #38527408
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
MrDeadgottwith TMyDBGrid(DBGrid1).DataLink do
Должно быть DBGrid1.DataSet и перед этим вызов DBGrid1.DataSet.First, а потом цикл while not DBGrid1.DataSet.Eof с DBGrid1.DataSet.Next в теле цикла.
...
Рейтинг: 0 / 0
15.01.2014, 18:24:48
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #38527462
MrDeadgott
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrDeadgott
Гость
wadmanMrDeadgottwith TMyDBGrid(DBGrid1).DataLink do
Должно быть DBGrid1.DataSet и перед этим вызов DBGrid1.DataSet.First, а потом цикл while not DBGrid1.DataSet.Eof с DBGrid1.DataSet.Next в теле цикла.

Дружище, напиши пожалуйста этот код. Я уже 15 дней насилую мозг этой бд(почти круглосуточно)=(
Буду премного благодарен
...
Рейтинг: 0 / 0
15.01.2014, 19:22:24
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #38529325
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
MrDeadgott, см 15428963
...
Рейтинг: 0 / 0
17.01.2014, 12:05:36
| Ответить | Цитировать | Написать  
не понятно как экспортировать даты в Excel
    #38529470
Фотография user89
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
user89
Участник
MrDeadgott,

на всякий случай
Код: pascal
1.
Sheet.Range['A2', EmptyParam].CopyFromRecordset(ADOQuery1.Recordset, EmptyParam, EmptyParam);
...
Рейтинг: 0 / 0
17.01.2014, 13:09:18
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
не понятно как экспортировать даты в Excel
    #39026180
Sevolod
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sevolod
Гость
А кто-нибудь сталкивался вот с чем.

Если экспортировать из Delphi в Excel дату без времени, то установка
Код: pascal
1.
.NumberFormat := 'ДД/ММ/ГГГГ'

помогает. Месяц и день местами не меняются. А если экспортировать дату со временем, то
Код: pascal
1.
.NumberFormat := 'ДД/ММ/ГГГГ ЧЧ:ММ:СС'

не помогает. Месяц и день местами меняются.
...
Рейтинг: 0 / 0
10.08.2015, 12:31:59
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
не понятно как экспортировать даты в Excel
    #39563620
andreymx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andreymx
Участник
AntoshkaПопробуй для конвертирования форматной строки дельфи в Excel следующий код:

Код: pascal
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.
class function tExcelHelper.ConvertFormatString(const DelphiFormatString: string;
    ExcelApp: variant): string;
  var
    i: integer;
    s: string;
begin
  s:= '';

  for i:= 1 to Length(DelphiFormatString) do
    case UpCase(DelphiFormatString[i]) of
      '/': s:= s + VarToStr(ExcelApp.International[xlDateSeparator]);
      ':': s:= s + VarToStr(ExcelApp.International[xlTimeSeparator]);
      'D': s:= s + VarToStr(ExcelApp.International[xlDayCode]);
      'M': s:= s + VarToStr(ExcelApp.International[xlMonthCode]);
      'Y': s:= s + VarToStr(ExcelApp.International[xlYearCode]);
      'H': s:= s + VarToStr(ExcelApp.International[xlHourCode]);
      'N': s:= s + VarToStr(ExcelApp.International[xlMinuteCode]);
      'S': s:= s + VarToStr(ExcelApp.International[xlSecondCode]);
      ',': s:= s + VarToStr(ExcelApp.International[xlThousandsSeparator]);
      '.': s:= s + VarToStr(ExcelApp.International[xlDecimalSeparator]);
    else
      s:= s + DelphiFormatString[i];
    end;

  Result:= s;
end;



У меня работает на всех версиях Excel, начиная с 2003. (Ниже просто не проверял).

Единственное, нужно всегда указывать формат выводимого значения иначе будут траблы с автоподбором формата. Для строк указывать текстовый формат '@'спасибо
...
Рейтинг: 0 / 0
04.12.2017, 12:48:08
| Ответить | Цитировать | Написать  
38 сообщений из 38, показаны все 2 страниц
  все  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / не понятно как экспортировать даты в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=58&tid=2041479]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 209ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 90ms
get tp. blocked users:
 2ms
others: 234ms
total:  583ms
созд. / загр.: 583ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]