导出包含过滤器选项的文件

Question

您好，当导出结果时，会得到带有过滤器选项的excel文件，我该如何更改代码，以便在文件中不需要过滤器选项？

If session("UserID")="" Then
    Response.Redirect("/Default.asp")
End IF

rootPath = Application("TasksDirectory")
file = "TrackingNumbers_Walmart_US_HP_" & replace(replace(replace(now,"/","")," ",""),":","") & ".xls"
fileName = rootpath & "\TrackingNumbers_Walmart_US_HP_" & replace(replace(replace(now,"/","")," ",""),":","") & ".xls"

Set objFso = createobject("Scripting.FileSystemObject")
Set objReportFile = objFso.CreateTextFile( filename, True)