在文件夹中的所有 Access 文件中运行 Access VBA

Question

我一直在尝试找出一种方法，可以在文件夹中的所有文件上运行以下 VBA 代码，而无需手动打开每个文件。

这是我现在的代码（将所需的表导出为分隔的 txt 文件，包括列名）：

Private Sub Command4_Click()

    Dim MyObj, MySource As Object, File As Variant, stDocName As String, Counter As Integer

    On Error GoTo Err_Command4_Click
        Dim stDocName As String, Counter As Integer
        Counter = 1
        stDocName = "tblSCTurCount"
        DoCmd.TransferText acExportDelim, "", stDocName, "C:\Users\name\Downloads\cnt\cnt_output.txt", True

    Exit_Command4_Click:
        Exit Sub

    Err_Command4_Click:
        MsgBox Err.Description
        Resume Exit_Command4_Click

End Sub

在研究问题时，我发现a process 在 excel 中有效，但我不确定如何在访问中更改变量，尤其是工作簿引用。

谢谢！

编辑——有效的代码：

Dim FS As FileSystemObject
Set FS = New FileSystemObject
Dim MyFolder As Folder
Set MyFolder = FS.GetFolder("C:\Users\name\Downloads\cnt\Folder")
Dim MyFile As File
Set appAccess = CreateObject("Access.Application")

For Each MyFile In MyFolder.Files
    appAccess.OpenCurrentDatabase (MyFile.Path)
    appAccess.Visible = True
    NewFileName = MyFile.Path & ".txt"
    appAccess.DoCmd.TransferText acExportDelim, "", "tblScTurCount", NewFileName, True
    appAccess.CloseCurrentDatabase
Next

Answer 1

考虑使用FileSystemObject。

为此，您必须添加 reference Microsoft Scripting Runtime 库。 （在 VBA 编辑器中转到工具 > 引用...）

Sub test()
    Dim FS As FileSystemObject
    Set FS = New FileSystemObject

    Dim MyFolder As Folder
    Set MyFolder = FS.GetFolder("C:\path\of\the\folder")

    Dim MyFile As File
    For Each MyFile In MyFolder.Files
        'do what you want to do with each file

        'to use the file name:
        MyFile.Name

        'I suppose you have to:
        Application.OpenCurrentDatabase MyFile.Path
        '(please verify if this path contains the filename and extension too). 

         'But create a different filename for each txt:
         NewFileName = MyFile.Path + ".txt"

        'Then you do:
        DoCmd.TransferText acExportDelim, "", "tblScTurCount", NewFileName, True

    Next
End Sub

考虑到您在 Access 中使用 VBA，请使用 Application.OpenAccessProject 或 Application.OpenCurrentDatabase 方法在 Access 中打开文件。