Office中国论坛/Access中国论坛

标题: 非常感谢各位高手及版主的帮助，再请教一个问题，谢谢！ [打印本页]

作者: Deran 时间: 2009-3-31 20:17
标题: 非常感谢各位高手及版主的帮助，再请教一个问题，谢谢！
本帖最后由 Deran 于 2009-3-31 21:00 编辑

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

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

请帮忙，十分感谢！

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

作者: 82077802 时间: 2009-3-31 20:25
'导出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 时间: 2009-3-31 20:49
首先感谢你的帮助，但是这个函数调用出错。是我参数不对吗？

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

作者: Deran 时间: 2009-4-1 09:33
再次恳求帮助，谢谢

作者: Henry D. Sy 时间: 2009-4-1 10:05
1.具体提示什么错误
2.发帖请注意标题

作者: WDLRCZT 时间: 2009-4-1 10:20
方便的话最好上传附件,这样便于调试找问题

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)