Проблема с форматированием при выгрузке дат в Excel |
Set XL = CreateObject("excel.application") XL.Workbooks.Open FileName:=strPathFileXLS sql = "select * from qry_ViewMer_E" Set rs = CurrentDb.OpenRecordset(sql) XL.Worksheets(1).Cells(10, 1).CopyFromRecordset rs rs.Close Set rs = Nothing XL.ActiveWorkbook.SaveAs FileName:=strOutputPath & "\" & sss XL.Workbooks.Close XL.Quit Set XL = Nothing
XL.Worksheets(1).Cells(10, 1).CopyFromRecordset rsВ шаблоне Excel у меня стоит формат месяц-год а выводится дд.мм.гггг
http://www.sql.ru/forum/1155618/problema-s-formatirovaniem-pri-vygruzke-dat-v-excel
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |