UMV平台中导出的另一种选择

时　间:2007-10-15 22:17:55
作　者:AskHeart   ID：17  城市：秦皇岛
摘　要:UMV平台导出的另一种选择，查询语名自定义。
正　文:

在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根据实际情况自定义。