Всем, здравствуйте. Делаю Excel запрос из Microsoft Query из Excel Files. В источнике "Даты.xls" даты записаны в виде текста. Скажите как в запросе, в инструкции SQL, преобразовать текст в дату.
Пробовал TO DATE, CAST и CONVERT. Пишет "Неопределенная функция 'TO DATE' в выражении."
Записал макрорекордером
Может можно сделать через VBA?
| Код |
|---|
SELECT `TDSheet$`.`Дата ПЛ` AS 'Дата' FROM `F:\Даты.xls`.`TDSheet$` `TDSheet$` |
Записал макрорекордером
| Код |
|---|
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 |
Изменено: - 08.02.2018 11:54:59
Excel всемогущий.
