在access中如何用VBA实现将用以下代码查询的数据生成一份名为存量日期的EXECL文件存储至指定位置c:\？SELECT 接触清单.呼叫日期 FROM 接触清单 GROUP BY 接触清单.呼叫日期 ORDER BY 接触清单.呼叫日期 DESC

可以使用以下代码实现将查询结果导出到Excel文件并存储到指定位置：

Sub ExportDataToExcel()
    Dim strQuery As String
    Dim strPath As String
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objRecordset As Object
    
    '设置查询语句
    strQuery = "SELECT 接触清单.呼叫日期 FROM 接触清单 GROUP BY 接触清单.呼叫日期 ORDER BY 接触清单.呼叫日期 DESC"
    
    '设置Excel文件保存路径
    strPath = "C:\存量日期.xlsx"
    
    '创建Excel对象
    Set objExcel = CreateObject("Excel.Application")
    
    '打开Excel文件
    Set objWorkbook = objExcel.Workbooks.Add
    
    '执行查询
    Set objRecordset = CurrentDb.OpenRecordset(strQuery)
    
    '将查询结果写入Excel文件
    objWorkbook.Sheets(1).Range("A1").CopyFromRecordset objRecordset
    
    '保存Excel文件
    objWorkbook.SaveAs strPath
    
    '关闭Excel文件和对象
    objWorkbook.Close
    objExcel.Quit
    
    '释放对象
    Set objRecordset = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
End Sub

你可以将上述代码复制到Access的VBA编辑器中，然后执行该程序即可将查询结果导出到Excel文件并保存到指定位置。