Как отфильтровать таблицу по вчерашней дате в MS Access VBA Code?

Question

Я пытался сделать простой экспорт в Excel, используя экспорт TransferSpreadsheet.

Public Function Test()
   Dim table_to_export As String
    Dim excel_file_name As String
    Dim has_header As Boolean

    'Name of the Access table to export:
    table_to_export = "AttendanceLogs"

    'Path of the file to put data in.  Update with your own path:
    excel_file_name = "F:\Test\Att.xlsx"

    'Export headers with data:
    has_header = True

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, table_to_export, excel_file_name
End Function

Экспорт работает нормально, в таблице есть столбец AttendanceDate.

Есть ли В любом случае, я могу добавить фильтр в таблицу на основе столбца даты (отфильтровать только вчерашние записи), а затем экспортировать в Excel

Answer 1

Создайте запрос:

Select * From AttendanceLogs Where AttendanceDate = DateAdd("d", -1, Date())

Сохраните его, скажем, AttendanceLogsYesterday .

Затем настройте свой код:

Dim query_to_export As String

' Name of the Access query to export:
query_to_export = "AttendanceLogsYesterday"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, query_to_export, excel_file_name