使用 Application.GetOpenFile name 检查在 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