VBA編程：workbooks.open打開多個文件

Question

首先，我很抱歉，如果問題太新手，因爲我仍然自學VBA。

問題：我在「最終文件夾」中有6個excel文件。我需要依次打開每個代碼，從代碼所在的工作簿中放入一些數據（我正在使用此工作簿作爲源代碼）。

錯誤：我試過了多個選項，但是最新的代碼（下面）將所有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

試試這個：

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 

應該開始開擴逐一。