مشکل با خروجی اکسل

[parsa70]

با سلام و احترام
من یک مشکلی دارم وقتی از subform خروجی اکسل میگیرم از تمام فیلد‌ها این خروجی رو میده به من در حالیکه من مثلا: بعضی از فیلدها رو حتی فیلتر میکنم بازم از تمام رکوردها خروجی میده
من الان داشتم سایت خارجی رو چک می‌کردم این مشکل رو گویا یکی داشته و حل شده مشکلش ولی من متوجه این کد نمیشم که تو فایل خودم هم اجرا کنم اگه امکان داره یکی کمک کنه

http://www.utteraccess.com/forum/export-filtered-subform-t1898244.html
Private Sub Command12_Click()
On Error GoTo errHandler
Dim qdf As QueryDef
DoCmd.DeleteObject acQuery, "qryTemp"
Set qdf = CurrentDb.CreateQueryDef("qryTemp", Me.qryPunchListTXT.Form.RecordSource)
DoCmd.OutputTo acOutputQuery, "qryTemp", acFormatXLS, "C:\Tbl1XLS.xls", True
exitHandler:
Exit Sub

errHandler:
If Err.Number = 7874 Then
Resume Next
Else
MsgBox Err.Number & " - " & Err.Description
Resume exitHandler
End If

End Sub
H

این رو من نمیدونم چی هست ؟ Me.qryPunchListTXT.Form که تو فایل خودم جایگزین کنم

سپاس

[mazoolagh]

0 - از تگ code استفاده کنین

1- تاپیک مشابه داشتیم پیشتر - البته عنوانش نامناسب هست :

https://barnamenevis.org/showthread.php?557217-استفاده-از-اسپلیت-فرم-بجای-سابفرم

چکیده داستان این هست که وقتی از فرم خروجی میگیرین کنترلی روش ندارین، باید از کوئری استفاده کنین.

[parsa70]

سلام
از این استفاده کردم درست شد دیگه فیلتر هم میکنم از رکوردهای فیلتر شده خروجی داده می‌شود.
On Error GoTo Image20_Click_Err
Me.FrmAnbarSearchSub.SetFocus


DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim xlapp As Object
Set xlapp = CreateObject("Excel.Application")
With xlapp
.Workbooks.add
.ActiveSheet.PasteSpecial Format:="biff5", Link:=False, DisplayAsIcon:=False


.Cells.Select
.Cells.EntireColumn.AutoFit
.Visible = True
.range("a1").Select




End With
Image20_Click_Exit:
Exit Sub
Image20_Click_Err:
MsgBox Error$
Resume Image20_Click_Exit

اگه میشد اکسل هم خودکار راست به چپ می‌شد و یا border هم میزاشت که خیلی خوب بود.