如何从VBA中找出MS ACCESS中的查询创建了哪个表？

Sub FindTableFromQuery()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    
    ' 设置数据库路径和名称
    Set db = OpenDatabase("C:\Path\To\Your\Database.accdb")
    
    ' 设置查询名称
    strSQL = "YourQueryName"
    
    ' 获取查询定义对象
    Set qdf = db.QueryDefs(strSQL)
    
    ' 获取查询所涉及的表名
    For Each tdf In qdf.TableDefs
        Debug.Print tdf.Name
    Next tdf
    
    ' 释放对象
    Set qdf = Nothing
    Set db = Nothing
End Sub