在文件夹中的每个文件中执行macros

我有一个复杂的macros，我想在文件夹中的每个文件上运行。 一旦每个文件被修改，循环macros应该结束。

我修改了一些在这个网站上find的代码，但是它并没有打开文件夹中的任何文件。 我是否需要为每个文件另一个“打开”命令？

Sub LoopThroughFolder() Dim StrFile As String StrFile = Dir("C:\Users\Sample Folder\") Do While Len(StrFile) > 0 Application.Run "'FX Regression Model.xlsm'!CalculateWeighting" StrFile = Dir Loop End Sub 

任何build议将不胜感激。 谢谢！