在UMV平台中,我们除了可以用平台自带的功能实现把查找到的数据导出到EXCEL中外,我们也可以建一查询窗体,添加一命令按钮,在CLICK事件中,加入下列代码,实现导出功能。
Private Sub cmd导出_Click()
'这里将使用DAO来改变查询的SQL语句,必须先在“工具”→“引用”中选择
'Microsoft DAO 3.6 Object Library.
'================================
Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
Dim strWhere, strSQL As String
strWhere = Me.ChildForm.Form.Filter
If strWhere = "" Then '没有条件
strSQL = "Select * FROM qryCgmxData" '根据实际情况修改
Else '有条件
strSQL = "Select * FROM qryCgmxData where " & strWhere
End If
Set qdf = CurrentDb.QueryDefs("qryXlsData")
qdf.sql = strSQL
qdf.Close
Set qdf = Nothing
DoCmd.OutputTo acOutputQuery, "qryXlsData", acFormatXLS, , True
End Sub
注意事项:
1、必须事先在系统中添加一名称为“qryXlsData"的查询,内容不限。
2、上面代码中的strSQL根据实际情况自定义。