VBA Loop创建新文件

Question

VBA的新手。 我正在尝试编写一个程序来打开一个文件夹中的文件，更新它们并将其保存在新文件夹中。 我已经完成了那部分，问题是下面的“ Do While循环”使代码循环遍历给定文件夹中的文件，但是当每个文件都被打开，编辑并保存为下一个时期的文件夹时，并没有结束循环。 它只是不断重复循环。 有任何想法吗？ 谢谢查理

Do While (WLFile) > 0
    Set WB = Workbooks.Open(WLPath & WLFile, UpdateLinks:=3)
    ActiveWorkbook.SaveAs Filename:=MyFolder & "\" & _
                                    "20" & WLYear & "\" & _
                                    QTR & "Q" & "\" & _
                                    WLFile
    ActiveWorkbook.Close

Answer 1

您可以计算目录中的文件数，然后将其用于循环计数器。 我在该站点上找到以下答案以供参考，该计数对目录中特定扩展名的所有文件进行计数并显示结果。

https://stackoverflow.com/a/16756658/5692872