Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.02.2018, 11:52   #1
agregator
Форумчанин
 
Аватар для agregator
 
Регистрация: 09.05.2009
Сообщений: 369
По умолчанию Преобразовать текст в дату

Здравствуйте, уважаемые программисты. Делаю Excel запрос из Microsoft Query из Excel Files. В источнике "Даты.xls" даты записаны в виде текста. Скажите как в запросе, в инструкции SQL, преобразовать текст в дату.
Код:
SELECT `TDSheet$`.`Дата ПЛ` AS 'Дата'
FROM `F:\Даты.xls`.`TDSheet$` `TDSheet$`
Пробовал TO DATE, CAST и CONVERT. Пишет "Неопределенная функция 'TO DATE' в выражении."
Записал макрорекордером
Код:
Sub Запрос()
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=Excel Files;DBQ=F:\Даты.xls;DefaultDir=F:;DriverId=1046;MaxBufferSize=2048;PageTimeout=5;" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT `TDSheet$`.`Дата ПЛ` AS 'Дата'" & Chr(13) & "" & Chr(10) & "FROM `F:\Даты.xls`.`TDSheet$` `TDSheet$`" _
        )
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Таблица_Запрос_из_Excel_Files"
        .Refresh BackgroundQuery:=False
    End With
End Sub
Кросс
Может можно сделать через VBA?
Вложения
Тип файла: rar Даты.rar (3.6 Кб, 27 просмотров)
Тип файла: rar Запрос из Excel Files.rar (274 байт, 17 просмотров)
agregator вне форума Ответить с цитированием
Старый 08.02.2018, 15:35   #2
agregator
Форумчанин
 
Аватар для agregator
 
Регистрация: 09.05.2009
Сообщений: 369
По умолчанию

Спасибо, уже ответили здесь Андрей VG и БМВ
Код:
CDate(`TDSheet$`.`Дата ПЛ`) AS 'Дата'
agregator вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Преобразовать цифры ИИН в дату рождения№ Сырым Microsoft Office Excel 7 05.07.2016 08:48
Преобразовать дату Nekr0n Помощь студентам 0 09.10.2010 18:54
Преобразовать дату в текст без формул kipish_lp Microsoft Office Excel 8 11.05.2010 14:38
Преобразовать в дату Iskin Microsoft Office Excel 2 14.04.2009 07:57
Преобразовать в дату Marvel Microsoft Office Excel 21 22.01.2009 06:42