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

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

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

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

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

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

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

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



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

Думаю, если выйдет с getDateCellValue(), следует все-равно свой парсер для текста из .Value писать
Вдруг дата как текст сохранена+1.
Я так и делал. При импорте задается формат предполагаемой даты. При этом разделители могут быть любые.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.08.2018, 11:26
    #39691581
X11
X11
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импорт даты из Excel ошибка DateTime as Double
+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, 12:26
    #39691656
L_argo
L_argo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Импорт даты из Excel ошибка DateTime as Double
// живёт в System.VarUtils

Там все уныло и негибко. Только свой парсер.
Тем более даты могут попадать в систему не только с Экселя, но и из XML/JSON/CSV
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Импорт даты из Excel ошибка DateTime as Double / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 422ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2040497]:
 0ms
get settings:
 5ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 169ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 200ms
total:  422ms
x
x
Закрыть


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