重点是连接字符串:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/aa.xls;Extended Properties='Excel 8.0;HDR=NO;IMEX=1';";
HDR=[NO/YES]:是否有标题
IMEX=1:这个会将所有内容转换成文本型
加上两个即可解决导入转换为空问题
转自:http://www.cnblogs.com/ywkpl/archive/2010/09/28/1837402.html
下面是我自己写的例子:
Dim strFileName as String = "xxxx.xls"
Dim strConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFileName & ";Extended Properties='Excel 8.0;HDR=YES;IMEX=1'"
Dim conns As OleDbConnection = New OleDbConnection(strConnect)
Try
conns.Open()
Dim strQuery As String = "Select * From [Sheet1$]"
Using comm As New OleDbCommand(strQuery, conns)
Using dataAdapter As New OleDbDataAdapter(comm)
Dim ds As DataSet = New DataSet()
dataAdapter.Fill(ds)
End Using
End Using
Finally
If conns IsNot Nothing AndAlso conns.State = ConnectionState.Open Then
conns.Close()
conns.Dispose()
End If
End Try