Windows 11 64位VB窗体程序：OpenFileDialog与Excel文件无法打开求助

问题描述 #

在Windows 11（64位）系统中，用VB开发的窗体应用包含两个功能按钮：

• 调用OpenFileDialog选择并打开文件
• 打开按当前日期命名的Excel工作簿（如230701_Data.xlsx）

原本功能正常，后续出现异常：两种方式均无法打开文件显示，无任何错误/异常提示；文件名正确，可在资源管理器中打开，且程序能正常读写该日期命名的文件。

相关代码 #

Public Function selectFile()
    Dim fileInUse As String = My.Settings.fileInUse.Trim()
    Dim selectedFile As String = "" 
    Dim ofd As OpenFileDialog = New OpenFileDialog
    ofd.DefaultExt = "xlsx"
    ofd.FileName = ""           '// System.IO.Path.GetFileName(fileInUse)
    ofd.InitialDirectory = Path.GetDirectoryName(fileInUse)
    ofd.CheckFileExists = True
    ofd.Multiselect = False
    ofd.FilterIndex = 1
    ofd.Filter = "All Files (*.*) |*.*|Excel Files (*.xl*)|*.xl*|CSV Files (*.csv)|*.csv|Text Files (*.txt)|*.txt|Visual Studio Files(*.vb)|*.vb|TradingView Scripts(*.pine)|*.pine|PDF Files (*.pdf)|*.pdf"

    While selectedFile = ""
        If ofd.ShowDialog = DialogResult.OK Then
            If ofd.FileName = My.Settings.fileInUse Then
                MsgBox("The selected file is in use" + Environment.NewLine + fileInUse + Environment.NewLine + "cannot be opened")
            Else
                selectedFile = ofd.FileName
            End If
            Try
                ofd.OpenFile()
            Catch ex As Exception
                MsgBox("OpenFile failed Error= " & ex.Message)
            End Try

        Else
            Exit While                  '// Must allow to exit without choosing a file 
        End If
    End While

    Return selectedFile
End Function

原因分析与解决方法 #

核心问题：OpenFileDialog.OpenFile()的误用 #

代码中调用的ofd.OpenFile()只是返回一个文件流，用于程序内部读写文件，并不会调用系统默认程序打开文件显示。这就是为什么程序能读写文件，但看不到文件被打开的原因——你根本没触发打开文件的系统操作。

修正步骤 #

1. 替换打开逻辑为Process.Start()
   移除ofd.OpenFile()的调用，改用Process.Start()方法启动系统默认程序打开选中的文件。需要先引入System.Diagnostics命名空间。

   修改后的函数示例：

   Imports System.Diagnostics
   Imports System.IO
   
   Public Function selectFile() As String
       Dim fileInUse As String = My.Settings.fileInUse.Trim()
       Dim selectedFile As String = "" 
       Dim ofd As OpenFileDialog = New OpenFileDialog
       ofd.DefaultExt = "xlsx"
       ofd.FileName = ""           
       ofd.InitialDirectory = Path.GetDirectoryName(fileInUse)
       ofd.CheckFileExists = True
       ofd.Multiselect = False
       ofd.FilterIndex = 1
       ofd.Filter = "All Files (*.*)|*.*|Excel Files (*.xl*)|*.xl*|CSV Files (*.csv)|*.csv|Text Files (*.txt)|*.txt|Visual Studio Files(*.vb)|*.vb|TradingView Scripts(*.pine)|*.pine|PDF Files (*.pdf)|*.pdf"
   
       While selectedFile = ""
           If ofd.ShowDialog = DialogResult.OK Then
               If ofd.FileName = My.Settings.fileInUse Then
                   MsgBox("选中的文件正在使用中" + Environment.NewLine + fileInUse + Environment.NewLine + "无法打开")
               Else
                   selectedFile = ofd.FileName
                   ' 调用系统默认程序打开文件
                   Try
                       Process.Start(selectedFile)
                   Catch ex As Exception
                       MsgBox("打开文件失败 错误= " & ex.Message)
                   End Try
               End If
           Else
               Exit While                 
           End If
       End While
   
       Return selectedFile
   End Function
   

2. 同步修正日期命名文件的打开逻辑
   对于按日期命名的Excel文件，同样要使用Process.Start(文件完整路径)来触发打开操作，而不是仅进行读写流的操作。

3. 额外排查点

   • 检查Excel文件关联：如果系统中Excel的关联损坏，可能导致Process.Start()无法启动Excel。可在资源管理器右键文件，选择「打开方式」重新关联Excel程序。
   • 程序权限：若文件存放在受保护目录（如Program Files），尝试以管理员身份运行VB程序。
   • 后台Excel进程：打开任务管理器，结束所有Excel后台进程后再测试，避免进程挂起导致无法显示新窗口。

内容的提问来源于stack exchange，提问作者SoftwareTester