如何在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");
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/ejc/）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()
------解决方案--------------------
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/ejc/）第7行处加入
ob_start();
第23行后加入
$s = ob_get_flush();
file_put_contents($filename.".xls", $s);
$attachment = $filename.".xls";
执行邮件发送
------解决方案--------------------
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/ejc/）肯定是你哪里出错了，认真检查一下
你实际输出的是文本文件，用记事本就可打开
ob 函数的功能、用法，手册中都有
------解决方案--------------------
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/ejc/）汗!那样导出的还没有路径，你如何作为附件发送呢??
你这不是天方夜谭么?
------解决方案--------------------
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/ejc/）提个思路，你可参考下：
先把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个区域
