给自己一点时间接受自己,爱自己,趁着下午茶的时间来学习图老师推荐的如何使Excel标题跨列居中,过去的都会过去,迎接崭新的开始,释放更美好的自己。
【 tulaoshi.com - excel 】
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/ejc/)
在ASP程序中打印Excel报表的新方法
目前,B/S模式(浏览器/服务器模式)成为企业网上首选的计算模式。由于B/S模式的特殊性,在C/S下相对较易实现的Excel报表打印功能在B/S下却成为一个难点。本人通过研究写了一个基于ASP程序的打印Excel报表的程序。本程序的特点是无须任何组件。
Print.asp
------------------------------------------------
htmltitle打印Excel报表/title
%
'控制脚本语言
response.write"script language="&"VBScript"&""
%
//*****************本程序由火星工作室提供(andy2001p@hotmail.com)******************
//*******************版权所有 随意拷贝********************************
function ccprint()
Set xlApp = CreateObject("EXCEL.APPLICATION")
//打开工作表!
Set xlBook = xlApp.Workbooks.Open("c:book1.xlt")
set xlsheet1 = xlBook.ActiveSheet
% db="zhk.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
set rsd=server.createobject("adodb.recordset")
str="select * from cjb00"
rsd.open str,conn
ii=1
do while not rsd.eof and ii11
%
%response.write"xlSheet1.cells("&ii+4&",2).value="%"%=rsd("姓名")%"
%response.write"xlSheet1.cells("&ii+4&",3).value="%"%=rsd("学号")%"
%
rsd.movenext
ii=ii+1
loop
rsd.close
set rsd=nothing
%
xlSheet1.Application.Visible = True
end function
//*****************本程序由火星工作室提供******************
%
response.write"/script"
%
htmltitle打印Excel报表/title
body
center
h2font color=red学生表(Demo)/font/h2
p /p
form name="fmp" method="post" action=""
%
db="zhk.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
set rsd=server.createobject("adodb.recordset")
str="select * from cjb00"
rsd.open str,conn
%
ta(图老师整理)ble width="396" height="58" border="1" bordercolor="#00FF00" bgcolor=lightyellow
tr bgcolor=deepskyblue
thb姓名/b/th
thb学号/b/th
/tr
%
do while not rsd.eof
%
tr align=center
td %=rsd("姓名")%
/td
td %=rsd("学号")%
/td
/tr
%
rsd.MoveNext
loop
%
% rsd.close
set rsd=nothing
conn.close
set cnn=nothing %
/table
p
input name="Submit2" type="button" onclick="ccprint()" onDblClick="ccprint()" value="打印"
br
/p
/form
/center
/body
/html
在excel2003中如何使用条件格式设置自动提醒 推荐回答:
如图:
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/ejc/)以提前3天红底色提醒为例:
选中区域--点"格式"--"条件格式"--"公式"--"=$B2-3=TODAY()"--"格式"--'图案"--选红色--"确定',如图:
--"确定",效果如图:
来源:http://www.tulaoshi.com/n/20160401/2077188.html
看过《如何使Excel标题跨列居中》的人还看了以下文章 更多>>