Question

我有一些导出查询的代码，但是当我查看导出时，我注意到在导出之前它实际上并没有运行查询。它似乎使用了以前运行查询的结果或其他东西。

我的VBA代码：

    Dim myQueryName As String
    Dim myExportFileName As String

    myQueryName = "qry_A" 
    myExportFileName = "J:\blah\Spreadsheet_" & Me![Combo353].Value & ".xlsx" 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, myQueryName, myExportFileName, True

我有一种感觉，在这段代码中我需要运行查询？但我不确定。

Answer 1

如果目标工作簿文件存在，请在DoCmd.TransferSpreadsheet之前删除该文件。

Dim myQueryName As String
Dim myExportFileName As String

myQueryName = "qry_A" 
myExportFileName = "J:\blah\Spreadsheet_" & Me![Combo353].Value & ".xlsx"
If Len(Dir(myExportFileName)) > 0 Then
    Kill myExportFileName
End If
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, myQueryName, myExportFileName, True

MS Access：VBA代码正在导出查询，但不是最新结果

1 个答案: