is there a way to filter data and copy into excell

[justlearning123]

I have a excel workbook and I want it so when I press a command button is pressed a userform comes up and ask what date and shift I want to view the data from and when I hit enter it will look in access and copy only the data with the shift and date selected? thank you

[ItsMe]

My favorite is copyfromrecordset


untested

Dim xlApp As New Excel.Application
Dim myBook As Workbook
Dim mySheet As Worksheet
 
Set myBook = xlApp.Workbooks.Add
Set mySheet = myBook.Worksheets(1)


dim rs as dao.recordset
set rs = currentdb.openrecordset("qryname", dbopensnapshot)

mySheet.CopyFromRecordset rs

rs.close
set rs = nothing

set MySheet = nothing

set mybook = nothing
mybook.close

set xlApp = nothing