请教各位高手，我现在想把EXCEL数据读入到SQL  Server的数据库对应的表中，如何实现？譬如我的数据库表中的字段如下
table1
{
     name  varchar(50);
     orgcode varchar(50);
     loanercode varchar(13)
     moneytype int ;
     moneynumber float;
}
我要是想把EXCEL中数据插入到这个表中，如何实现

<%'sql 连接驱动
dim conn,connstr,time1,time2,mdb
time1=timer
  dim aa
  aa=request.form("EXCEL")  '获取传递过来的值
  Dim   StrConnect,cc   
  Dim   objConn   
  Dim   rs   
  Dim   Sql   
  cc=0
  'Excel连接驱动
  aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&aa&";Extended Properties=Excel 8.0"
  set StrConnect=CreateObject("ADODB.Connection")
  StrConnect.Open aaa
  Set objConn=CreateObject("ADODB.Connection")
  objConn.Open   StrConnect   
  '注意 表名一定要以下边这种格试"[表名$]"书写   
  Set   rs = Server.CreateObject("ADODB.Recordset")     
  Sql="select * from [sheet1$]"   
  rs.Open   Sql,StrConnect,2,2     
  IF  rs.Eof And Rs.Bof   Then   
  response.Write("<script>alert('没有资料可以导入！');history.go(-1)</script>")   
  else   
  Do While  Not rs.EOF
  if rs(0)<>""   then   
  '插入SQL2000里   
set rssql=server.CreateObject("adodb.recordset")
rssql.Open "select * from a_sell where PartNo='"&rs(0)&"'",conn,1,3   
if not rssql.recordcount=0 then
response.write ""
else
  rssql.AddNew   
  rssql(1)=rs(0)   
  rssql(2)=rs(1)   
  rssql(3)=rs(2)   
  rssql(4)=rs(3)   
  rssql(5)=rs(4)   
  rssql(6)=rs(5)   
  rssql(7)=rs(6)   
  rssql(8)=rs(7)   
  rssql.Update   
end if
  end if   
  Rs.MoveNext   
  Loop   
  end if   
  response.Write"<script language=javascript>alert('资料导入成功！\n重复数据未导入');history.go(-1)</script>"
  
  %>

你可以把EXCEL文件转为word文件
然后 split 一下
into table1 values("+刚split分割出来的字符串数组+")"
ok~

应该是支持直接读取Excel文件当作数据库来操作的

dddddd

来学习一下！
我对这方面也不是很懂！