3

こんにちは、オンラインで調査を行いましたが、解決策が得られませんでした。うまくいけば、ここの誰かが助けてくれます。私の行くことは、DoCmd.OutputToにSQLステートメントを配置することです

例えば

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

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

誰かがこのアプローチを構築するために私を導くことができれば、それは大歓迎です。

4

1 に答える 1

4

クエリの 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 では + ではなく & であることに注意してください。

プラス記号は連結に使用できますが、null での動作方法のため、細心の注意が必要です。

于 2012-09-18T13:58:12.470 に答える