将页面以excel的形式导出

最新推荐文章于 2024-05-06 18:04:38 发布
最新推荐文章于 2024-05-06 18:04:38 发布
阅读量2.3k 收藏 1
点赞数
分类专栏： J2EE专题 文章标签： excel integer object stylesheet javascript microsoft
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/hapylong/article/details/2282284
版权

将页面以Excel的形式到处，常见的做法有两种:

一：在要导成Excel文件中，按如下设置就可完成（打开改页面时，直接以Excel形式被打开）

<%@ page contentType="application/vnd.ms-execl; charset=UTF-8" %>

<%
 response.setContentType("application/vnd.ms-execl");
 response.setHeader("Content-Type", "application/vnd.ms-execl");
 response.setHeader("Content-Disposition", "attachment; filename=Excel.xls");
%> 

。。。。。。。。。。。。。。。。。此处是导出页面的内容，即原来显示数据的画面code

二：以ActiveXObject对象Excel.Application

example：excel.jsp

<%

StringBuffer sb= new StringBuffer();

sb.append("表头");

。。。。。。。

sb.append("结果集");

%>

<html>
<head> 
<title>문제점현황 - Excel </title>
<link rel="stylesheet" href="/css/esh/well/default.css" type="text/css"
 media="screen">
<script language="javascript">
  function OnExcel(){ 
   document.execCommand("SelectAll", false);
   document.execCommand("Copy", true);
   document.execCommand("UnSelect", false); 
   var oXL = new ActiveXObject("Excel.Application"); 
   oXL.Visible = true;   
   var oWB = oXL.Workbooks.Add();  
   var oSheet = oWB.ActiveSheet; 
   oSheet.Paste();  
   oXL.Visible = true;
   oXL.UserControl = true;
  }
</script>
</head>
<body οnlοad="JavaScript:OnExcel()">
 <form name="fm_form" method="post">
 <table border="1">
  <%=sb.toString()%>
 </table>
 </form>
</body>
</html>

两种方法的比较：两种方式excel的导出，只能以纯HTML的形式对页面样式进行控制，不能使用图片 和样式表。

方法一开发比较简单，并且excel导出的结果跟页面是一样的，即原样导出

方法二象比较一是用起来比较复杂些，但由于excel.application提供了许多参数，可对导出的Excel进行全面的控制。

下面提供excel.application的一些参数和方法公使用。

Dim    x(1    To    4,    1    To    5)    As    Integer   
   Dim    a,    i,    j    As    Integer   
   Dim    b    As    String   
    
   Private    Sub    Command1_Click()   
           Dim    ex    As    Object   
           Dim    exbook    As    Object   
           Dim    exsheet    As    Object   
           Set    ex    =    CreateObject("Excel.Application")   
           Set    exbook    =    ex.Workbooks().Add   
           Set    exsheet    =    exbook.Worksheets("sheet1")   
   '按控件的内容赋值   
   '11   
           exsheet.Cells(1,    1).Value    =    Text1.Text   
   '为同行的几个格赋值   
           Range("C3").Select   
           ActiveCell.FormulaR1C1    =    "表格"   
   '          ex.Range("c3").Value    =    "表    格"   
           ex.Range("d3").Value    =    "    春    天    "   
           ex.Range("e3").Value    =    "    夏    天    "   
           ex.Range("f3").Value    =    "    秋    天    "   
           ex.Range("g3").Value    =    "    冬    天    "   
   '大片赋值   
           ex.Range("c4:g7").Value    =    x   
   '按变量赋值   
       a    =    8   
       b    =    "c"    &    Trim(Str(a))   
       ex.Range(b).Value    =    "下雪"   
   '另外一种大片赋值   
           For    i    =    9    To    12   
           For    j    =    4    To    7   
           exsheet.Cells(i,    j).Value    =    i    *    j   
           Next    j   
           Next    i   
   '计算赋值   
   exsheet.Cells(13,    1).Formula    =    "=R9C4    +    R9C5"   
   '设置字体   
   Dim    exRange    As    Object   
   Set    exRange    =    exsheet.Cells(13,    1)   
   exRange.Font.Bold    =    True   
    
   '设置一行为18号字体加黑   
     Rows("3:3").Select   
           Selection.Font.Bold    =    True   
           With    Selection.Font   
                   .Name    =    "宋体"   
                   .Size    =    18   
                   .Strikethrough    =    False   
                   .Superscript    =    False   
                   .Subscript    =    False   
                   .OutlineFont    =    False   
                   .Shadow    =    False   
                   .Underline    =    xlUnderlineStyleNone   
                   .ColorIndex    =    xlAutomatic   
           End    With   
   '设置斜体   
           Range("E2").Select   
           Selection.Font.Italic    =    True   
   '设置下划线   
           Range("E3").Select   
           Selection.Font.Underline    =    xlUnderlineStyleSingle   
    
   '设置列宽为15   
           Selection.ColumnWidth    =    15   
    
   '设置一片数据居中   
   Range("C4:G7").Select   
           With    Selection   
                   .HorizontalAlignment    =    xlCenter   
                   .VerticalAlignment    =    xlBottom   
                   .WrapText    =    False   
                   .Orientation    =    0   
                   .AddIndent    =    False   
                   .ShrinkToFit    =    False   
                   .MergeCells    =    False   
           End    With   
   '设置某区域的小数位数   
           Range("F4:F7").Select   
           Selection.NumberFormatLocal    =    "0.00"   
            
   '求和   
           Range("G9:G13").Select   
           Range("G13").Activate   
           ActiveCell.FormulaR1C1    =    "=SUM(R[-4]C:R[-1]C)"   
   '某列自动缩放宽度   
           Columns("C:C").EntireColumn.AutoFit   
   '画表格   
           Range("C4:G7").Select   
           Selection.Borders(xlDiagonalDown).LineStyle    =    xlNone   
           Selection.Borders(xlDiagonalUp).LineStyle    =    xlNone   
           With    Selection.Borders(xlEdgeLeft)   
                   .LineStyle    =    xlContinuous   
                   .Weight    =    xlThin   
                   .ColorIndex    =    xlAutomatic   
           End    With   
           With    Selection.Borders(xlEdgeTop)   
                   .LineStyle    =    xlContinuous   
                   .Weight    =    xlThin   
                   .ColorIndex    =    xlAutomatic   
           End    With   
           With    Selection.Borders(xlEdgeBottom)   
                   .LineStyle    =    xlContinuous   
                   .Weight    =    xlThin   
                   .ColorIndex    =    xlAutomatic   
           End    With   
           With    Selection.Borders(xlEdgeRight)   
                   .LineStyle    =    xlContinuous   
                   .Weight    =    xlThin   
                   .ColorIndex    =    xlAutomatic   
           End    With   
           With    Selection.Borders(xlInsideVertical)   
                   .LineStyle    =    xlContinuous   
                   .Weight    =    xlThin   
                   .ColorIndex    =    xlAutomatic   
           End    With   
           With    Selection.Borders(xlInsideHorizontal)   
                   .LineStyle    =    xlContinuous   
                   .Weight    =    xlThin   
                   .ColorIndex    =    xlAutomatic   
           End    With   
   '加黑框   
   Range("C9:G13").Select   
           Selection.Borders(xlDiagonalDown).LineStyle    =    xlNone   
           Selection.Borders(xlDiagonalUp).LineStyle    =    xlNone   
           With    Selection.Borders(xlEdgeLeft)   
                   .LineStyle    =    xlContinuous   
                   .Weight    =    xlMedium   
                   .ColorIndex    =    xlAutomatic   
           End    With   
           With    Selection.Borders(xlEdgeTop)   
                   .LineStyle    =    xlContinuous   
                   .Weight    =    xlMedium   
                   .ColorIndex    =    xlAutomatic   
           End    With   
           With    Selection.Borders(xlEdgeBottom)   
                   .LineStyle    =    xlContinuous   
                   .Weight    =    xlMedium   
                   .ColorIndex    =    xlAutomatic   
           End    With   
           With    Selection.Borders(xlEdgeRight)   
                   .LineStyle    =    xlContinuous   
                   .Weight    =    xlMedium   
                   .ColorIndex    =    xlAutomatic   
           End    With   
           Selection.Borders(xlInsideVertical).LineStyle    =    xlNone   
           Selection.Borders(xlInsideHorizontal).LineStyle    =    xlNone   
   '设置某单元格格式为文本   
           Range("E11").Select   
           Selection.NumberFormatLocal    =    "@"   
   '设置单元格格式为数值   
           Range("F10").Select   
           Selection.NumberFormatLocal    =    "0.000_);(0.000)"   
   '设置单元格格式为时间   
           Range("F11").Select   
           Selection.NumberFormatLocal    =    "h:mm    AM/PM"   
    
   '取消选择   
   Range("C10").Select   
   '设置横向打印，A4纸张   
   '          With    ActiveSheet.PageSetup   
   '                  .PrintTitleRows    =    ""   
   '                  .PrintTitleColumns    =    ""   
   '          End    With   
   '          ActiveSheet.PageSetup.PrintArea    =    ""   
           With    ActiveSheet.PageSetup   
   '                  .LeftHeader    =    ""   
   '                  .CenterHeader    =    ""   
   '                  .RightHeader    =    ""   
   '                  .LeftFooter    =    ""   
   '                  .CenterFooter    =    ""   
   '                  .RightFooter    =    ""   
   '                  .LeftMargin    =    Application.InchesToPoints(0.75)   
   '                  .RightMargin    =    Application.InchesToPoints(0.75)   
   '                  .TopMargin    =    Application.InchesToPoints(1)   
   '                  .BottomMargin    =    Application.InchesToPoints(1)   
   '                  .HeaderMargin    =    Application.InchesToPoints(0.5)   
   '                  .FooterMargin    =    Application.InchesToPoints(0.5)   
   '                  .PrintHeadings    =    False   
   '                  .PrintGridlines    =    False   
   '                  .PrintComments    =    xlPrintNoComments   
   '                  .PrintQuality    =    300   
   '                  .CenterHorizontally    =    False   
   '                  .CenterVertically    =    False   
                   .Orientation    =    xlLandscape   
   '                  .Draft    =    False   
                   .PaperSize    =    xlPaperA4   
   '                  .FirstPageNumber    =    xlAutomatic   
   '                  .Order    =    xlDownThenOver   
   '                  .BlackAndWhite    =    False   
   '                  .Zoom    =    100   
           End    With   
   '跨列居中   
           Range("A1:G1").Select   
           With    Selection   
                   .HorizontalAlignment    =    xlCenter   
   '                  .VerticalAlignment    =    xlBottom   
   '                  .WrapText    =    False   
   '                  .Orientation    =    0   
   '                  .AddIndent    =    False   
   '                  .ShrinkToFit    =    False   
                   .MergeCells    =    True   
           End    With   
           Selection.Merge   
    
   '打印表格   
   ActiveWindow.SelectedSheets.PrintOut    Copies:=1   
    
   '取值   
   Text1.Text    =    exsheet.Cells(13,    1)   
   '保存   
   ChDir    "C:/WINDOWS/Desktop"   
   ActiveWorkbook.SaveAs    FileName:="C:/WINDOWS/Desktop/aaa.xls",    FileFormat:=xlNormal,    Password:="123",    WriteResPassword:="",    ReadOnlyRecommended:=False,    CreateBackup:=False   
    
    
         '    关闭工作表。   
         exbook.Close   
         '用    Quit    方法关闭    Microsoft    Excel   
         ex.Quit   
         '释放对象   
         Set    ex    =    Nothing   
         Set    exbook    =    Nothing   
         Set    exsheet    =    Nothing   
   Dim    retval   
   '用excel打开表格   
   retval    =    Shell("C:/Program    Files/Microsoft    Office/Office/EXCEL.EXE"    &    "    "    &    "C:/WINDOWS/Desktop/aaa.xls",    1)   
    
    
         End    Sub


hapylong
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
js实现将页面table导出为Excel表格
日常笔记/总结/系列知识梳理
06-27 2601
页面table导出为Excel表格
java页面table excel_Java导出网页表格Excel过程详解
weixin_39851887的博客
02-19 294
将网页中的table数据，导出到excel表格，可以使用java POI实现。java poi是java中操作excel的工具，支持excel的导入与导出，一般有三种形式：1.HSSFWorkbook:是操作Excel2003以前(包括2003)的版本，扩展名是.xls；2.XSSFWorkbook:是操作Excel2007后的版本，扩展名是.xlsx；3.SXSSFWorkbook:是操作Exc...
JS 将页面的table以excel形式导出
随性的豆干的博客
08-24 183
保留table格式以excel导出 function base64(content) { return window.btoa(unescape(encodeURIComponent(content))); } function tableToExcel(tableID) { var excelContent = $("#" + tableID).html(); var excelFile = "<html xmlns:o='ur
web项目将数据以excel的形式导出
星期八的博客
08-09 2924
POI简介：Jakarta POI 是一套用于访问微软格式文档的Java API。Jakarta POI有很多组件组成，其中有用于操作Excel格式文件的HSSF和用于操作Word的HWPF，在各种组件中目前只有用于操作Excel的HSSF相对成熟。 官方主页http://poi.apache.org/index.html， API文档http://poi.apache.org/apidocs...
Vue、React实现excel导出功能（三种实现方式保姆级讲解）
最新发布
weixin_73318685的博客
05-06 889
第一种：后端返回文件流，前端转换并导出（常用，通常公司都是用这种方式） 第二种：纯后端导出（需要了解） 第三种：纯前端导出（不建议使用，数据处理放在前端会引发一些不必要的问题）
c+html页面导出excel文件,web前端以文件流的形式导出Excel文件
weixin_31787977的博客
06-03 241
一般web前端处理导出文件有两种方法：1、服务端返回完整URL，直接打开URL即可；2、服务端返回数据流，前端解析数据流完成导出功能；今天主要分享下第二种方式，直接上代码(兼容ie10以上)：// url为服务端返回的流数据const exportParams = (url) => {const aLink = document.createElement('a');const blob =...
JAVA导出EXCEL实现
热门推荐
yjclsx的博客
07-31 45万+
JAVA导出EXCEL实现
java将jsp页面表格导出excel表格数据_简单的POI导出JSP页面表格数据到excel
weixin_36400198的博客
02-27 513
数据库中的equipment表数据: 读取数据库中表数据的代码TestExcel.java public class TestExcel extends BaseAction{/** * @param args * @throws Exception */public String excel() {try{Connection connection = con(); String sql = s...
把服务器sql数据库导出excel文件,将mysql数据库数据以Excel文件的形式导出
weixin_42510645的博客
08-06 1597
最近在工作中，领导让从数据库中导出一些数据并存放到Excel表格中，网上有许多教程，下面是我总结的其中俩种方法。从数据库管理工具中导出(navicat)在navicat导出数据导Excel中还是比较简单的，因为是图形化界面，我们只需要一步一步的操作就可以了，而且利用navicat可以倒成各种类型的数据文件，非常方便1、首先选中需要导出的数据库，右键菜单中出现导出向导2、点击导出向导后出现需要导出的...
Easypoi模版形式导出excel导出图片
许章正的博客
02-26 1万+
若您正在使用easypoi进行excel导出的话，希望这篇文章能帮到您。 本文主要是使用easypoi通过模版的形式导出图片。 若需要导出多sheet得话，非模版形式，可以参考我的文章EasyPOI-&gt;非模版形式导出Excel（多Sheet）。 模版形式的多sheet导出可参考：EasyPOI-&gt;模版形式导出Excel（多Sheet） 模版导出可参考我的文章Easypoi导出e...
NET页面导出Excel实例代码
10-26
### .NET 页面导出Excel实例代码详解 #### 一、概述 在Web开发中，将数据导出为Excel格式是一种常见的需求。对于.NET框架来说，实现这一功能可以通过多种方式完成，例如使用第三方库如EPPlus等，或者直接通过HTTP...
jsp页面数据通过excel导出
07-03
"jsp页面数据通过excel导出"这个主题就是关于如何在Java Web应用程序中利用JSP（JavaServer Pages）技术和Apache POI库将动态生成的数据导出为Excel文件。Apache POI是一个强大的API，它允许开发者读写Microsoft ...
网页形式导出成excel
08-24
总结起来，将网页表格导出为Excel涉及HTML解析、JavaScript编程、数据结构转换以及文件操作等技术，使用合适的库可以简化这一过程，但同时也需要关注兼容性、样式保留和用户隐私等问题。在实际开发中，根据项目需求...
Spring 实现excel及pdf导出表格示例
08-30
4. 对于模型中的数据，我们可以假设它们是以List, Object>>的形式存在，每一项Map代表一行数据，键值对应单元格内容。我们可以通过遍历数据列表，为每行创建新的行对象（HSSFRow），然后为每个Map的键值创建单元格，...
JavaWeb中导出excel文件的简单方法
09-01
在后端，通过Controller接收请求，调用Service处理数据并生成Excel文件，最后以流的形式返回给客户端进行下载。整个过程涉及到了JSON序列化、HTTP请求处理、数据库查询和文件流操作等多个技术点，是JavaWeb开发中的...
java实现大文件的上传
hapylong的专栏
06-30 1万+
 最近项目经理逼着让偶做树的展开,表嵌套表,可惜偶刚参加工作,水平低,这不在查资料嘛,可是不多久就传来了经理的叫嚣声,这么简单的东西,都一天了,你还没做完..................,哎真是郁闷,谁让咱水平低呢(心想,什么时候等我水平提高了,看我怎么收拾你,又一想,等我水平提高了,人家早不知道干什么去了,废话不多说了)文件上传一直是B/S结构中很重要的一项功能,在java中并没有很好的
Weblogic集群概念和配置（四）
hapylong的专栏
01-28 1万+
 代理l       集群由代理来实现负载均衡。通过将请求转发到不同的管理服务器上来实现。l       代理是用来分发用户请求，代理可以硬件设备也可以是软件Web服务器，。一般来说硬件代理的性能强大些，而且稳定性也优于软件代理。l       硬件带来的厂家主要有：F5 Networks、Radware、array，浪潮、趋势等l       软件代理主要有：IIS、Apac
Weblogic集群概念和配置（六）
hapylong的专栏
01-28 1万+
  启动管理服务器l       C:/Documents and Settings/Administrator>cd C:/bea/user_projects/domains/myclusterdomain2008l       C:/bea/user_projects/domains/myclusterdomain2008>startWeblogic.cmd启动代理服务器登
"JSP页面导出Excel优质资料详解
该功能可以为用户提供一个方便的途径，将JSP页面的内容以表格形式导出到Excel中，从而更好地进行数据分析和整理。同时，由于文档的可编辑性，用户还可以根据需要对导出的Excel文件进行进一步编辑和处理。 需要注意...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值