📄 在asp页面中插入excel文件.htm

📁 较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.
💻 HTM
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0055)http://www.51base.com/article/view_article.asp?id=22780 -->
<HTML lang=zh-cn><HEAD><TITLE>NB联盟</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK 
href="NB联盟24.files/style.css" rel=stylesheet>
<META content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY><!-- start page body -->
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 class=td id=position 
width=773>
  <TBODY>
  <TR>
    <TD class=shadow colSpan=2 height=20 width=262>&nbsp;&nbsp;<A 
      href="http://www.51base.com/"><IMG border=0 
      src="NB联盟24.files/logo1.gif"></A> </TD>
    <TD align=right width=505>
      <P align=left></P></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=main width=770>
  <TBODY>
  <TR>
    <TD class=tdlbr vAlign=top>
      <TABLE align=center border=0 cellPadding=0 cellSpacing=0 id=welcome 
      style="TABLE-LAYOUT: fixed" width="98%">
        <TBODY>
        <TR>
          <TD style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" 
            vAlign=top><FONT color=red><B>文章标题</B></FONT><FONT color=red><B>: 
            在ASP页面中插入excel文件（转） </B></FONT>
            <HR noShade SIZE=1>

            <P>&lt;%<BR>set xlApp = 
            Server.CreateObject("Excel.Application")<BR>'使服务端不出现Excel窗口<BR>xlApp.Visible 
            = false<BR>'建立一个worksheet<BR>set myWorkbook = 
            xlApp.Workbooks.Add<BR>set myWorksheet = 
            myWorkbook.Worksheets(1)<BR>'建立表头<BR>myWorksheet.Range("A1").Value = 
            '电话薄'<BR>myWorksheet.Range("A1").Font.Size = 
            18<BR>myWorksheet.Range("A1").Font.Bold = 
            true<BR>myWorksheet.Range("A2").Value = 
            '姓名'<BR>myWorksheet.Range("B2").Value = 
            '住址'<BR>myWorksheet.Range("C2").Value = 
            '电话'<BR>myWorksheet.Range("D2").Value = 
            '传真'<BR>myWorksheet.Range("A2:D2").Font.Bold = 
            true<BR>'确保文件名唯一<BR>strFileName = Session.SessionID &amp; 
            ".xls"<BR>strAppPath = 
            Request.ServerVariables("PATH_TRANSLATED")<BR>strAppPath = 
            Left(strAppPath, InstrRev(strAppPath, "\"))<BR>strFullPath = 
            strAppPath &amp; 
            strFileName<BR>'保存文件<BR>myWorkbook.SaveAs(strFullPath)<BR>'关闭Excel<BR>myWorkbook.Close<BR>xlApp.Quit<BR>set 
            myWorksheet = Nothing<BR>set myWorkbook = Nothing<BR>set myxlApp = 
            Nothing<BR>'写出到浏览器中<BR>Response.Redirect strFileName<BR>%&gt;</P>
            <P></P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=2 cellSpacing=0 id=footer width=770>
  <TBODY>
  <TR>
    <TD align=middle class=tdt>
      <P align=center></P></TD></TR></TBODY></TABLE><BR></BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -