如何把excel中的数据导到数据库里

[xiaogu1234]

如何通过asp页面能控制把excel中的数据导到数据库里，谢谢。。。。。。。。。。。。。。。。。。。。。。。。。。

[银狐被占用]

SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

用ASP执行这个语句。

[xiaogu1234]

我对这个确实不太熟，能说清楚点吗，谢谢

[aloesky]

Set objExcelApp = Server.CreateObject("Excel.Application")
objExcelApp.Quit '必须写这句，否则系统会驻留excel.exe进程，导致EXCEL文件不可用
objExcelApp.DisplayAlerts = False '不显示警告
objExcelApp.Application.Visible = False '不显示界面
objExcelApp.WorkBooks.Open(ExeclFile)
set objExcelBook = objExcelApp.ActiveWorkBook
reDim arrSheets(objExcelBook.Sheets.Count)
For i=1 to objExcelBook.Sheets.Count
arrSheets(i) = objExcelBook.Sheets(i).Name
Next
objExcelApp.Quit'必须写这句，否则系统会驻留excel.exe进程，导致EXCEL文件不可用
Set objExeclApp = Nothing
End If

Dim Conn,Driver,DBPath,Rs,SqlInsert,SqlDelete

Set Conn = Server.CreateObject("ADODB.Connection")'建立Connection对象
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Trim(Request("你的EXCEL文件"))
Conn.Open Driver & DBPath

For i = 1 To UBound(arrSheets)'循环所有工作表
Sql = "SELECT * FROM ["& arrSheets(i) &"$] "
Set Rs = Conn.Execute(Sql)

If Rs.Eof And Rs.Bof Then
Response.write "EXCEL文件中无数据!!<br>"
Else

Do While Not Rs.Eof
SqlInsert = "Insert Into "&Trim(Request("Table"))&" (a,b,c) Values('"&Trim(Rs(0))&"','"&Trim(Rs(1))&"','"&Trim(Rs(2))&"')"
SqlConn.Execute(SqlInsert)'将Excel表格中的数据插入临时表
Rs.MoveNext
Loop

response.redirect "index.asp"
End If

Rs.Close
Set Rs = Nothing
Next'循环EXCEL所有工作表结果

'-----研究一下我的代码,希望能帮到你.

[hreoghost]

study``