写一段用VB.NET访问Excel每一个单元格数据的代码
时间: 2023-02-20 11:03:17 浏览: 70
以下是用VB.NET访问Excel每一个单元格数据的代码示例:
```
Imports System.Data.OleDb
Module Module1
Sub Main()
' 连接Excel文件
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.xls;Extended Properties=Excel 8.0;"
Dim connection As New OleDbConnection(connectionString)
connection.Open()
' 读取Excel数据
Dim command As New OleDbCommand("SELECT * FROM [Sheet1$]", connection)
Dim reader As OleDbDataReader = command.ExecuteReader()
' 遍历每一个单元格数据
While reader.Read()
For i As Integer = 0 To reader.FieldCount - 1
Console.WriteLine(reader(i).ToString())
Next
End While
' 关闭连接
reader.Close()
connection.Close()
Console.ReadLine()
End Sub
End Module
```
该代码使用`System.Data.OleDb`命名空间中的`OleDbConnection`和`OleDbCommand`类,使用ODBC驱动程序将Excel文件连接到VB.NET应用程序。然后,使用SQL语句从Excel中读取数据,并使用循环遍历每一个单元格数据。