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

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

EWF写保护功能详解：从安装到实战操作指南本文详细介绍了EWF写保护功能的安装与实战操作指南。EWF（Enhanced Write Filter）通过重定向写入操作保护硬盘分区，特别适合需要长期稳定运行的系统场景。文章涵盖从安装准备、图形界面操作到命令行高级管理的全流程，并提供了常见问题的解决方案，帮助用户轻松掌握这一实用工具。阅读详情

从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行

...全文