以一代码,在不同的地方,得到不同的值
Sub tt()
Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset
With con
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & "d:\测试.xls" & _
";Extended Properties='Excel 8.0;imex=1'"
.Open
End With
rec.Open "select * from [a$]" _
, con, adOpenDynamic, adLockOptimistic, adCmdText
While Not rec.EOF
MsgBox rec.Fields("a2")
rec.MoveNext
Wend
End Sub
如果放在本文件xls中不会出现科数计数法的字段串,但是放在其它的xls中调用测试的xls就会出现.
xls数据如下,由于不能上传附
a1 a2 a6 a7
1 3842000 a1 b1
2 3842001 a2 b2
3 3842001 a3 b3
然后我把a2列设为文本,然后双击一下a2列的第一行数据.就行出现以前效果,当目前有其它不出现科学计数法的方法就是用excel菜单上面的“菜单”-“数据”-“分列”-“文本”完成格式设置后,每个数据左上解都会有一个小绿角.但很想知道前者.