如何解决如何将自定义查询导出到Access / vba中的excel
我需要根据用户在表单中选择的选项来选择不同的字段。作为我正在尝试做的简化示例。
dim selection,ssql as string
If Forms![frmExport]![option1].Value = "Birthday" Then
selection = "bday"
ElseIf Forms![frmExport]![option1].Value = "Ages" Then
selection = "age"
ElseIf Forms![frmExport]![option1].Value = "Name" Then
selection = "name"
Else
selection = "*"
End If
ssql = "Select users." & selection & " from users"
DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel12Xml,ssql,sPath & "user_info",True
但是我收到一个错误7871，因为尽管我可以将预定义的查询传递给TransferSpreadsheet，但显然不能以字符串形式传递它。是否可以通过对可能的查询进行约50个排列并拥有可怕的ifs巨型嵌套来实现这一目标？
解决方法
您可以通过设置导出查询的.Sql属性来使其动态化：
Dim qd AS DAO.QueryDef
Set qd = CurrentDb.QueryDefs("myExportQuery")
qd.Sql = sSql
DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel12Xml,qd.Name,sPath & "user_info",True
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
