این هم یک نمونه برای خروجی اکسل، به همراه ایجاد پوشه، بجای "qry_name" نام کوئری خودتون رو قرار بدهید
Private Sub cmdExcel_Click()
On Error GoTo Err_cmdExcel_Click
Dim strExcelPath As String
Dim strExcelFile As String
strExcelPath = Application.CurrentProject.Path & "\Excel_Out"
strExcelFile = strExcelPath & "\excel_out.xlsx"
If Len(Dir(strExcelPath & "", vbDirectory)) = 0 Then
MkDir strExcelPath
End If
DoCmd.OutputTo acOutputQuery, "qry_name", acFormatXLSX, strExcelFile, True, "", 0
Exit_cmdExcel_Click:
Exit Sub
Err_cmdExcel_Click:
MsgBox err.Description
Resume Exit_cmdExcel_Click
End Sub