Please try this (you will need to create a new query named qryX_Filtered based on the original one):
Code:
Dim SelectedItem As Variant,strFilter as String,qdfSelected as DAO.QueryDef,strSQL as String
For Each SelectedItem In fd.SelectedItems
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "qunAgreementsAndArchives", fd.InitialFileName, True
strFilter = Nz(Forms!YourForm!Subform.Form.Filter,"") 'here you reference your filtered subform
Set qdfSelected = CurrentDb.QueryDefs("qryX_Filtered")
If strFilter = "" Then
qdfSelected.SQL= "SELECT qunAgreementsAndArchives.* FROM qunAgreementsAndArchives;"
Else
qdfSelected.SQL= "SELECT qunAgreementsAndArchives.* FROM qunAgreementsAndArchives WHERE " & strFilter & ";"
End If
Next SelectedItem
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "qryX_Filtered",fd.InitialFileName, True
Cheers,