asp导出Excel文档代码

最新推荐文章于 2023-05-23 11:14:54 发布
最新推荐文章于 2023-05-23 11:14:54 发布
阅读量1.3k 收藏 2
点赞数
分类专栏： ASP 文章标签： excel asp 文档 工作 数据库 file
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/hegx2001/article/details/2535101
版权
导读：
　　xls.asp
　　<%

Set xlApplication = Server.CreateObject("Excel.Application") '调用excel对象

xlApplication.Visible = False '无需打开excel

xlApplication.SheetsInNewWorkbook=1 '指定excel中表的数量

xlApplication.Workbooks.Add '添加工作簿

Set xlWorksheet = xlApplication.Worksheets(1) '生成第1个工作表的子对象

xlWorksheet.name="统计" '指定工作表名称

'指定列的宽度以及对齐方式

xlApplication.ActiveSheet.Columns(1).ColumnWidth=5

xlApplication.ActiveSheet.Columns(1).HorizontalAlignment=3

xlApplication.ActiveSheet.Columns(2).ColumnWidth=40

xlApplication.ActiveSheet.Columns(2).HorizontalAlignment=1

xlApplication.ActiveSheet.Columns(3).ColumnWidth=5

xlApplication.ActiveSheet.Columns(3).HorizontalAlignment=3

xlApplication.ActiveSheet.Columns(4).ColumnWidth=15

xlApplication.ActiveSheet.Columns(4).HorizontalAlignment=1

xlApplication.ActiveSheet.Columns(5).ColumnWidth=12

xlApplication.ActiveSheet.Columns(5).HorizontalAlignment=1

xlApplication.ActiveSheet.Columns(6).ColumnWidth=12

xlApplication.ActiveSheet.Columns(6).HorizontalAlignment=3

'xlApplication.ActiveSheet.Rows(i).RowHeight = 30'行的高度

'指定列的高度以及特定列

xlWorksheet.Range(xlWorksheet.Cells(1,1), xlWorksheet.Cells(1,6)).MergeCells =True '合并列

xlWorksheet.Range("A1").value="2005年统计"

xlWorksheet.Range("A1").font.Size=14'字体大小

xlWorksheet.Range("A1").font.bold=true'粗体

xlWorksheet.Range("A1").HorizontalAlignment=3'水平对齐

xlWorksheet.Range("A1").VerticalAlignment=3'垂直对齐

xlWorksheet.Cells(2,1).Value = "序号"

xlWorksheet.Cells(2,2).Value = "标题"

xlWorksheet.Cells(2,3).Value = "图"

xlWorksheet.Cells(2,4).Value = "部门"

xlWorksheet.Cells(2,5).Value = "作者"

xlWorksheet.Cells(2,6).Value = "时间"

xlWorksheet.Range("A2:F2").Borders.LineStyle=1

'--------------------------------------------------自己可做循环i=i+1（数据库数据）

'xlWorksheet.Cells(2+i,1).Value = i

'xlWorksheet.Cells(2+i,2).Value = topic

'xlWorksheet.Cells(2+i,3).Value = img_str

'xlWorksheet.Cells(2+i,4).Value = nfrom

'xlWorksheet.Cells(2+i,5).Value = writer

'xlWorksheet.Cells(2+i,6).Value = ntime

'--------------------------------------------------

Set fs = CreateObject("Scripting.FileSystemObject")

tfile=Server.MapPath("test.xls")

if fs.FileExists(tfile) then

Set f = fs.GetFile(tfile)

f.delete true

Set f = nothing

end if

Set fs = nothing

xlWorksheet.SaveAs tfile '保存文件

xlApplication.Quit '释放对象

Set xlWorksheet = Nothing

Set xlApplication = Nothing

%>　　Set xlApplication = Server.CreateObject("Excel.Application") '调用excel对象

　　xlApplication.Visible = False '无需打开excel

　　xlApplication.SheetsInNewWorkbook=1 '指定excel中表的数量

　　xlApplication.Workbooks.Add '添加工作簿

　　Set xlWorksheet = xlApplication.Worksheets(1) '生成第1个工作表的子对象

　　xlWorksheet.name="统计" '指定工作表名称

　　'指定列的宽度以及对齐方式

　　xlApplication.ActiveSheet.Columns(1).ColumnWidth=5

　　xlApplication.ActiveSheet.Columns(1).HorizontalAlignment=3

　　xlApplication.ActiveSheet.Columns(2).ColumnWidth=40

　　xlApplication.ActiveSheet.Columns(2).HorizontalAlignment=1

　　xlApplication.ActiveSheet.Columns(3).ColumnWidth=5

　　xlApplication.ActiveSheet.Columns(3).HorizontalAlignment=3

　　xlApplication.ActiveSheet.Columns(4).ColumnWidth=15

　　xlApplication.ActiveSheet.Columns(4).HorizontalAlignment=1

　　xlApplication.ActiveSheet.Columns(5).ColumnWidth=12

　　xlApplication.ActiveSheet.Columns(5).HorizontalAlignment=1

　　xlApplication.ActiveSheet.Columns(6).ColumnWidth=12

　　xlApplication.ActiveSheet.Columns(6).HorizontalAlignment=3

　　'xlApplication.ActiveSheet.Rows(i).RowHeight = 30'行的高度

　　'指定列的高度以及特定列

　　xlWorksheet.Range(xlWorksheet.Cells(1,1), xlWorksheet.Cells(1,6)).MergeCells =True '合并列

　　xlWorksheet.Range("A1").value="2005年统计"

　　xlWorksheet.Range("A1").font.Size=14'字体大小

　　xlWorksheet.Range("A1").font.bold=true'粗体

　　xlWorksheet.Range("A1").HorizontalAlignment=3'水平对齐

　　xlWorksheet.Range("A1").VerticalAlignment=3'垂直对齐

　　xlWorksheet.Cells(2,1).Value = "序号"

　　xlWorksheet.Cells(2,2).Value = "标题"

　　xlWorksheet.Cells(2,3).Value = "图"

　　xlWorksheet.Cells(2,4).Value = "部门"

　　xlWorksheet.Cells(2,5).Value = "作者"

　　xlWorksheet.Cells(2,6).Value = "时间"

　　xlWorksheet.Range("A2:F2").Borders.LineStyle=1

　　'--------------------------------------------------自己可做循环i=i+1（数据库数据）

　　'xlWorksheet.Cells(2+i,1).Value = i

　　'xlWorksheet.Cells(2+i,2).Value = topic

　　'xlWorksheet.Cells(2+i,3).Value = img_str

　　'xlWorksheet.Cells(2+i,4).Value = nfrom

　　'xlWorksheet.Cells(2+i,5).Value = writer

　　'xlWorksheet.Cells(2+i,6).Value = ntime

　　'--------------------------------------------------

　　Set fs = CreateObject("Scripting.FileSystemObject")

　　tfile=Server.MapPath("test.xls")

　　if fs.FileExists(tfile) then

　　Set f = fs.GetFile(tfile)

　　f.delete true

　　Set f = nothing

　　end if

　　Set fs = nothing

　　xlWorksheet.SaveAs tfile '保存文件

　　xlApplication.Quit '释放对象

　　Set xlWorksheet = Nothing

　　Set xlApplication = Nothing

　　%>
xls.asp

<%
Set xlApplication = Server.CreateObject("Excel.Application") '调用excel对象
xlApplication.Visible = False '无需打开excel
xlApplication.SheetsInNewWorkbook=1 '指定excel中表的数量
xlApplication.Workbooks.Add '添加工作簿
Set xlWorksheet = xlApplication.Worksheets(1) '生成第1个工作表的子对象
xlWorksheet.name="统计" '指定工作表名称
'指定列的宽度以及对齐方式
xlApplication.ActiveSheet.Columns(1).ColumnWidth=5
xlApplication.ActiveSheet.Columns(1).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(2).ColumnWidth=40
xlApplication.ActiveSheet.Columns(2).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(3).ColumnWidth=5
xlApplication.ActiveSheet.Columns(3).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(4).ColumnWidth=15
xlApplication.ActiveSheet.Columns(4).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(5).ColumnWidth=12
xlApplication.ActiveSheet.Columns(5).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(6).ColumnWidth=12
xlApplication.ActiveSheet.Columns(6).HorizontalAlignment=3
'xlApplication.ActiveSheet.Rows(i).RowHeight = 30'行的高度
'指定列的高度以及特定列
xlWorksheet.Range(xlWorksheet.Cells(1,1), xlWorksheet.Cells(1,6)).MergeCells =True '合并列
xlWorksheet.Range("A1").value="2005年统计"
xlWorksheet.Range("A1").font.Size=14'字体大小
xlWorksheet.Range("A1").font.bold=true'粗体
xlWorksheet.Range("A1").HorizontalAlignment=3'水平对齐
xlWorksheet.Range("A1").VerticalAlignment=3'垂直对齐

xlWorksheet.Cells(2,1).Value = "序号"
xlWorksheet.Cells(2,2).Value = "标题"
xlWorksheet.Cells(2,3).Value = "图"
xlWorksheet.Cells(2,4).Value = "部门"
xlWorksheet.Cells(2,5).Value = "作者"
xlWorksheet.Cells(2,6).Value = "时间"

xlWorksheet.Range("A2:F2").Borders.LineStyle=1

'--------------------------------------------------自己可做循环i=i+1（数据库数据）
'xlWorksheet.Cells(2+i,1).Value = i
'xlWorksheet.Cells(2+i,2).Value = topic
'xlWorksheet.Cells(2+i,3).Value = img_str
'xlWorksheet.Cells(2+i,4).Value = nfrom
'xlWorksheet.Cells(2+i,5).Value = writer
'xlWorksheet.Cells(2+i,6).Value = ntime
'--------------------------------------------------
Set fs = CreateObject("Scripting.FileSystemObject")
tfile=Server.MapPath("test.xls")
if fs.FileExists(tfile) then
Set f = fs.GetFile(tfile)
f.delete true
Set f = nothing
end if
Set fs = nothing
xlWorksheet.SaveAs tfile '保存文件
xlApplication.Quit '释放对象
Set xlWorksheet = Nothing
Set xlApplication = Nothing
%>

下载


downfile.asp

<%
Function downLoadFile(FileSpec)
on error resume next
Const ForReading=1
Const TristateTrue=-1
Const FILE_TRANSFER_SIZE=1024 '16384
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
If objFileSystem.FileExists(fileSpec)=false Then
response.write("<script>alert(""请求文件不存在！"");history.back();</script>")
Exit Function
End If
FileName = objFileSystem.GetFileName(FileSpec)
send=0
TransferFile = True
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(FileSpec)
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
Response.AddHeader "content-type", "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment;filename=" & filename

Response.AddHeader "content-length", objFile.Size
Do While Not objStream.AtEndOfStream
char = objStream.Read(1)
Response.BinaryWrite(char)
sent = sent + 1
If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
Response.Flush
If Not Response.IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function
fileSpec =Lcase(Cstr(Trim(Request("fileSpec"))))
downLoadFile(fileSpec)
%>

本文转自
http://hi.baidu.com/1__1/blog/item/d530d5889065cc91a4c272b0.html
BobHe
关注
专栏目录
asp导出excel文件最简单方便的方法
10-25
本文将详细介绍一种简单且实用的ASP导出Excel文件的方法，该方法基于HTML表格的原理，利用浏览器的兼容性来实现。 首先，我们要理解为什么可以使用HTML表格来模拟Excel文件。这是因为Excel能够识别并导入HTML表格...
ASP导出Excel数据最簡單的方法
网络Online
05-17 702
　四、导出以半角逗号隔开的csv　　用fso方法生成文本文件的方法，生成一个扩展名为csv文件。此文件，一行即为数据表的一行。生成数据表字段用半角逗号隔开。（有关fso生成文本文件的方法，在此就不做介绍了）　　CSV文件介绍（逗号分隔文件）　　选择该项系统将创建一个可供下载的CSV 文件； CSV是最通用的一种文件格式，它可以非常容易地被导入各种PC表格及数据库中。　　请注意即使选
asp导出EXCEL数字格式及自动适应宽度的问题
魔拉宝
12-23 4159
asp导出EXCEL数字格式及自动适应宽度的问题下面直接进行代码演示：If Response.IsClientConnected Then Response.Flush Else Response.EndEnd IfSet xlApplication = Server.CreateObject("Excel.Application")xlApplication.Vi
ASP导出Excel方法总结
yangpengfei813的专栏
01-08 435
#region Excel导出 /// /// 导出DataSet 到 Excel /// /// DataTable /// 文件名 public void ExportToExcel(DataTable dt, string fileName) { Sy
EasyExcel导入导出样式、自适应列宽、自适应行高
热门推荐
m0_73900214的博客
05-23 1万+
EasyExcel导入导出样式、自适应列宽、自适应行高，监听器，
asp 输出 excel 两种方法
FeelUps--The more U Give,The More U Have
05-10 1023
protected void HtmlWriteGV(System.Web.UI.Control gv)         { //方法一，此方法需要添加下面的 public override void VerifyRenderingInServerForm(Control control) 方法，另外前台页面需添加EnableEventValidation = "false" %>
asp.net导出Excel类库代码分享
10-26
根据给定的文件信息，我们将会详细解释***导出Excel类库代码的相关知识点。 首先，***是微软公司开发的一个用于构建Web应用程序的框架。它能够与.NET框架无缝集成，使得开发者可以使用.NET语言进行Web开发。***的一...
ASP.NET 导出到Excel时保留换行的代码
10-30
首先，***中可以通过服务器端的代码来创建一个Excel文件并导出给用户，这一过程涉及到设置HTTP响应的内容类型、内容编码、文件名等。例如，在上述代码中，我们设置了响应的内容类型为 `application/vnd.ms-excel` 来...
ASP.NET Core 导入导出Excel xlsx 文件实例
10-20
<h2>ASP.NET Core 导入导出Excel xlsx 文件 <a asp-action="Export">导出Excel ``` 当用户点击这个链接时，会触发`Export`操作并下载生成的Excel文件。 至于导入Excel文件，过程大致相反。你将需要读取Excel文件的...
asp.net导出EXCEL的功能代码
10-30
在***中实现导出Excel功能是Web开发中常见需求之一。通过给定文件的信息，我们可以了解到实现该功能的核心代码，以及在使用过程中发现的不足之处和一些使用注意事项。 首先，核心代码的作用是通过***页面上的控件，...
asp中把数据导出为excel的2种方式，亲测可用
06-14
asp中把数据导出为excel的2种方式，亲测可用
ASP导出生成Excel
10-25
ASP导出生成Excel文件示例代码，带数据库
ASP导出Excel数据的四种方法
02-21
ASP导出Excel数据的四种方法，网上搜索，共同分享。
asp查询结果导出excel
08-28
asp连接sql2008全部查询 再导出excel 包里有数据库代码，项目直接放到iis上可用
导出excel设置样式（Aspose.Cells）
Hubert Biyo的博客
11-28 2660
1.导出excel样式大全 //设置格式 Aspose.Cells.Style style = xlBook.Styles[xlBook.Styles.Add()]; style1.Pattern = Aspose.Cells.BackgroundType.Solid;//单元格的线：实线 style1.HorizontalAlignment = Aspose.Cells.Text
ASP导出excel文件的代码（自己试验成功并且一直在使用的哟）
图书馆技术工作
03-14 7508
dim  conn,strconn  strconn="driver={SQL Server};server=wen;uid=sa;pwd=;database=DB_Test"  set conn=server.CreateObject("adodb.connection")  conn.Open strconn   dim s,sql,filename,fs,myfile,x   Set
ASP中把数据导出为Excel的三种方法
qhdzj87的专栏
01-17 5102
方法一：用excel组件 这种方法利用Excel组件直接导出excel文件，要求服务器端安装有微软office（Excel）程序，否则无法运行。 Set conn=server.CreateObject("adodb.connection") connstr="provider=microsoft.jet.oledb.4.0;data source="& Server.MapPath("/db.mdb") conn.open connstr set rs=server.cr..
asp导出excel代码
最新发布
09-01
ASP导出Excel是通过使用ASP代码将数据导出为Excel文件。下面是一个简单的示例代码，用于演示如何导出Excel文件。 首先，我们需要在ASP页面中创建一个数据表格，并填充要导出的数据。然后，通过使用Response对象，...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

BobHe

您的支持就是我的动力，谢谢！

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值