使用 VBA 或 PowerShell 将所有 MS Access SQL 查询导出到文本文件

Question

希望从 access 2013 导出约 200 个查询的底层 sql 到单独的 txt/*.sql 文件 - 而不是查询收集的数据。

这个问答提供了一个合适的答案：Using VBA to export all MS Access SQL queries to text files 但我无法让它生成输出文件。我是 vba 新手，但需要一次性完成。这样可以节省很多时间。

我还在这里查看了使用 PowerShell 脚本： Export all queries of an access database with powershell 同样，我无法让它生成输出文件。

我不介意我使用哪个进程，我只需要 sql :)

Dim db As DAO.Database
 Dim qdf As DAO.QueryDef

 Set db = CurrentDB()
 For Each qdf In db.QueryDefs
   Debug.Print qdf.SQL
 Next qdf
 Set qdf = Nothing
 Set db = Nothing

$dbe = New-Object -com DAO.DBEngine.120
$db = $dbe.OpenDatabase("C:\Users\Public\Database1.accdb")
$queries = $db.QueryDefs
ForEach ($query in $queries) {
    $name = $query.Name
    If (!$name.StartsWith("~")) {
        $name
    }
}

VBA：没有返回错误消息，但我怀疑它缺少代码的输出组件。

PowerShell：没有返回错误消息，但同样缺少代码的输出组件。

感谢您的帮助！

Answer 1

让我们调整 VBA 解决方案。第 1 步是声明一个接受输入并将其写入文本文件的函数：

'Writes content to a text file
'Note: encoding = UTF-16, overwrites without prompt
Public Sub ToTextFile(path As String, content As String)
    If Dir(path) <> "" Then Kill path
    Dim f As Integer
    f = FreeFile
    Open path For Binary Access Write As #f
    Put #f, , content
    Close #f
End Sub

然后，我们可以轻松调整您当前的代码，将每个查询放在单独的文本文件中。我将使用您的数据库的路径和查询的名称作为文本文件的位置：

Dim db As DAO.Database
Dim qdf As DAO.QueryDef

 Set db = CurrentDB()
 For Each qdf In db.QueryDefs
   If qdf.Name Not Like "~*" Then
       ToTextFile CurrentProject.Path & "\" & qdf.Name & ".txt", qdf.sql
   End If
 Next qdf
 Set qdf = Nothing
 Set db = Nothing