excel中第一列为数字时取不到值

2006-07-05 05:32:42 324 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

AT91SAM9260搭建LINUX操作系统一、编写目的 2 二、系统搭建 2 1. 下载相关软件包 2 2. Bootstrap编译 3 3. U-BOOT编译 5 4. LINUX编译 7 5. 通过U-BOOT的TFTP命令从TFTP服务器下载系统镜像 9 6. 文件系统制作 10 7. 挂载NFS作为根文件系统 10 三、总结 14 一、编写目的本文档用于记录AT91SAM9260 LINUX学阅读详情

从excel文件中导入数据，如果其中某行的第一列是0－9组成的数字时，总是取不到值，百思不解

源码：
<%
''excel文件中的内容''
'姓名办公电话住宅电话小灵通手机 email 生日备注
'433 4444444 4444444
'zz 8888888 3333333 33333333333

dim filepath, fileEXT
filepath = "test.xls"
fileEXT = ".xls"

if fileEXT=".xls" then
on error resume next
Dim objExcelApp, objExcelBook, arrSheet1
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Quit
objExcelApp.DisplayAlerts = False
objExcelApp.Application.Visible = False
objExcelApp.WorkBooks.Open(server.MapPath(filepath))
set objExcelBook = objExcelApp.ActiveWorkBook
if objExcelBook.Sheets.Count<1 then
Response.write "<script>alert('1没有找到适合导入的数据!!');</script>"
end if
arrSheet1 = objExcelBook.Sheets(1).Name
objExcelApp.Quit
Set objExeclApp = Nothing

Dim Connxls,Driver,DBPath,Rs
Set Connxls = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & server.MapPath(filepath)
Connxls.Open Driver & DBPath
Sql = "SELECT * FROM ["&arrSheet1&"$] "
Set Rs = Connxls.Execute(Sql)
If Rs.Eof or Rs.Bof Then
Response.write "<script>alert('2没有找到适合导入的数据!!!');</script>"
response.end
Else
Do While Not Rs.Eof
iLoop = 0
tmpStr = "'"&"myname"&"','"&"ListName"&"'"
while iLoop<8 and iLoop<Rs.Fields.Count
tmpStr = tmpStr&",'"
tmpStr = tmpStr&replace(Cstr(Rs(iLoop).value),"'","''")
tmpStr = tmpStr&"'"
iLoop = iLoop + 1
wend
while iLoop<8
tmpStr = tmpStr&",''"
iLoop = iLoop + 1
wend
sqlinsert = "insert into addressList values("&tmpStr&")"
response.write sqlinsert&"--"
'发现sqlinsert的内容是：insert into addressList values('myname','ListName','','4444444','','4444444','','','','')--
'而我希望的是： insert into addressList values('myname','ListName','433','4444444','','4444444','','','','')--
'conn.execute SqlInsert
Rs.MoveNext
Loop
Response.Write "<script>alert('成功导入Excel文件中的数据');</script>"
End If
Rs.Close
Set Rs = Nothing
Connxls.close
set Connxls = Nothing
end if
%>
问题详述：源代码的第53行

...全文