Dim cnString As String
Dim x_conn As OdbcConnection
Dim x_cmd As OdbcCommand
Dim x_dr As OdbcDataReader
cnString = "driver={Microsoft excel Driver (*.XLS)};DBQ=D:\test.xls"
x_conn = New OdbcConnection(cnString)
x_conn.Open()
x_cmd = New OdbcCommand
x_cmd.Connection = x_conn
x_cmd.CommandText = "select * from [Sheet1$]" '读Sheet1
x_dr = x_cmd.ExecuteReader
Dim i As Integer=0
Do While x_dr.Read()'循环行
response.write(x_dr.Item(0).ToString.Trim()+" ")'读第1列值
response.write(x_dr.Item(1).ToString.Trim()+"<br>")'读第2列值
i = i + 1
Loop
x_dr.Close()
x_cmd.Dispose()
x_conn.Close()
Dim strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strExcelFilePath & ";" & "Extended Properties='Excel 8.0;HDR=YES;IMEX=1'"
Dim oConnection As OleDbConnection = New OleDbConnection(strConnection)
oConnection.Open()
Dim oCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [" & strSheetName & "$]", oConnection)
Dim oAdapter As OleDbDataAdapter = New OleDbDataAdapter
oAdapter.SelectCommand = oCommand