如何在Excel“公式求值”功能

【 tulaoshi.com - excel 】

如何在Excel“公式求值”功能

在excel 2003中如何使用条件格式设置自动提醒

 　　在excel2003中如何使用条件格式设置自动提醒 推荐回答：

　　如图:

　　以提前3天红底色提醒为例:

　　选中区域--点"格式"--"条件格式"--"公式"--"=$B2-3=TODAY()"--"格式"--'图案"--选红色--"确定',如图:

　　--"确定",效果如图:

在ASP程序中打印Excel表格的新方法

 在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 tuLaoShi.com;
% 
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 
% 
table 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

怎么把php导出的Excel 作为邮件发送

 　　如何把php导出的Excel 作为邮件发送

　　现在实现了点击后下载excel，和发送文本邮件的功能，怎么能结合下，把php导出的excel作为附件发送就完美了。

　　1 .生成excel：

　　header("Content-type:application/octet-stream");

　　header("Accept-Ranges:bytes");

　　header("Content-type:application/vnd.ms-excel");

　　header("Content-Disposition:attachment;filename=".$filename.".xls");

　　header("Pragma: no-cache");

　　header(tulaoShi.com"Expires: 0");

　　if (!empty($title)){

　　foreach ($title as $k = $v) {

　　$title[$k]=iconv("UTF-8", "GB2312",$v);

　　}

　　$title= implode("t", $title);

　　echo "$titlen";

　　}

　　if (!empty($data)){

　　foreach($data as $key=$val){

　　foreach ($val as $ck = $cv) {

　　$data[$key][$ck]=iconv("UTF-8", "GB2312", $cv);

　　}

　　$data[$key]=implode("t", $data[$key]);

　　}

　　echo implode("n",$data);

　　}

　　2 . 发送邮件：

　　用了phpmailer类库

　　$mail = new PHPMailer();

　　$mail-CharSet = 'UTF-8';

　　$mail-IsSMTP();

　　$mail-SMTPAuth = true;

　　$mail-SMTPSecure = '';

　　$mail-Host = $config['SMTP_HOST']; // SMTP 服务器

　　$mail-Port = $config['SMTP_PORT']; // SMTP服务器的端口号

　　$mail-Username = $config['SMTP_USER']; // SMTP服务器用户名

　　$mail-Password = $config['SMTP_PASS']; // SMTP服务器密码

　　$mail-SetFrom($config['FROM_EMAIL'], $config['FROM_NAME']);

　　$replyEmail = $config['REPLY_EMAIL']?$config['REPLY_EMAIL']:$config['FROM_EMAIL'];

　　$replyName = $config['REPLY_NAME']?$config['REPLY_NAME']:$config['FROM_NAME'];

　　$mail-AddReplyTo($replyEmail, $replyName);

　　$mail-Subject = $subject;

　　$mail-MsgHTML($body);

　　$mail-AddAddress($to, $name);

　　if(is_file($attachment)){ // 添加附件

　　$mail-AddAttachment($attachment);

　　}

　　return $mail-Send()

　　------解决方案--------------------

　　第7行处加入

　　ob_start();

　　第23行后加入

　　$s = ob_get_flush();

　　file_put_contents($filename.".xls", $s);

　　$attachment = $filename.".xls";

　　执行邮件发送

　　------解决方案--------------------

　　肯定是你哪里出错了，认真检查一下

　　你实际输出的是文本文件，用记事本就可打开

　　ob 函数的功能、用法，手册中都有

　　------解决方案--------------------

　　汗!那样导出的还没有路径，你如何作为附件发送呢??

　　你这不是天方夜谭么?

　　------解决方案--------------------

　　提个思路，你可参考下：

　　先把excel保存在服务器上，然后获得该excel的路径，然后作为附件进行email发送，如果你不需要这个文件了，然后再执行删除操作就OK了