Workbooks.Open 依次打开多个文件

Question

我在“最终文件夹”中有 6 个 Excel 文件。我需要依次打开每个，从运行代码的工作簿中放入一些数据（我使用 ThisWorkbook 作为源代码）。

代码将所有 6 个文件一起打开，而不是依次打开。

似乎在循环中运行Workbooks.Open时，默认打开所有文件。

Sub PopulateFinalFile()

    Dim filpath As String
    Dim fso As Scripting.FileSystemObject
    Dim fil As Scripting.File
    Dim fldr As Scripting.Folder

    filpath = "C:\Users\deepak.ved\Desktop\Reports\Final Reports"
    Set fso = New Scripting.FileSystemObject
    Set fldr = fso.GetFolder(filpath)

    For Each fil In fldr.Files
        Application.Workbooks.Open (fso.GetFile(fil.Path))
    Next fil

End Sub

不相关的问题：如何使用 FSO 指向工作簿。就像我使用getfile 或folder.files 一样，它会返回一个路径。当我传递工作簿的路径时，我需要有 workbook.open(path) 但我只想指向该工作簿而不是打开它。

Answer 1

添加到 Vityata 以涵盖问题的第二部分：

Option Explicit

Sub PopulateFinalFile()

    Dim filpath As String
    Dim fso As Scripting.FileSystemObject
    Dim fil As Scripting.File
    Dim fldr As Scripting.Folder
    Dim wb as workbook

    filpath = "C:\Users\user\Desktop\TEST"
    Set fso = New Scripting.FileSystemObject
    Set fldr = fso.GetFolder(filpath)

    For Each fil In fldr.Files
        set wb = Application.Workbooks.Open(fil.Path)  'no space after open !
        'do some stuff with wb
        wb.close    'close wb
    Next fil


End Sub

Answer 2

试试这个：

Option Explicit

Sub PopulateFinalFile()

    Dim filpath As String
    Dim fso As Scripting.FileSystemObject
    Dim fil As Scripting.File
    Dim fldr As Scripting.Folder

    filpath = "C:\Users\user\Desktop\TEST"
    Set fso = New Scripting.FileSystemObject
    Set fldr = fso.GetFolder(filpath)

    For Each fil In fldr.Files
        Application.Workbooks.Open (fil.Path)
    Next fil


End Sub

它应该开始一个一个地打开它们。