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
%>
第四步:如果有问题可以联系我,然后如果有效,请加分给我,谢谢。