我继承了一个非常古老的项目。目前有 MS Access 2019 数据库。该数据库具有 MSSQL Server 数据库的 DSN。 MS Access 中有交叉表查询,可以从 MSSQL 中提取数据并将该数据导出到 Excel 中。问题是,日期返回为日期时间,而不仅仅是日期。它们仅在 MSSQL 中是日期,但在过程中的某个地方,它们被转换为日期时间。
我在 MS Access 或交叉表查询方面经验很少。抛出一个冰雹玛丽,看看是否有人知道从哪里开始,或者解决办法是什么。下面是 Excel 中的连接字符串和查询供参考。
(评论会很混乱) 在 VBA 中,Excel 中的交叉表如下所示:
With PivotCaches.Add(xlExternal)
.Connection = "OLEDB;Provider=MSOLEDBSQL19;Data Source=server=..."
.CommandType = xlCmdSQL
.CommandText = "< your sql here >"
.CreatePivotTable("A1", "myPivTable")
Endwith
With ActiveSheet.PivotTables("myPivTable")
.SmallGrid = false
.AddFields(rowFieldsArray, columnFieldsArray, pageFieldsArray)
.PivotFields("YourDataField").Orientation = xlDataField
Endwith