如何在文件已存在时保存Excel工作簿？

Question

我使用此宏来保存我的工作簿：

sNewFilePath = ActiveWorkbook.Path

ActiveWorkbook.SaveAs Filename:=sNewFilePath & "/" &Range("A1")

但是如果一个文件已经存在，我就会取消＆＃34;或选择＆＃34;否＆＃34;，我收到VBA错误。我是VBA的新手，所以我无法弄清楚在宏中添加功能的内容和位置以使其工作......

Answer 1

使用函数Dir()，您可以检查文件是否存在并确定要执行的操作。

实施例

if Dir("C:\ScrubRetValFile.txt") = "" Then
    msgbox "File not founded"
else
    msgbox "File founded"
End if

干杯。