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

18 浏览
0 Comments

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

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

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

但是如果文件已经存在，而且我选择“取消”或者选择“否”，我会得到VBA错误。我对VBA还很陌生，所以我不知道在哪里添加函数来使宏正常工作...

0

1 答案

0 Comments

当我们想要保存一个已经存在的Excel工作簿时，我们可能会遇到以下问题：如何判断文件是否已经存在，并根据判断结果来采取相应的操作。为了解决这个问题，我们可以使用Dir()函数来检查文件是否存在，并根据结果进行处理。

下面是一个示例代码，演示了如何使用Dir()函数来判断文件是否存在：

if Dir("C:\ScrubRetValFile.txt") = "" Then
    msgbox "文件未找到"
else
    msgbox "文件已找到"
End if

以上代码将首先检查指定路径下的文件"C:\ScrubRetValFile.txt"是否存在。如果该文件不存在，则会显示一个消息框，提示"文件未找到"；如果文件存在，则会显示一个消息框，提示"文件已找到"。

通过使用Dir()函数，我们可以根据文件是否存在来决定后续的操作。例如，如果文件不存在，我们可以选择保存工作簿；如果文件已存在，我们可以选择覆盖现有文件或者另存为新文件。

希望以上内容对您有所帮助。

0