VBA：SaveAs方法创建无限的csv文件

Question

我正在循环浏览文件中的几个工作表，将信息复制到另一个工作表（称为wsCSV，存储在ThisWorkbook中），然后我想从此工作表创建一个CSV文件。创建工作表后，循环应继续到下一个工作表。

以下是应该创建CSV的代码的一部分：

' Create CSV file
If iControl = 1 Then
    Application.DisplayAlerts = False
    wsCSV.Copy
    ActiveWorkbook.SaveAs Filename:=sDestin & "\" & sShName & ".csv", FileFormat:=xlCSV, CreateBackup:=True
    ActiveWorkbook.Close SaveChanges:=False
    Application.DisplayAlerts = True
End If

无论如何，当我继续执行代码时，SaveAs方法开始创建＆＃34;无限＆＃34;文件，直到它占用我所有的磁盘空间。我不知道怎么可能，因为文件有6行3列，所以它应该有1-2 kb。我必须手动停止该过程。有什么想法吗？我在另一个宏中尝试了这个代码，它工作正常。

谢谢！

Answer 1

确保您的wsCSV工作表真的像您想象的那样空。使用 Ctrl-End 查看上次使用的单元格是什么，并在必要时进行清理。