使用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