Office中国论坛/Access中国论坛

标题: ACCESS输入到EXCEL错误 [打印本页]

作者: loginwjd303 时间: 2009-8-26 11:12
标题: ACCESS输入到EXCEL错误
如何能把对应左侧选中产品编号右侧的明细输出到EXCEL

作者: liwen 时间: 2009-8-26 13:54
Private Sub Command34_Click()
On Error GoTo Err_Command34_Click

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

' strWhere = Me.CP.Form.Filter
' If strWhere = "" Then
      '没有条件
'       strSQL = "SELECT * FROM [CP]"
' Else
      '有条件
'       strSQL = "SELECT * FROM [CP] WHERE " & strWhere
' End If
strSQL = Me.CP.Form.RecordSource
Set qdf = CurrentDb.QueryDefs("CP2")
qdf.sql = strSQL
qdf.Close

Set qdf = Nothing

DoCmd.OutputTo acOutputQuery, "CP2", acFormatXLS, , True

Exit_Command34_Click:
Exit Sub

Err_Command34_Click:
MsgBox Err.Description
Resume Exit_Command34_Click
End Sub

作者: loginwjd303 时间: 2009-8-26 23:37
谢谢版主，又学习到了新东西。

作者: davidliu9116 时间: 2009-9-15 09:29
感谢分享
努力学习

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