VB.NET如何通过浏览计算机把有表头的EXCEL数据全部导入DATAGIRDVIEW中
时间: 2024-02-20 09:02:33 浏览: 8
你可以使用以下代码实现这个功能:
```
Dim openFileDialog As New OpenFileDialog()
openFileDialog.Filter = "Excel Files (*.xls;*.xlsx)|*.xls;*.xlsx|All Files (*.*)|*.*"
If openFileDialog.ShowDialog() = DialogResult.OK Then
Dim filePath As String = openFileDialog.FileName
Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & filePath & ";Extended Properties=Excel 12.0;"
Dim adapter As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", connectionString)
Dim ds As New DataSet()
adapter.Fill(ds, "ExcelTable")
dataGridView.DataSource = ds.Tables("ExcelTable")
End If
```
这段代码会弹出一个对话框让用户选择要导入的 Excel 文件,然后使用 OleDbDataAdapter 类从 Excel 文件中读取数据,并将数据绑定到 DataGridView 控件上。请确保你已经添加了对 System.Data.OleDb 命名空间的引用。