如果vba可以'；找不到文件

我有一个使用公司名称列表的代码，一个代码将这些名称转换为文件目的地，然后另一个代码遍历每个名称并打开它们并从中提取值

e、 g.Admiral_Group-2015-AR转换为C:\Users\Jon\Desktop\CodeBackup\Companys\Admiral_Group-2015-AR.xlsx（FSOURCE）

我的问题是，我还没有列表中那些文件的所有文件，因此当它找不到文件时，代码会出错。如何让它跳到循环中的下一个文件

这是我拥有的代码的一部分：

For startno = 1 To endno

    If IsEmpty(WS_Companies.Range("A:A").Find(what:="File Name").Offset(startno, 0).Value) = False Then

    FSource = WS_Companies.Range("A:A").Find(what:="File Name").Offset(startno, 1).Value

    Set WB_Report = Workbooks.Open(FSource)

---

谢谢

在尝试打开它之前，请使用

Dir$（）

检查它是否存在：

If Len(Dir$(FSource)) then
   '// file exists on disk
   Set WB_Report = Workbooks.Open(FSource)
   ...
End if

---

干杯！