(ASP源碼)求壹個可用Excel數據批量導入到Access的ASP程序

第壹步：建立好妳的access數據表對應excel的各個字段。

第二步：asp與excel建立聯系，從excel中讀取數據，具體代碼如下：

<%

'創建數據庫連接對象

set excelconn=server.createobject("adodb.connection")

'獲取妳的excel數據表路徑，將excel1替換為妳的excel文件名

strAddr1 = Server.MapPath("excel1.xls")

'打開excel數據源

excelconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr1

'建立excel記錄集

set excelrs=server.createobject("adodb.recordset")

'妳的sql語句，sheet1替換為妳的表名

sql="select * from [Sheet1$]"

'執行sql語句

excelrs.open sql,excelconn,1,1

%>

第三步：建立asp與access的聯系，循環將剛剛數據集中的內容填入access表中，具體代碼：

<%

set accessconn=server.createobject("adodb.connection")

strAddr2 = Server.MapPath("test.mdb")

accessconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strAddr2

do while not excelrs.eof

'此處只做了壹個字段的例子，假定妳的access中表名為excel

addsql="insert into excel(num1) values('"& excelrs("num1")&"')"

excelrs.movenext

loop

%>

第四步：如果有問題可以聯系我，然後如果有效，請加分給我，謝謝。