另外一个通过生成excel解决web打印方案的例子
2005-11-01 14:04
387 查看
<%
server.scripttimeout=360
response.buffer= true
response.expires=0
set xlapplication = CreateObject("Excel.Application")
xlapplication.DisplayAlerts = false'不显示警告
xlapplication.Application.Visible = false'不显示界面
strAddr = Server.MapPath("DailyReport .xls")'此为模块文件.先读取文件然后再将数据写进行再保存
xlapplication.WorkBooks.Open(strAddr)
set objExcelBook = xlapplication.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set xlworksheet = objExcelBook.Sheets(1)
i=3
for i=3 to 40
xlworksheet.cells(i,1).value="90091"
xlworksheet.cells(i,2).value="大酒店"
xlworksheet.cells(i,3).value="301"
xlworksheet.cells(i,4).value="johnny"
'xlworksheet.cells(3,4).interior.colorindex=15 灰色
xlworksheet.cells(i,5).value="2005-10-11"
xlworksheet.cells(i,6).value="2005-10-12"
xlworksheet.cells(i,7).value="标准房"
xlworksheet.cells(i,8).value="2"
xlworksheet.cells(i,9).value="现付"
xlworksheet.cells(i,10).value="1000"
xlworksheet.cells(i,11).value="程"
xlworksheet.cells(i,12).value="网上"
xlworksheet.cells(i,13).value="johnny"
xlworksheet.cells(i,14).value="在住"
xlworksheet.cells(i,15).value="johnny"
xlworksheet.cells(i,16).value="1109"
xlworksheet.cells(i,17).value="自己人"
'xlworksheet.cells(3,18).Font.Bold = True'这个属性是设置黑体ColumnWidth := 3.5列宽
'xlworksheet.cells(3,17).Font.color =1
'xlworksheet.cells(3,13).ColumnWidth = 35
'xlworksheet.cells(2,18).Charts(1).ChartArea.Fill..BackColor.SchemeColor = 17
next
yy=year(date)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
v_ymd=yy&mm&dd
'生成订单号所有所需元素,格式为:小时,分钟,秒
xiaoshi=right("00"&hour(time),2)
fenzhong=right("00"&minute(time),2)
miao=right("00"&second(time),2)
BillNo=xiaoshi&fenzhong&miao
dtime=v_ymd&BillNO
tfilename="excelss.xls"'可以根据现在的月份自动放到相应的文件夹-文件夹是已经建好的
xlworksheet.saveas server.mappath(tfilename)
xlapplication.quit' close the workbook
set xlworksheet=nothing
set xlapplication=nothing
%>
server.scripttimeout=360
response.buffer= true
response.expires=0
set xlapplication = CreateObject("Excel.Application")
xlapplication.DisplayAlerts = false'不显示警告
xlapplication.Application.Visible = false'不显示界面
strAddr = Server.MapPath("DailyReport .xls")'此为模块文件.先读取文件然后再将数据写进行再保存
xlapplication.WorkBooks.Open(strAddr)
set objExcelBook = xlapplication.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set xlworksheet = objExcelBook.Sheets(1)
i=3
for i=3 to 40
xlworksheet.cells(i,1).value="90091"
xlworksheet.cells(i,2).value="大酒店"
xlworksheet.cells(i,3).value="301"
xlworksheet.cells(i,4).value="johnny"
'xlworksheet.cells(3,4).interior.colorindex=15 灰色
xlworksheet.cells(i,5).value="2005-10-11"
xlworksheet.cells(i,6).value="2005-10-12"
xlworksheet.cells(i,7).value="标准房"
xlworksheet.cells(i,8).value="2"
xlworksheet.cells(i,9).value="现付"
xlworksheet.cells(i,10).value="1000"
xlworksheet.cells(i,11).value="程"
xlworksheet.cells(i,12).value="网上"
xlworksheet.cells(i,13).value="johnny"
xlworksheet.cells(i,14).value="在住"
xlworksheet.cells(i,15).value="johnny"
xlworksheet.cells(i,16).value="1109"
xlworksheet.cells(i,17).value="自己人"
'xlworksheet.cells(3,18).Font.Bold = True'这个属性是设置黑体ColumnWidth := 3.5列宽
'xlworksheet.cells(3,17).Font.color =1
'xlworksheet.cells(3,13).ColumnWidth = 35
'xlworksheet.cells(2,18).Charts(1).ChartArea.Fill..BackColor.SchemeColor = 17
next
yy=year(date)
mm=right("00"&month(date),2)
dd=right("00"&day(date),2)
v_ymd=yy&mm&dd
'生成订单号所有所需元素,格式为:小时,分钟,秒
xiaoshi=right("00"&hour(time),2)
fenzhong=right("00"&minute(time),2)
miao=right("00"&second(time),2)
BillNo=xiaoshi&fenzhong&miao
dtime=v_ymd&BillNO
tfilename="excelss.xls"'可以根据现在的月份自动放到相应的文件夹-文件夹是已经建好的
xlworksheet.saveas server.mappath(tfilename)
xlapplication.quit' close the workbook
set xlworksheet=nothing
set xlapplication=nothing
%>
相关文章推荐
- 一个并不是很好解决web打印方案的例子
- 通过iframe引入另外一个项目中的html片段到项目中,解决样式,高度,兼容等问题的策略
- 通过freemarker生成一个word,解决生成的word用wps打开有问题的问题,解决出word时中文文件名乱码问题,解决打开出word时打开的word出现问题的问题,出图片,解决动态列表
- 定义一个交通工具(Vehicle)的类,在测试类Vehicle中的main()中实例化一个交通工具对象,通过方法给它初始化speed,size的值,并打印出来。另外,调用加速,减速的方法对速度进行改变
- 自定义动态生成页面打印以及打印预览的一个实现例子
- 关于Web程序打开Word、Excel后,不能关闭的问题的一个解决办法
- 编写多线程程序,模拟多个人通过一个山洞。这个山洞每次只能通过一个人,每个人通过山洞的时间为2秒(sleep)。随机生成10个人,都要通过此山洞,用随机值对应的字符串表示人名,打印输出每次通过山洞的人名
- Excel开发系列二 解决.net生成Excel文件速度问题的若干方案
- 通过iframe引入另外一个项目中的html片段到项目中,解决样式,高度,兼容等问题的策略
- 定义一个交通工具(Vehicle)的类,在测试类Vehicle中的main()中实例化一个交通工具对象,通过方法给它初始化speed,size的值,并打印出来。另外,调用加速,减速的方法对速度进行改变
- 一个简单的QQ隐藏图生成算法 通过jQuery和C#分别实现对.NET Core Web Api的访问以及文件上传
- 两种方案解决webprint打印小插件不能自动注册的问题
- Asp.net MVC3使用Reporting Services生成PDF解决Web在线打印
- 编写多线程程序,模拟多个人通过一个山洞。这个山洞每次只能通过一个人,每个人通过山洞的时间为2秒(sleep)。随机生成10个人,都要通过此山洞,用随机值对应的字符串表示人名,打印输出
- 推荐一个基于Flex的Web文档打印方案
- 定义一个交通工具(Vehicle)的类,在测试类Vehicle中的main()中实例化一个交通工具对象,通过方法给它初始化speed,size的值,并打印出来。另外,调用加速,减速的方法对速度进行改变
- 定义一个交通工具(Vehicle)的类,在测试类Vehicle中的main()中实例化一个交通工具对象,通过方法给它初始化speed,size的值,并打印出来。另外,调用加速,减速的方法对速度进行改变
- 【C#】对异步请求处理程序IHttpAsyncHandler的理解和分享一个易用性封装 【手记】走近科学之为什么明明实现了IEnumerable<T>的类型却不能调用LINQ扩展方法 【手记】手机网页弹出层后屏蔽底层的滑动响应 【手记】ASP.NET提示“未能创建类型”处理 【Web】一个非常简单的移动web消息框 【手记】解决EXCEL跑SQL遇“查询无法运行或数据库表无法打开...”
- 诡异的问题:Excel做报表打印,莫名在根目录生成快捷方式的解决方法
- 定义一个交通工具(Vehicle)的类,在测试类Vehicle中的main()中实例化一个交通工具对象,通过方法给它初始化speed,size的值,并打印出来。另外,调用加速,减速的方法对速度进行改变