Export queries to Excel in Access using VBA

new_gist_file.vbs

Option Compare Database
Option Explicit
Sub ExportToXlsx()
  Dim cdb As DAO.Database, qdf As DAO.QueryDef
  Set cdb = CurrentDb
 
  Dim xlsxPath As String
 
  xlsxPath = "C:\GP_NBM_2012.xlsx"
  Set qdf = cdb.CreateQueryDef("01", _
          "SELECT * FROM t1 WHERE b like '*-2012-01*'")
  Set qdf = Nothing
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "01", xlsxPath, True
  DoCmd.DeleteObject acQuery, "01"
  
  Set qdf = cdb.CreateQueryDef("02", _
          "SELECT * FROM t1 WHERE b like '*-2012-02*'")
  Set qdf = Nothing
  DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "02", xlsxPath, True
  DoCmd.DeleteObject acQuery, "02"
  
  Set cdb = Nothing
End Sub