accessのクエリ(sql)をファイルに書き出すvbaマクロ

下記をコピペして、実行する(F5)を押す。

　→accessファイルと同じフォルダに、「クエリ名.sql」というテキストファイルができます。

Sub exportQueryAsSqlFile()

    Dim db, query, nFP As Integer

    MkDir (CurrentProject.Path & "\sql")

    Set db = Application.CurrentDb
    For Each query In db.QueryDefs

        Debug.Print query.Name


        nFP = FreeFile
        Open CurrentProject.Path & "\sql\" & query.Name & ".sql" For Output As nFP
        Print #nFP, query.SQL
        Close nFP

    Next query

End Sub