小编lir*_*och的帖子

我是一个新的 Excel 2013 vba 程序员。我编写了代码来遍历文件夹中的每个文件，打开它，复制单元格，然后粘贴到一个新文件，向下递增一行，然后对文件夹中的每个文件执行此操作。

在循环到下一个文件之前，我关闭了上一个文件。文件夹中有大约 120 个文件。这最终是在单个文件中创建文件夹中数据的索引。

当我“单步执行”时，这似乎运行良好，但是如果我只是 F5 宏，它会运行一段时间，我看到它运行良好，然后在中途它会崩溃 Excel“Excel 已停止工作......”它只是关闭。

你以前遇到过这种情况吗？有什么建议？这是完成工作的代码子集：

Sub WorkHorse()
    ' Application.DisplayAlerts = False 'large amount of data in clipboard, do you want to keep..." message_ *MUST TURN BACK ON SEE BELOW!!

    ChDir "R:\ISO\Sticks\307M"
    myFile = Dir("*.xlsx")


    Do Until myFile = ""
        Workbooks.Open Filename:=myFile
        If Range("A3") = "" Then
            Range("A2").Select
            Range(Selection, Selection.End(xlToRight)).Select
        End If
        If Range("A3") <> "" Then
            Range("A2").Select
            Range(Selection, Selection.End(xlToRight)).Select
            Range(Selection, Selection.End(xlDown)).Select
        End If
        Selection.Copy
        Windows("Test for Possanza Aug 2015.xlsm").Activate
        ActiveSheet.Paste
        Range("A1").Select …