VBA编程：workbooks.open打开多个文件

首先我要道歉，如果这个问题太新手了，我自己还在学习VBA。

问题：我在“最终文件夹”中有6个excel文件。 我需要依次打开每个代码，从代码所在的工作簿中input一些数据（我正在使用此工作簿作为源代码）。

错误：我尝试了多个选项，但是最新的代码（下面）将所有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 ，它返回一个path。 当我将path传递给工作簿时，我需要有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 

它应该开始打开他们一个接一个。