使用Application.GetOpenFilename检查在Excel中打开的文件的有效性

Question

是否有一种简单的方法来检查使用Application.GetOpenFilename打开的文件是否具有预期的结构？例如，第一张纸上的A1值必须是“存档”。

如果文件不符合预期，那么VBA脚本不应继续执行其工作。

Answer 1

最简单的方法是在打开后立即验证文件。

一旦这样做，你可以先检查，如果它是错误的文件，可以将其关闭，并停止执行：

MyFilePath = Application.GetOpenFilename() 

Set MyWorkbook = Workbooks.Open(MyFilePath) 

If MyWorkbook.Worksheets(1).Range("A1") <> "Archive" Then 
    MyWorkbook.Close 
    Exit Sub 
End If