非常感谢各位高手及版主的帮助，再请教一个问题，谢谢！

Deran

我用如下代码将子窗体中经过筛选的记录导出到EXCEL中，点击按钮后出现保存EXCEL文件对话框，但就是导不成功，选定的目录下没有导出的EXCEL文件，为什么？代码有错吗？谢谢！

On Error Resume Next
DoCmd.OutputTo acOutputForm, "报价查询子表", acFormatXLS, , True
End Sub



请帮忙，十分感谢！


我补充下，子窗体中记录是通过一个查询得来的，然后在主窗体上设置筛选条件后，将筛选后的记录导出EXCEL，谢谢！

82077802

'导出Excel函数

'Qname--查询名称

'Pfrmane--父窗体名称

'Ctlname--子窗体控件名称

'n--n=1按子窗体，n=2按子窗体数据源查询

Public Function myoutE(Qname As String, Pfrmname As String, Ctlname As String, n As Long)

Dim myform As Form

Dim Qdef As QueryDef

Dim strSQL As String

Dim myformname As String

Set myform = Forms(Pfrmname).Controls(Ctlname).Form

myformname = myform.Name

SQLstr = myform.Form.RecordSource

SQLstr = "select * from " & SQLstr

Set Qdef = CurrentDb.QueryDefs(Qname)

Qdef.sql = SQLstr

Select Case n

          Case 1

                  DoCmd.OutputTo acOutputForm, myformname, acFormatXLS, CurrentProject.Path & "导出表.xls", True

          Case 2

                  DoCmd.OutputTo acOutputQuery, Qanme, acFormatXLS, CurrentProject.Path & "导出表.xls", True

End Select

Qdef.Close

Set Qdef = Nothing
End Function

Deran

首先感谢你的帮助，但是这个函数调用出错。是我参数不对吗？

myoutE ("报价查询", "报价查询", "报价查询子表",1)

Deran

再次恳求帮助，谢谢

Henry D. Sy

1.具体提示什么错误
2.发帖请注意标题

WDLRCZT

方便的话最好上传附件,这样便于调试找问题