ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / не понятно как экспортировать даты в Excel
13 сообщений из 38, страница 2 из 2
  2  все
не понятно как экспортировать даты в 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
| Ответить | Цитировать | Написать  
13 сообщений из 38, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / не понятно как экспортировать даты в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=37005221&tid=2041479]:
 0ms
get settings:
 11ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 181ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 237ms
total:  512ms
созд. / загр.: 512ms
x
x
Закрыть


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