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

При попытке выполнить код:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
var ExcelFile: Variant;
AQuery:TQuery;
...
ExcelFile := CreateOleObject('Excel.Application');
AQuery := TMyQuery.Create(nil);
...
AQuery.SQL.Add('INSERT INTO test ('test_date') VALUES (':pTestDate');
[color=yellow]AQuery.ParamByName('pTestDate').Value := ExcelFile.Cells[1,10].Value;[/color]
AQuery.Insert;



В Excel в столбце даты заданы в формате dd.mm.yyyy, кроме того также имеются пустые поля в данном столбце.
...
Рейтинг: 0 / 0
21.08.2018, 14:59
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691131
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
Вручную обрабатывать. В дате получится прочитать, только если в экселе столбец с форматом даты будет. А он по умолчанию проставляется только для реальных данных, отсюда и фейлы на пустых. Можно проверять на Null, или брать Text, смотреть и уже оттуда отталкиваться (пусто или что-то есть).
...
Рейтинг: 0 / 0
21.08.2018, 15:05
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691140
L_argo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
L_argo
Участник
К сож. Эксель в-лоб обрабатывать нельзя.
Данные могут быть записаны как угодно, особенно дата.
Поэтому нужен некий парсер, кот. догадается, как вытащить из ячейки правильную дату.
...
Рейтинг: 0 / 0
21.08.2018, 15:17
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691167
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
wsnet,

Вот что нагуглилось, попробуйте:

Код: pascal
1.
   AQuery.ParamByName('pTestDate').Value := ExcelFile.Cells[1,10].getDateCellValue();
...
Рейтинг: 0 / 0
21.08.2018, 15:55
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691169
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
JaDi,

Скажите, если вот так напишу - будет ли нормально?
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
AQuery.SQL.Add('INSERT INTO test ('test_date') VALUES (':pTestDate');
if not (VarIsNull(ExcelFile.Cells[1,10].Value) or (Trim(ExcelFile.Cells[1,10].Value)) then
try
AQuery.ParamByName('pTestDate').Value := ExcelFile.Cells[1,10].Value;
AQuery.Insert;
except
  raise Exception.CreateMsg('Unable to convert %s to DateTime', [ExcelFile.Cells[1,10].Value]);
end;
...
Рейтинг: 0 / 0
21.08.2018, 15:56
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691172
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
P.S.

Думаю, если выйдет с getDateCellValue(), следует все-равно свой парсер для текста из .Value писать
Вдруг дата как текст сохранена
...
Рейтинг: 0 / 0
21.08.2018, 15:58
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691177
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
Проще: ExcelFile.Cells[1,10].Text
...
Рейтинг: 0 / 0
21.08.2018, 16:11
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691185
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
JaDi,

Не очень понял, проще где ?
...
Рейтинг: 0 / 0
21.08.2018, 16:19
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691194
Фотография JayDi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JayDi
Участник
wsnet,

Для проверки на пустое значение (text <> ''). Условие с трим тупо нерабочее (трим -- обрезает пробелы, а не проверяет).
...
Рейтинг: 0 / 0
21.08.2018, 16:38
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691262
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
Кроик Семён wsnet,

Вот что нагуглилось, попробуйте:

Код: pascal
1.
   AQuery.ParamByName('pTestDate').Value := ExcelFile.Cells[1,10].getDateCellValue();



Method getDateCellValue() not supported by automation object
...
Рейтинг: 0 / 0
21.08.2018, 19:16
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691378
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
А зачем к Excel подключаться через OLE если проще через "Microsoft Access Database Engine"
И у вас получится по-сути маппинг из одного датасета в другой, с совпадающей типизацией.
...
Рейтинг: 0 / 0
21.08.2018, 23:23
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691435
Фотография wsnet
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wsnet
Участник
X-Cite, не подскажите как формат устанавливать перед импортом из Excel ?
...
Рейтинг: 0 / 0
22.08.2018, 07:16
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691453
L_argo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
L_argo
Участник
Кроик СемёнP.S.

Думаю, если выйдет с getDateCellValue(), следует все-равно свой парсер для текста из .Value писать
Вдруг дата как текст сохранена+1.
Я так и делал. При импорте задается формат предполагаемой даты. При этом разделители могут быть любые.
...
Рейтинг: 0 / 0
22.08.2018, 08:59
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691581
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X11
Участник
+1
Импортируешь в строковую переменную, смотришь, в каком оно формате. А потом уже парсишь.
В конце концов:

Код: pascal
1.
2.
3.
4.
5.
6.
Var
 d, d1: TDateTime;
 stroka_s_datoy: string;
begin
VarDateFromStr(PWideChar(stroka_s_datoy), LOCALE_USER_DEFAULT, 0, d);// живёт в System.VarUtils
d1 := VarToDateTime(d);
...
Рейтинг: 0 / 0
22.08.2018, 11:26
| Ответить | Цитировать | Написать  
Импорт даты из Excel ошибка DateTime as Double
    #39691656
L_argo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
L_argo
Участник
// живёт в System.VarUtils

Там все уныло и негибко. Только свой парсер.
Тем более даты могут попадать в систему не только с Экселя, но и из XML/JSON/CSV
...
Рейтинг: 0 / 0
22.08.2018, 12:26
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Импорт даты из Excel ошибка DateTime as Double
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&gotonew=1&tid=2040497]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 161ms
get topic data:
 6ms
get first new msg:
 3ms
get forum data:
 9ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 218ms
total:  460ms
созд. / загр.: 460ms
x
x
Закрыть


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