一、以循环来读取
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error Resume Next
Dim s As String
With OpenFileDialog1
.Multiselect = True
.FileName = ""
.Filter = "Excel文件(*.xls)|*.xls"
.FilterIndex = 1
End With
OpenFileDialog1.ShowDialog()
For Each s In OpenFileDialog1.FileNames
ListBox1.Items.Add(s)
Next
End Sub
On Error Resume Next
Dim s As String
With OpenFileDialog1
.Multiselect = True
.FileName = ""
.Filter = "Excel文件(*.xls)|*.xls"
.FilterIndex = 1
End With
OpenFileDialog1.ShowDialog()
For Each s In OpenFileDialog1.FileNames
ListBox1.Items.Add(s)
Next
End Sub
二、更简洁的方法
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error Resume Next
With OpenFileDialog1
.Multiselect = True
.FileName = ""
.Filter = "Excel文件(*.xls)|*.xls"
.FilterIndex = 1
End With
On Error Resume Next
With OpenFileDialog1
.Multiselect = True
.FileName = ""
.Filter = "Excel文件(*.xls)|*.xls"
.FilterIndex = 1
End With
OpenFileDialog1.ShowDialog()
ListBox1.Items.AddRange(OpenFileDialog1.FileNames)
End Sub