sql - DoCmd.OutputTo + 使用 SQL 命令 + VBA

Question

大家好，我在网上做了一些研究，但找不到解决方案，希望这里有人能提供帮助。我要做的是将 sql 语句放置到 DoCmd.OutputTo

例如

      Set tempSql= CurrentDb.OpenRecordset("SELECT * FROM SpecialEvent WHERE [HG_ID] = " & HG_ID & ";")

      DoCmd.OutputTo acOutputQuery, "tempSql", acFormatXLS, strDir + "try.xls", 0

如果有人可以指导我构建这种方法，将不胜感激。

Answer 1

您可以将查询的sql设置为输出sql，并在DoCmd.OutputTo中使用查询名称

tempSql= "SELECT * FROM SpecialEvent WHERE [HG_ID] = " & HG_ID

If IsNull(DLookup("name", "msysobjects", "name='query1'")) Then
    CurrentDb.CreateQueryDef "Query1", tempSql 
Else
    CurrentDB.QueryDefs("Query1").SQL = TempSQL
End If


DoCmd.OutputTo acOutputQuery, "Query1", acFormatXLS, strDir & "try.xls", 0

注意连接符在VBA中是&，不是+

加号可用于连接，但需要格外小心，因为它处理空值的方式。