asp實現將Excel表匯入到sql資料庫

象access 資料庫一樣,把excel檔案開啟,再進行讀再寫到access中你要寫到sqlserver中就把寫的過程改一下就成了.

以下是代碼： dim conn  dim conn2  set conn=CreateObject("ADODB.Connection")  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb"  set conn2=CreateObject("ADODB.Connection")  conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls"  sql = "SELECT * FROM [Sheet1$]"  set rs = conn2.execute(sql)  while not rs.eof  sql = "insert into xxx([a],[b],[c],[d]) values(’"& fixsql(rs(0)) &"’,’"& fixsql(rs(1)) &"’,’"& fixsql(rs(2)) &"’,’"& fixsql(rs(3)) &"’)"  conn.execute(sql)  rs.movenext  wend  conn.close  set conn = nothing  conn2.close  set conn2 = nothing  function fixsql(str)  dim newstr  newstr = str  if isnull(newstr) then  newstr = ""  else  newstr = replace(newstr,"’","’’")  end if  fixsql = newstr  end function