如何编辑多个 excel 个文件，每个文件都在不同的文件夹中并合并在一个文件夹中

Question

这个问题不应该很复杂。我有一个大文件夹，里面有 200 个单独的文件夹。现在每个文件夹中都有一个 excel sheet。我想在控制文件夹（200 旁边）的 vba 文件中包含一些代码，它可以遍历 200 个文件夹并更改每个 excel 文件中的一位数据。我找到了目录内容和文件夹迭代，但是我无法在这里和那里将它们合并在一起，我需要一些简单的帮助。

我的代码目前是：`Sub Button1_Click()

Dim wb      As Workbook
Dim ws      As Excel.Worksheet
Dim iIndex  As Integer
Dim strPath As String
Dim strFile As String

'Get the directories
strPath = "C:\Users\generaluser\Desktop\testing main folder\"
strFile = Dir(strPath, vbDirectory)

'Loop through the dirs
Do While strFile <> ""

    'Open the workbook.
    strFileName = Dir(strPath & strFile & "New Microsoft Excel Worksheet.xlsm", vbDirectory)
    'Open the workbook.
    Set wb = Workbooks.Open(Filename:=strPath & strFile & "\" & strFileName, ReadOnly:=False)

    'Loop through the sheets.

    Set ws = Application.Worksheets(1)

    'Do whatever



    'Close the workbook
    wb.Close SaveChanges:=True

    'Move to the next dir.
    strFile = Dir
Loop

结束子 `

请帮助@MatthewD

Answer 1

因为你没有显示代码，所以是这样的。

    Dim wb      As Workbook
    Dim ws      As Excel.Worksheet
    Dim iIndex  As Integer
    Dim strPath As String
    Dim strFile As String

    'Get the directories
    strPath = "c:\temp\"
    strFile = Dir(strPath, vbDirectory)

    'Loop through the dirs
    Do While strFile <> ""

        'Open the workbook. 
        Set wb = Workbooks.Open(filename:=strPath & strFile & "\filename.xlsx", ReadOnly:=True)

        'Loop through the sheets.
        For iIndex = 1 To Application.Worksheets.count
            Set ws = Application.Worksheets(iIndex)

            'Do whatever

        Next iIndex

        'Close the workbook
        wb.Close SaveChanges:=False

        'Move to the next dir.
        strFile = Dir
    Loop

如果不知道工作簿名称，则必须将 xlsx 文件放在目录中。

    strFileName = Dir(strPath & strFile & "*.xlsx")
    'Open the workbook. 
    Set wb = Workbooks.Open(filename:=strPath & strFile & "\" & strFileName , ReadOnly:=True)

Answer 2

好的，这应该很简单。只需递归地列出所有文件夹中的每个文件。下面的脚本将为您完成。

Sub ListAllFiles()
    SearchForFiles "C:\Users\rshuell001\Desktop\YourFolder\", "writefilestosheet", "*.*", True, True
End Sub

Sub searchForFiles(ByVal DirToSearch As String, ByVal ProcToCall As String, _
        Optional ByVal FileTypeToFind As String = "*.*", _
        Optional ByVal SearchSubDir As Boolean = False, _
        Optional ByVal FilesFirst As Boolean = False)
    On Error GoTo ErrXIT
    If Right(DirToSearch, 1) <> Application.PathSeparator Then _
        DirToSearch = DirToSearch & Application.PathSeparator

If FilesFirst Then processFiles DirToSearch, ProcToCall, FileTypeToFind
If SearchSubDir Then processSubFolders DirToSearch, ProcToCall, _
    FileTypeToFind, SearchSubDir, FilesFirst

    If Not FilesFirst Then _
        processFiles DirToSearch, ProcToCall, FileTypeToFind
    Exit Sub
ErrXIT:
    MsgBox "Fatal error: " & Err.Description & " (Code=" & Err.Number & ")"
    Exit Sub
End Sub


Private Sub processFiles(ByVal DirToSearch As String, _
            ByVal ProcToCall As String, _
            ByVal FileTypeToFind As String)
        Dim aFile As String
        aFile = Dir(DirToSearch & FileTypeToFind)
        Do While aFile <> ""
            Application.Run ProcToCall, DirToSearch & aFile
            aFile = Dir()
            Loop
End Sub


Sub writeFilesToSheet(ByVal aFilename As String)
    With ActiveSheet
    .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = aFilename
        End With
End Sub

接下来，如您所知，您需要使用上述技术访问每个文件，打开每个文件，进行更改，保存，然后关闭文件。使用下面 URL 中描述的技术进行更改。

http://www.rondebruin.nl/win/s3/win010.htm

您只需要稍微修改一下脚本，因为它会查找一个文件夹中的所有文件，您需要 Ron 的脚本运行通过您使用第一个脚本创建的不同路径

如何编辑多个 excel 个文件，每个文件都在不同的文件夹中并合并在一个文件夹中

How to edit multiple excel files each of which are in a different folder united in one folder

excel

vba

subdirectory