使用變量訪問查詢並導出到Excel

Question

當按下按鈕時，我想執行一個使用變量的SQL語句。

例如：

SELECT a, b, 
FROM data 
WHERE a IS NOT NULL 
    AND b = '&<Variable>&'; 

然後查詢的結果將被導出到Excel文件的工作表。

Answer 1

您可能需要立即創建SQL並將其保存爲DoCmd.OutputTo方法來爲您執行導出。就像是。

Option Compare Database 
Option Explicit 

Sub ExportQueryToExcel() 
    Dim dbObj As DAO.Database, qdObj As DAO.QueryDef 
    Dim filePath As String, sqlText As String, yourVariable As String 
    Set dbObj = CurrentDb 

    yourVariable = "Apple" 

    sqlText = "SELECT a, b, c WHERE a Is Not Null And b = '" & yourVariable & "'" 
    filePath = "C:\Users\P\Desktop\fileName.xlsx" 

    On Error Resume Next 
    With dbObj  
     .QueryDefs.Delete "tmpDataQry" 
     Set qdfNew = .CreateQueryDef("tmpDataQry", sqlText) 
     .Close 
    End With 
    On Error GoTo 0 

    DoCmd.OutputTo acOutputQuery, "tmpDataQry", acFormatXLSX, filePath 

    Set qdObj = Nothing 
    Set dbObj = Nothing 
End Sub