VBA：检查文件是否存在

Question

我正在创建一个PowerPoint演示文稿，该演示文稿将从不同的Excel和PowerPoint文件中获取数据和幻灯片。基本代码有效，现在我必须清理它并处理诸如“如果文件不存在该怎么办？”之类的问题。

在这方面，我需要一些建议。我希望发生两件事：我希望用户了解丢失的文件，而且希望代码继续执行（一个丢失的文件不应使整个宏脱轨）。如何以干净/可读的方式执行此操作？

我的想法是使用类似

的命令检查文件是否存在于实际代码之前

If Dir("File Path") = "" Then
   MsgBox "File doesn't exist"

但是，在这种情况下，我还需要宏来跳过缺少文件的代码部分。在初始检查中，我可以创建一个像File1Exists = True这样的变量，如果该文件不存在，它将切换到False。然后对于代码/每个子代码的每个部分，我都可以执行If语句来检查此条件是否成立。

那应该可行，但这真的是最好的解决方案吗？对于这样一个简单的问题，似乎是一堆代码。有谁有更好的主意吗？

Answer 1

类似的东西：

Dim file_exists as Boolean
file_exists = (Dir("File Path") <> "")

If file_exists Then
  ....
Else
  ....
End If