SAMPLE.zip
نقل قول نوشته شده توسط sadegh1944 مشاهده تاپیک
این هم یک نمونه برای خروجی اکسل، به همراه ایجاد پوشه، بجای "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
ممنون این خیلی خوبه هم اکسل راست چین هست و هم رنگ داره borderها ولی مشکلی که هست وقتی فرم رو فیلتر کنید خروجی اکسل از کل فرم میده و نه اون فیلد‌هایی که فیلتر شدن
نمونه گذاشتم ببینید متوجه می شوید.