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

Tomchenxun · 发表于 2013-10-25 08:09

看了刘小军的查询教程，试着做了一个导出查询到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 · 发表于 2013-10-25 19:40

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

ly · 发表于 2013-10-25 22:49

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

Tomchenxun · 发表于 2013-10-26 17:53

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

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

ly · 发表于 2013-10-26 20:16

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

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

Tomchenxun · 发表于 2013-10-26 22:49

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

我是照抄的这个附件中的代码，怎么才能把导出全部查询字段的代码改为只导出部分字段的代码

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

ly · 发表于 2013-10-27 08:08

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

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

Tomchenxun · 发表于 2013-10-27 10:01

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

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

Tomchenxun · 发表于 2013-10-27 11:17

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

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

ly · 发表于 2013-10-27 13:04

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

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

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

		自动登录	找回密码
密码			免费注册

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