UC知道asp操作excel文件无法读取0开头的电话号码
来源：百度知道 编辑：UC知道 时间：2024/07/03 12:24:47
最近在做一个项目，用到导入xls文件这一块，以前也操作过，没发现什么问题，这次的是一个客户信息的excel表,其中有固定电话和手机，如图示，用asp输出显示的时候发现固定电话无法显示。。。。开始我以为我写错了，于是在其他空白的里面输入1111111，这次这个显示出来了，改过文本和数字格式，也没法输出，百思不得其解，望高人赐教！
程序代码：
set excelconn=server.createobject("adodb.connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};Readonly=0;DBQ=" & server.MapPath(strFile)
excelconn.open Driver
If Err Then
Set excelconn = Nothing
Easp.Alert Err.Description
err.Clear
End If
set xls=ExcelConn.Execute("select * from [Sheet1$]")
while not xls.eof
response.Write xls("固定电话")&"<br>"
xls.movenext:wend
程序代码：
set excelconn=server.createobject("adodb.connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};Readonly=0;DBQ=" & server.MapPath(strFile)
excelconn.open Driver
If Err Then
Set excelconn = Nothing
Easp.Alert Err.Description
err.Clear
End If
set xls=ExcelConn.Execute("select * from [Sheet1$]")
while not xls.eof
response.Write xls("固定电话")&"<br>"
xls.movenext:wend
excelfile=Server.MapPath("uploadfiles/" & filestr)
Set conn1 = Server.CreateObject("ADODB.Connection")
StrConn1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&excelfile&";Extended Properties='Excel 8.0;HDR=YES;IMEX=1';"
conn1.Open StrConn1
Set rs1=Server.CreateObject("ADODB.Recordset")
Sql1="select * from [Sheet1$]"
rs1.Open Sql1,conn1,3,3
按照这种连接方式改来看看
可参考http://hi.baidu.com/xianshao129193/blog/item/1610bd2a40864d325243c142.html