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