如何只导出选择的字段到Excel表,而不是导出全部字段

Tomchenxun

看了刘小军的查询教程，试着做了一个导出查询到excel表的按键,但教程里的代码是将所有查询字段全部导出,我想只导出其中几个字段而不是全部字段，代码该如何写？以下是我自己琢磨的代码，但导出的还是全部字段，请问该如何修改才能实现只导出其中几个字段的要求，谢谢！

Private Sub 专项导出_Click()
    On Error GoTo Err_专项导出_Click
    '刘小军(Alex) 2003-5-22
    '这里将使用DAO来改变查询的SQL语句，必须先在“工具”→“引用”中选择
    'Microsoft DAO 3.6 Object Library.
    '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

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

    strWhere = Me.★电话或车牌查询_子窗体.Form.Filter
    If strWhere = "" Then
        '没有条件
        strSQL = "SELECT * FROM [★电话或车牌查询]"
    Else
        '有条件
        strSQL = "SELECT 姓名,生日,地地址 FROM [★电话或车牌查询] WHERE " & strWhere
    End If

    Set qdf = CurrentDb.QueryDefs("查询结果")
    qdf.SQL = strSQL
    qdf.Close

    Set qdf = Nothing

    DoCmd.OutputTo acOutputQuery, "查询结果", acFormatXLS, , True


Exit_专项导出_Click:
    Exit Sub

Err_专项导出_Click:
    MsgBox Err.Description
    Resume Exit_专项导出_Click

End Sub

Renco

你要设条件，如没条件下。默认是全部字段的

ly

假定是文本则
.....Where ‘“ & strWhere & "'"

Tomchenxun

ly 发表于 2013-10-25 22:49
假定是文本则
.....Where ‘“ & strWhere & "'"

谢谢，可不要可说详细一点。
我本以为这条语句就可以选择出想要的字段
strSQL = "SELECT 姓名,生日,地地址 FROM [★电话或车牌查询] WHERE " & strWhere
谁知还是导出的所有字段

ly

Tomchenxun 发表于 2013-10-26 17:53
谢谢，可不要可说详细一点。
我本以为这条语句就可以选择出想要的字段
strSQL = "SELECT 姓名,生日,地地 ...

是否上个附件，这样看起来更清楚！

Tomchenxun

ly 发表于 2013-10-26 20:16
是否上个附件，这样看起来更清楚！

我是照抄的这个附件中的代码，怎么才能把导出全部查询字段的代码改为只导出部分字段的代码
常用窗体查询2.rar (27.61 KB, 下载次数: 11)

2013-10-26 22:49 上传

点击文件名下载附件

ly

Tomchenxun 发表于 2013-10-26 22:49
我是照抄的这个附件中的代码，怎么才能把导出全部查询字段的代码改为只导出部分字段的代码

提供的实例，说明是先查询，然后就能正确导出。

Tomchenxun

ly 发表于 2013-10-27 08:08
提供的实例，说明是先查询，然后就能正确导出。

是呀，先查询，根据查询的结果选择需要的部分字段导出，而不需要导出全部字段，我就是想在示例代码的基础修改一下达到只导出部分字段的目的，但不知道该怎么改代码

Tomchenxun

Renco 发表于 2013-10-25 19:40
你要设条件，如没条件下。默认是全部字段的

麻烦告诉我具体怎么设条件？谢谢！

ly

Tomchenxun 发表于 2013-10-27 10:01
是呀，先查询，根据查询的结果选择需要的部分字段导出，而不需要导出全部字段，我就是想在示例代码的基础 ...

增加一个控件，来判断你的选择是全部或是部分

常用窗体查询2.rar (32.68 KB, 下载次数: 34)

2013-10-27 13:03 上传

点击文件名下载附件