Dim FOpenFile As OpenFileDialog
        FOpenFile = New OpenFileDialog

        '控制选择文件格式
        FOpenFile.Filter = "Excel文件(.xls)|*.xls"
        '如果选择取消，结束过程；
        If FOpenFile.ShowDialog = Windows.Forms.DialogResult.Cancel Then
            ... ...
            Exit Sub
        End If

        '读取文件
        ... ...

try
...
catch
... 凡是错误都在这里

使用 OpenFileDialog 的 ShowDialog() 方法本身的返回值会告诉你用户选择了还是没有选择文件。当选择了，你自然就知道所选择的文件名，从而也就知道后缀是什么。

这还是要多用点心去理解。不是抄代码。

我补充下，我说的格式错误并不是文件后缀名错误，而是内容错误。
比如我要读取的文件格式是(序号，名字，学号，班级)但是文件内容是(序号，名字，学号，班级，成绩) 这样子格式就不对了，文件自身后缀我无所谓。

引用 4 楼 qq_15238669 的回复:

我补充下，我说的格式错误并不是文件后缀名错误，而是内容错误。
比如我要读取的文件格式是(序号，名字，学号，班级)但是文件内容是(序号，名字，学号，班级，成绩) 这样子格式就不对了，文件自身后缀我无所谓。

这种情况是不能用openfiledialague来判断的，你需要读出文件内容来同你需要的格式对比，可以用文件流来做，网上很多，搜一下就可以了

引用 4 楼 qq_15238669 的回复:

我补充下，我说的格式错误并不是文件后缀名错误，而是内容错误。
比如我要读取的文件格式是(序号，名字，学号，班级)但是文件内容是(序号，名字，学号，班级，成绩) 这样子格式就不对了，文件自身后缀我无所谓。

你自己应该知道，判断文件是否存在，判断文件扩展名是否正确和判断文件内容是否正确应该是三个判断，前两个都是io操作级别的，最后一个明显是你自己再读取文件后判断的。

     '在判断完文件格式后，判断其内容，举个纯文本例子

        Dim yourstr As String = 你读出的文本

        '你需要的关键字顺序

        Dim key() As String = {"姓名", "学号", "班级", "成绩"}

        '两个arraylist，分别存放原顺序和新顺序

        Dim arrkey As New ArrayList

        Dim compkey As New ArrayList

        For i As Integer = 0 To key.Count - 1

            '在文本中寻找,只要匹配第一个搜到的字符串

            If yourstr.Contains(key(i)) Then

                arrkey.Add(yourstr.IndexOf(key(i), 0, 1).ToString)

                compkey.Add(yourstr.IndexOf(key(i), 0, 1).ToString)

            Else

                '如果key中的关键字没出现在文本中，错误退出

                MessageBox.Show("文件中未包含关键字退出")

                Exit Sub

            End If

        Next

        '得到两个序号的arraylist，将其中一个排序

        '如果不是你要的顺序，sort后应该是不一样的顺序，那么遍历对比必然会出错，即退出

        arrkey.Sort()

        For i As Integer = 0 To arrkey.Count - 1

            If arrkey(i) <> compkey(i) Then

                MessageBox.Show("顺序不正确退出")

                Exit Sub

            End If

        Next

        '不出错，说明字段顺序无误，成功

        MessageBox.Show("成功读取")

        '继续你的操作