Question

我试图让一个宏遍历文件夹中的所有文件并在其上运行宏。到目前为止，我有：

Sub ProcessFiles()
    Dim Filename, Pathname As String
    Dim Wb As Workbook

    Pathname = "C:\Trading\TICK\PROBAB\DATA\CURRENT\"
    Filename = Dir(Pathname & "*.xlsm")
    Do While Filename <> ""
        Workbooks.Open (Pathname & Filename)
        Application.Run "storage.xlsm!ALL"
        Filename = Dir()
    Loop


End Sub

问题是，在第一次迭代后它失败了。我知道它与第二个宏有关，就好像我把它拿出来一样，文件夹中的所有文件都会打开。

Answer 1

似乎问题与Excel的短期记忆有关。该宏正在进行大量的复制和粘贴，似乎它以某种方式禁止它打开下一个文件。

我通过使用相同的宏创建一个新文件来解决问题。它现在正在运作

宏循环遍历文件夹中的所有文件

1 个答案: