用ADO读取EXCEL出现数据丢失

[Allblus]

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String

rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic

sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn

我在用以上的方式连接EXCEL后读出来的数据中,如果有一列第一个单元格是STRING类型则这列只能读出STRING型数据,如果第一个单元格是INTEGER则这列只能读出整型的数据,

这种问题该怎么解决???

[XELEMENT]

参考一下...
http://support.microsoft.com/kb/257819/

[of123]

对于混合数据，你最好是将其全部改为字符型。例如：

sconn.Execute "Update [sheet1$] Set field1 = "'" & filed1 Where IsNumeric(field1)"