立即将变量设置为空

Question

我使用了我在这个网站上找到的这段代码的变体，它运行良好。我的问题是，我无法理解在定义 qdf 后立即将其设置为空的原因。显然它不会破坏这个过程，一切正常，但在我未经训练的眼睛看来，它不应该。为什么在代码中，为什么不清空变量的SQL代码，什么都不导出到excel？

Sub Export()
    Dim cdb As DAO.Database, qdf As DAO.QueryDef
    Set cdb = CurrentDb

    Const xlsxPath = "redacted 1"

    ' create .xlsx file if it doesn't already exist, and add the first worksheet

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Ledger Data by Channel", xlsxPath, True


    'file exists now, so this will add a second worksheet to the file
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Premium Reserves", xlsxPath, True

    Set qdf = cdb.CreateQueryDef("Reserve-from Wakely", _
            "SELECT * FROM [redacted 4] UNION SELECT * FROM [PAI ALR] UNION SELECT * FROM [Prior Month PAI DAC]")
    Set qdf = Nothing
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "redacted 2", xlsxPath, True
    DoCmd.DeleteObject acQuery, "Reserve-from Wakely"

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "redacted 3", xlsxPath, True

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Claims Data", xlsxPath, True

    Set cdb = Nothing
End Sub

Answer 1

这是因为 QueryDef 不仅包含在 qdf 变量中，而且还存储在 QueryDefs 集合中并保存到磁盘...

这里解释：https://msdn.microsoft.com/en-us/library/office/ff845129(v=office.14).aspx

要创建新的 QueryDef 对象，请使用 CreateQueryDef 方法。在 Microsoft Access 工作区中，如果您为 name 参数提供字符串，或者如果您将新 QueryDef 对象的 Name 属性显式设置为非零长度字符串，您将创建一个永久 QueryDef，它将自动附加到QueryDefs 集合并保存到磁盘