aspexcel源碼
Ⅰ [ASP源碼]求一個可用Excel數據批量導入到Access的ASP程序
只能提供給你思路。 很簡單，ASP中可以把Excel當做資料庫來使用，程序中建立兩個連接，一個連接你的Access，另一個連接到Excel，然後查詢Excel中的數據，再寫入到Access。查詢語句跟Access一樣。 asp連接excel的方法與代碼： <% dim connxls,connstrxls connstrxls="DBQ=d:\newexcel.xls;DefaultDir=;DRIVER={Microsoft Excel Driver (*.xls)};" set connxls=server.createobject("ADODB.CONNECTION") connxls.open connstrxls Set rsxls=Server.CreateObject("ADODB.Recordset") sqlxls = "select * from [new$]" %>
Ⅱ asp 把表格導出excel表源碼
一、用Excel對象，但要有Excel模板。速度略慢
<!--#includefile="../conn.asp"-->
<%
dims,sql,filename,fs,myfile,x
Setfs=server.CreateObject("scripting.filesystemobject")
'--假設你想讓生成的EXCEL文件做如下的存放
filename=Server.MapPath("users.xls")
'--如果原來的EXCEL文件存在的話刪除它
iffs.FileExists(filename)then
fs.DeleteFile(filename)
endif
'--創建EXCEL文件
setmyfile=fs.CreateTextFile(filename,true)
strSql="selectdjh,bmmc,jihua,mubiaofromscheme"
SetrstData=conn.execute(strSql)
ifnotrstData.EOFandnotrstData.BOFthen
dimtrLine,responsestr
strLine=""
ForeachxinrstData.fields
strLine=strLine&x.name&chr(9)
Next
'--將表的列名先寫入EXCEL
myfile.writelinestrLine
DowhileNotrstData.EOF
strLine=""
foreachxinrstData.Fields
strLine=strLine&x.value&chr(9)
next
myfile.writelinestrLine
rstData.MoveNext
loop
endif
Response.Write"生成EXCEL文件成功，點擊<ahref=""users.xls""target=""_blank"">下載</a>！"
rstData.Close
setrstData=nothing
Conn.Close
SetConn=nothing
%>
二、生成假的Excel，文件本身的格式是TXT，但擴展名使用的是XLS，用Excel也可以打開。速度快
<!--#includefile="../conn.asp"-->
<%
Response.ContentType="application/vnd.ms-excel"
%>
<tableborder="1"style="border-collapse:collapse;">
<tralign="center">
<td>編號</td>
<td>日期</td>
<td>部門</td>
<td>工作計劃</td>
<td>工作目標</td>
</tr>
<%
setrs=server.createobject("adodb.recordset")
sql="selectdjh,rq,bmmc,jihua,mubiaofromschemewherebmmc='"&session("bmmc")&"'"
rs.opensql,conn,1,1
dowhilenotrs.eof
%>
<tr>
<td><%=rs("djh")%></td>
<td><%=rs("rq")%></td>
<td><%=rs("bmmc")%></td>
<td><%=rs("jihua")%></td>
<td><%=rs("mubiao")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
<%
rs.close
Conn.Close
SetConn=nothing
%>
Ⅲ 如何從asp導出至Excel表格，要詳細的源碼
最簡單的方法就是導出CSV文本文件了，每一行對應一條記錄，可使用逗號分割
CSV文件我記得默認就是使用excel打開的
Ⅳ (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
%>
第四步：如果有問題可以聯系我，然後如果有效，請加分給我，謝謝。