Vba 从Access导入Excel期间的混合日期格式

我在从Access导入数据时遇到一些问题，例如，在数据库中，有些日期格式是反向的，在我导入时，02 octobre变为2月10日，而9月29日保持不变

在Access数据库上，日期为日期格式。似乎在导入过程中，唯一没有反转的日期被导入为字符串，这不是我想要的，因此2017年9月29日被导入为字符串。并且以日期格式导入的日期与月份和日期相反，因此2017年2月10日导入为2017年10月2日，并在excel中确认为2月10日

下面是我从access检索数据的代码部分

Dim str_req As String

str_req = "SELECT  " & param_champs & " FROM Histo a, Referential b WHERE   a.productID = b.ID  AND  a.Isin IN " & sicoList


Dim recordset As New ADODB.recordset

recordset.Open str_req, objConn, adOpenDynamic
Worksheets("test").Range(Cells(2, colref), Cells(1500, colref + 2 + WorksheetFunction.CountA(Range("test.champs")))) = WorksheetFunction.Transpose(recordset.GetRows)

---

如果有人知道是什么导致了这个问题以及如何解决这个问题，这会对我很有帮助，因为我不是Access方面的专家。

您没有设置

参数的位置，但是在这个字符串中，您可以添加这个SQL（前提是在2001年1月1日和1月1日，源代码中始终存在程序0）

如果您有表写访问权限，并且它不会破坏任何东西，那么最好在表本身中修复它。您可以使用update语句来实现这一点

UPDATE temptemp
SET date_column = MID(date_column , 4, 3) & LEFT(date_column,3) & 
RIGHT(date_column, 4);

之后，在表的设计视图中，将日期字段更改为日期/时间数据类型

UPDATE temptemp
SET date_column = MID(date_column , 4, 3) & LEFT(date_column,3) & 
RIGHT(date_column, 4);