本人想把EXCEL表导入ACCESS表中,帮帮忙,非常简单,在线等!本人真的很菜

[hangeb]

本人想把EXCEL表导入ACCESS表中,
excel
SX DX
1 2
2 3
3 4
我现在想在EXCEL中把SX字段(即SX这一列)的单元格格式变成数字---也就是把1,2,3这一列格式变成数字!要怎么做呢?
注意是在EXCEL中!

[king_shadow]

<%
dim strdb
dim str_Xsl,myConn_Xsl,filename
filename=trim(request.Form("filename"))
strdb=server.MapPath("uploadfiles/"&filename&"")
set rsXsl=Server.Createobject("ADODB.Recordset")
set myConnection=server.createobject("adodb.connection")
myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &strdb&";Extended Properties=Excel 8.0"
myconnection.open myConn_Xsl
str_Xsl="select * from [sheet1$]"
rsXsl.open str_Xsl,myconnection,1,1
if not(rsXsl.eof and rsXsl.bof) then
sql="select * from ks where snum='"&rsXsl(1)&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof then
do while not rsXsl.eof
rs.addnew
rs("sno")=rsXsl(0)
rs("snum")=rsXsl(1)
rs("sname")=rsXsl(2)
rs("ssex")=rsXsl(3)
rs("sks")=rsXsl(4)
rs.update
rsXsl.movenext
loop
else
response.write "数据已存在！或添加成功，请<a href='admin_ks.asp'>查看</a>"
response.end
end if
response.write "数据导入成功！"
rsXsl.close
set rsXsl=nothing
myconnection.close
else
response.write "Excel表不存在，或记录为空"
end if
%>

-----------------------------------------
asp技术群(asp,js,vbs,ajax,sql):4259772

[yousite1]

从access打开文件->获取外部数据->导入...
文件类型选 Microsoft Excel(*.xls)就可以了。