如何在Excel中加密文件

【 tulaoshi.com - excel 】

如何在Excel中加密文件

如何在Excel工作表中插入控件

 　　单击开发工具选项卡下的控件工作组中的插入命令，如下图所示：

　　以插入ActiveX控件为例，在弹出的对话框中单击ActiveX控件下的命令按钮，此时光标变成Tulaoshi.Com+型，然后单击鼠标左键不放往左右拖开即可插入一个命令按钮控件。如下图所示：

在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 
% 
xlSheet1.Application.Visible = True 
end function 
//*****************本程序由火星工作室提供****************** 
% 
response.write"tulaoshi.com/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 Tulaoshi.com;
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("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了

excel函数应用

 　　连续区域中index函数的公式格式是=index((array_1,array_2,....),row_number,column_number，array_number) ，其中array_1,array_2,.....表示我们要查找的几个区域，row_number表示第几行查找，column_number表示在第几列查找，array_number表示在第几个区域查找，最终的结果就是查找区域内所查找行和列的交叉处

　　下面看一个实例

　　如要查找李四的英语成绩index((A1：D4，A7：D9),2,3,2)=84

　　3A1：D4和A7：D9表示，查找成绩的两个区域，用,分开，用()括住

　　第一个2，表示查找第2行

　　3，表示查找第3列

　　最后个2，表示查找第2个区域