如果vba无法找到文件，如何跳到列表中的下一个

Question

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

e.g。 Admiral_Group-2015-AR转换为C：\ Users \ Jon \ Desktop \ CodeBackups \ Companies \ 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)

由于

Answer 1

在尝试打开它之前检查其是否存在{<1}}：

Dir$()