asp 利用Excel.Application生成的Excel文件，如何设置页眉页脚

lj1234567 2011-08-04 08:46:45

asp 利用Excel.Application生成的Excel文件，如何设置页眉页脚
代码如下：
Excel.ASP



<% 

On Error Resume Next

Server.ScriptTimeout=900'设定当前asp页面运行时间超时为900秒

Dim Excel,i,j,biaoti,gja,gjb

set Excel=CreateObject("Excel.Application")





If Err.number > 0 Then

response.write "无法生成Excel文件，请安装Office的Excel部件。"

response.end

end if



Excel.DisplayAlerts=false '敬告消息 关闭

Excel.Visible=false '设定Excel对象是否可见,无需打开Excel程序

Excel.SheetsInNewWorkbook=1 '指定excel中表的数量



Excel.WorkBooks.add '添加工作簿





'Set Excelsheet = Excel.Worksheets(1).activate   '生成第1个工作表的子对象





'---------------开始页面相关设置---------



'---------------结束页面相关设置---------



'----------此处省略读取数据的代码---------





'-----特别说明，下面这句为什么不能设置页眉页脚？？？---------

Excel.ActiveSheet.PageSetup.CenterHeader = "第 &P 页，共 &N 页"

Excel.ActiveWorkBook.SaveAs server.mappath("baobiao\"&filename) 

Excel.Quit 

set Excel=Nothing

%>

<tr>

    <td>

      <table width="100%" border="0" cellspacing="0" cellpadding="0">

        <tr>

          <td width="20%" height="60"> </td>

          <td height="60" align="center" valign="middle"> </td>

          <td width="20%" height="60"> </td>

        </tr>

        <tr>

          <td width="20%" height="40"> </td>

          <td height="40" align="center" valign="middle" class="td"> </td>

          <td width="20%" height="40"> </td>

        </tr>

        <tr>

          <td width="20%" height="40"> </td>

          <td height="40" align="center" valign="middle" class="td"><a href="baobiao\<%=filename%>">报表生成完毕，请点击此处下载！(右键/目录另存为)</a></td>

          <td width="20%" height="40"> </td>

        </tr>

        <tr>

          <td width="20%" height="160"> </td>

          <td height="160" align="center" valign="middle"> </td>

          <td width="20%" height="160"> </td>

        </tr>

      </table>    </td>

  </tr>

<!--#include file="bottom.asp"-->

<%conn.close

set conn=nothing

%>