无法将筛选后的子窗体的内容导出

shi981　发表于：2013-04-02 08:10:00 　

导出筛选后的子窗体的内容时总是出错，麻烦大家帮了看看，运行的时间下面标示红色的提出出错。

Private Sub Command10_Click()
Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
Dim strWhere, strSQL As String

    strWhere = Me.Ctl0331_JCH_子窗体.Form.Filter
    If strWhere = "" Then
        '没有条件
        strSQL = "SELECT * FROM [0331_JCH]"
    Else
        '有条件
        strSQL = "SELECT * FROM [0331_JCH] WHERE " & strWhere
    End If

    Set qdf = CurrentDb.QueryDefs("查询结果")
    qdf.SQL = strSQL
    qdf.Close

Set qdf = Nothing

DoCmd.OutputTo acOutputQuery, "查询结果", acFormatXLS, , True

Top

jia 发表于：2013-04-02 08:59:20

将导出代码改为如下；此代码可导出所有内容或查询结果

DoCmd.Hourglass True '设置鼠标指针为沙漏形状
Me![0331-JCH 子窗体].SetFocus '把焦点移动子窗体上

DoCmd.RunCommand acCmdSelectAllRecords
    DoCmd.RunCommand acCmdCopy
    Dim obj As Object
    Set obj = CreateObject("Excel.Application")
    obj.Workbooks.Add
    obj.Visible = True
SendKeys "^v"

导出

Top

shi981 发表于：2013-04-02 11:04:58

DoCmd.Hourglass True '设置鼠标指针为沙漏形状
这个估计要设置为　FALSE　要不鼠标一直为沙漏形状

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

无法将筛选后的子窗体的内容导出