Private Sub Button_ImportBasicData_Click(sender As Object, e As EventArgs) Handles Button_ImportBasicData.Click ' 创建文件对话框对象 Dim openFileDialog As New OpenFileDialog() ' 配置文件对话框 openFileDialog.Title = "请选择一个Excel文件" openFileDialog.Filter = "Excel 文件 (*.xlsx; *.xls)|*.xlsx;*.xls" openFileDialog.InitialDirectory = "" ' 显示文件对话框 If openFileDialog.ShowDialog() = DialogResult.OK Then Dim filePath As String = openFileDialog.FileName ' 在此处添加打开和处理Excel文件的代码 MsgBox("您选择的文件是: " & filePath) Else MsgBox("没有选择文件") End If End Sub
关键代码:设置初始文件夹为空
openFileDialog.InitialDirectory = ""
标签:文件,vb,对话框,解决方案,Excel,文件夹,openFileDialog From: https://www.cnblogs.com/issacnew/p/18204541