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

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

例如Admiral_Group-2015-AR转换为C：\ Users \ Jon \ Desktop \ CodeBackups \ Companies \ Admiral_Group-2015-AR.xlsx（FSOURCE）

我的问题是，我没有列表中的所有文件，所以代码错误，当它无法find一个文件。 我怎样才能让它跳到循环中的下一个文件呢？

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

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

在试图打开它之前检查Dir$()是否存在：

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