Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/flutter/9.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 尝试在5次循环后保存工作簿_Excel_Vba - Fatal编程技术网

Excel 尝试在5次循环后保存工作簿

Excel 尝试在5次循环后保存工作簿,excel,vba,Excel,Vba,我在另一个循环结束之前插入了这个For循环,以便在原始For循环每5次迭代后保存工作簿 'Saves Workbook after 5 Calculation For k = 2 To RowCount Step 5 If k = i Then ThisWorkbook.Save Next k Next i 这意味着“for k循环”没有下一个循环 我如何解决这个问题,还有更好的方法吗?您正在执行一个双循环

我在另一个循环结束之前插入了这个For循环,以便在原始For循环每5次迭代后保存工作簿

'Saves Workbook after 5 Calculation
           
    For k = 2 To RowCount Step 5                
        If k = i Then ThisWorkbook.Save
    Next k
Next i
这意味着“for k循环”没有下一个循环


我如何解决这个问题,还有更好的方法吗?

您正在执行一个双循环,其中save命令将在原始循环中运行多次

要保存循环的每5次迭代,您需要添加更简单的内容。尝试:

     If (i-1) Mod 5 = 0  Then ThisWorkbook.Save
Next i

此代码的作用是,每当
i
计数器的剩余部分可被5整除时,它都会运行,从而节省计数器的每5次迭代。

您可以在此处使用
Mod
,并完全放弃
For k
循环。我该怎么做?