[access报表]编程实现从报表导出到excel？-lixiang专栏

       DoCmd.DeleteObject acQuery, "try导出数据"
        Dim y, yes As Integer
        Dim str As String
        Dim db As Database
        Dim Qdf As QueryDef
        Dim SSQL As String
        Set db = CurrentDb
        SSQL = Me.List1.RowSource
        Set Qdf = db.CreateQueryDef("try导出数据", SSQL)
        str = InputBox("导出位置：", "导出代工成仓结存数据", "D:")
        If str <> "" Then
            DoCmd.OutputTo acOutputQuery, "try导出数据", acFormatXLS, str & "\导出代工成仓结存数据" & Me.Combo1 & ".xls"
            y = MsgBox("导出成仓结存数据后请修改后重新命名存盘....以免数据覆盖!", vbInformation, "提示信息!")

            yes = MsgBox("是否要打开导出代工成仓结存数据" & Me.Combo1 & "！", vbQuestion + vbYesNo, "提示信息！！！")
            If yes = vbYes Then
                Dim RetVal
                RetVal = Shell("EXCEL " + Chr(34) + str & "\导出代工成仓结存数据" & Me.Combo1 & ".xls" + Chr(34), vbMaximizedFocus)
            End If
        End If

上面的代码是我找到的一段关于list数据导出到excel的程序，但是我想实现这样的功能：首先从窗体上的2个日期控件分别点选时间为按日期查询的开始时间和结束时间，然后在报表里形成按日期查询的报表，不过我想用按钮实现导出到excel里，不知道从这样的数据怎么导出到excel里？上面的代码可以参考，就是不知道怎么该。那位朋友能帮我看看，谢谢！！！