网页中嵌入Excel控件（补充）

最新推荐文章于 2021-11-29 17:12:29 发布
最新推荐文章于 2021-11-29 17:12:29 发布
阅读量76 收藏
点赞数
原文链接：http://www.cnblogs.com/qxw0816/archive/2009/04/09/1432471.html
版权
  <HTML>  
  <BODY>  
  Press   the   button   to   start   Excel   and   display   quarterly   data.  
  <SCRIPT   LANGUAGE="VBScript">  
  Function   CreateNamesArray()  
  '   Create   an   array   to   set   multiple   values   at   once.  
      Dim   saNames(5,   2)  
      saNames(0,   0)   =   "John"  
      saNames(0,   1)   =   "Smith"  
      saNames(1,   0)   =   "Tom"  
      saNames(1,   1)   =   "Brown"  
      saNames(2,   0)   =   "Sue"  
      saNames(2,   1)   =   "Thomas"  
      saNames(3,   0)   =   "Jane"  
      saNames(3,   1)   =   "Jones"  
      saNames(4,   0)   =   "Adam"  
      saNames(4,   1)   =   "Johnson"  
      CreateNamesArray   =   saNames  
  End   Function  
  </SCRIPT>  
   
  <SCRIPT   LANGUAGE="JScript">    
  function   AutomateExcel()  
  {  
        //   Start   Excel   and   get   Application   object.  
              var   oXL   =   new   ActiveXObject("Excel.Application");  
                 
              oXL.Visible   =   true;  
               
        //   Get   a   new   workbook.  
              var   oWB   =   oXL.Workbooks.Add();  
              var   oSheet   =   oWB.ActiveSheet;  
                     
        //   Add   table   headers   going   cell   by   cell.  
              oSheet.Cells(1,   1).Value   =   "First   Name";  
              oSheet.Cells(1,   2).Value   =   "Last   Name";  
              oSheet.Cells(1,   3).Value   =   "Full   Name";  
              oSheet.Cells(1,   4).Value   =   "Salary";  
                     
        //   Format   A1:D1   as   bold,   vertical   alignment   =   center.  
              oSheet.Range("A1",   "D1").Font.Bold   =   true;  
              oSheet.Range("A1",   "D1").VerticalAlignment   =     -4108;   //xlVAlignCenter  
                     
        //   Create   an   array   to   set   multiple   values   at   once.  
   
        //   Fill   A2:B6   with   an   array   of   values   (from   VBScript).  
              oSheet.Range("A2",   "B6").Value   =   CreateNamesArray();  
             
        //   Fill   C2:C6   with   a   relative   formula   (=A2   &   "   "   &   B2).  
              var   oRng   =   oSheet.Range("C2",   "C6");  
              oRng.Formula   =   "=A2   &   \"   \"   &   B2";  
                     
        //   Fill   D2:D6   with   a   formula(=RAND()*100000)   and   apply   format.  
              oRng   =   oSheet.Range("D2",   "D6");  
              oRng.Formula   =   "=RAND()*100000";  
              oRng.NumberFormat   =   "$0.00";  
                     
        //   AutoFit   columns   A:D.  
              oRng   =   oSheet.Range("A1",   "D1");  
              oRng.EntireColumn.AutoFit();  
                     
        //   Manipulate   a   variable   number   of   columns   for   Quarterly   Sales   Data.  
              DispalyQuarterlySales(oSheet);  
                   
        //   Make   sure   Excel   is   visible   and   give   the   user   control  
        //   of   Excel's   lifetime.  
              oXL.Visible   =   true;  
              oXL.UserControl   =   true;  
  }  
               
  function   DispalyQuarterlySales(oWS)  
  {  
              var   iNumQtrs,   sMsg,   iRet;  
   
          //   Number   of   quarters   to   display   data   for.  
              iNumQtrs   =   4;  
                                 
          //   Starting   at   E1,   fill   headers   for   the   number   of   columns   selected.  
              var   oResizeRange   =   oWS.Range("E1",   "E1").Resize(1,iNumQtrs);  
              oResizeRange.Formula   =   "=\"Q\"   &   COLUMN()-4   &   CHAR(10)   &   \"Sales\"";  
                     
          //   Change   the   Orientation   and   WrapText   properties   for   the   headers.  
              oResizeRange.Orientation   =   38;  
              oResizeRange.WrapText   =   true;  
                     
          //   Fill   the   interior   color   of   the   headers.  
              oResizeRange.Interior.ColorIndex   =   36;  
                     
          //   Fill   the   columns   with   a   formula   and   apply   a   number   format.  
              oResizeRange   =   oWS.Range("E2",   "E6").Resize(5,iNumQtrs);  
              oResizeRange.Formula   =   "=RAND()*100";  
              oResizeRange.NumberFormat   =   "$0.00";  
                     
          //   Apply   borders   to   the   Sales   data   and   headers.  
              oResizeRange   =   oWS.Range("E1",   "E6").Resize(6,iNumQtrs);  
              oResizeRange.Borders.Weight   =   2;     //   xlThin  
                     
          //   Add   a   Totals   formula   for   the   sales   data   and   apply   a   border.  
              oResizeRange   =   oWS.Range("E8",   "E8").Resize(1,iNumQtrs);  
              oResizeRange.Formula   =   "=SUM(E2:E6)";  
          //   9   =   xlEdgeBottom              
              oResizeRange.Borders(9).LineStyle   =   -4119;   //xlDouble  
              oResizeRange.Borders(9).Weight   =   4;   //xlThick  
                     
          //   Add   a   Chart   for   the   selected   data.  
              oResizeRange   =   oWS.Range("E2:E6").Resize(5,iNumQtrs);  
              var   oChart   =   oWS.Parent.Charts.Add();  
              oChart.ChartWizard(oResizeRange,   -4100,   null,   2);     //   -4100   =   xl3dColumn  
              oChart.SeriesCollection(1).XValues   =   oWS.Range("A2",   "A6");  
              for   (iRet   =   1;   iRet   <=   iNumQtrs;   iRet++)   {  
                    oChart.SeriesCollection(iRet).Name   =   "=\"Q"   +   iRet   +   "\"";  
              }  
              oChart.Location(2,   oWS.Name);   //   2   =   xlLocationAsObject  
                     
          //   Move   the   chart   so   as   not   to   cover   your   data.  
              oWS.Shapes("Chart   1").Top   =   oWS.Rows(10).Top;  
              oWS.Shapes("Chart   1").Left   =   oWS.Columns(2).Left;  
  }  
  </SCRIPT>  
  <P><INPUT   id=button1   type=button   value="Start   Excel"    
                      οnclick="AutomateExcel"></P>  
  </BODY>  
  </HTML>  

转载于:https://www.cnblogs.com/qxw0816/archive/2009/04/09/1432471.html

weixin_30446197
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
web页面嵌入excel控件，网页中在线编辑EXCEL表格实例
09-05
网页中嵌入excel控件，在线编辑excel。上面的例子我是装的office 2003 测试通过，如果客户端是office 2007 请更改classid。
网页中嵌入Excel控件
weixin_33976072的博客
11-13 309
前提， 客户端必须装windows office Excel，我机器上装的时office 2003，如果你机器装的是office 2007只要把 object id="_obj_Excel" classid="clsid:0002E559-0000-0000-C000-000000000046"的classid改一下，是多少你自己到网 上去查一下。   aspx页面代码 &lt; %@ Pa...
Excel嵌入网页（二） 转载
weixin_30776273的博客
05-05 525
2.2. OWC组件 1、 OWC组建在Web页面的展现方法； A、将OWC中Sheet导出为本地Excel文件，再将导出的文件呈现到Web页面； 代码如下： Sheet.Export(FileName, OWC11.SheetExportActionEnum.ssExportActionNone, OWC11.SheetExportFormat.ssE...
在网页中嵌入Excel表格.zip
04-02
在网页中嵌入Excel表格.zip在网页中嵌入Excel表格.zip
EXCEL集成工具箱V8.0完整增强版(精简)
09-23
【批量导入图片】 将指定文件夹或包含子文件夹中所有图片瞬间（也可以按对应名称）按指定图片大小导入EXCEL中。允许一次性多图片格式（*.JPG/*.GIF/*.BMP/*.PNG)，且支持模糊与非模糊方式导入图片，还可以在导入的...
cgridctrl类似excel的界面
11-04
CGridCtrl是一个在MFC（Microsoft Foundation Classes）框架下用于创建类似Excel的表格控件的类库。这个控件允许开发者在Windows应用程序中实现可编辑、可滚动的二维表格，提供类似于电子表格的功能，比如单元格编辑...
ACReport中国式报表控件2011(Ver2.3)
01-15
条形码、中式财务帐薄、支持在报表中嵌入Word、Excel文档等。 4. 强大的计算和合计功能。内置表达式解析系统和函数库。 5. 可扩充性，可以在应用程序中给报表引擎扩充函数库、报表样式和单元格样式。 6.支持多种报表...
asp.net知识库
06-18
ASP.NET 2.0 正式版中无刷新页面的开发(示例代码的补充) ASP.NET2.0中themes、Skins轻松实现网站换肤！ ASP.NET 2.0 中的代码隐藏和编译 ASP.NET 2.0 Language Swithcer and Theme Swicher 多语言转换和多样式主题...
史上最好传智播客就业班.net培训教程60G 不下会后悔
03-12
ASP.Net中有一些技术是有局限性的，传智播客根据这些技术在企业中的实际应用情况进行了调整、补充。比如项目中几乎没有在UI层直接访问数据库的，而是采用三层架构，因此我们不讲解UI层直连数据库的控件SQLDataSource...
网页中嵌入Excel控件（一些属性）
weixin_30381793的博客
04-09 148
<div style="text-align:right;background:buttonface;border-bottom:inset 2px white;border-right:outset 2px white;"> <input type="button" value="Load 控制表" onclick=" OWC.CSVURL='Book1....
web页面导入excel表格范例(有点懒，有些懒得修，读者自行查阅选择性复制)
qq_40390762的博客
11-29 1534
html: <%@ page language="java" contentType="text/html; charset=utf-8" pageEncoding="utf-8"%> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-eq
web中输出Excel文件
dddaac的专栏
11-22 875
示例：先来一段代码MyServlet.java OutputStream os = response.getOutputStream(); response.reset(); // response.addHeader("Cache-Control", "no-transform, max-age=0"); response.setCharacterEncoding("UTF-8"); re
如何在3天内“将Excel的功能嵌入Web 系统”|关于新手训练营，他们有话说
葡萄城技术团队博客
03-25 794
现阶段，国内的在线文档协同编辑软件正处高光时刻，无论是石墨文档、腾讯文档、有道云协作、金山WPS等，都有其最适合的应用场景，如有些注重数据存储和数据安全，有些则注重团队管理和文档协作，即便应用场景不同，但他们都依托于一个强大且高效的数据处理内核。 换句话说，他们都通过“将Excel强大的数据处理和分析能力嵌入到其在线文档编辑系统”中，为用户带来易用、熟悉的使用体验，为企业带来高效、先进的管理方式。...
Excel嵌入网页（一） 转载
weixin_30355437的博客
05-05 683
1. 技术要点 1.1. Excel试验： A. Excel嵌入网页的方法。 1. 在后台用流的方式返回给前台页面展现； 2. 在后台讲Excel格式数据定好保存到本地，在前台页面用html标签加载展示； B. Excel显示格式的控制。 1. Excel单元格格式设置，默认为常规类型； 2....
SpreadJS：一款类Excel开发工具，功能涵盖Excel的 95% 以上
葡萄城技术团队博客
10-16 9692
Excel 作为一款深受用户喜爱的电子表格工具，借助其直观的界面、出色的计算性能、数据分析和图表，已经成为数据统计领域不可或缺的软件之一。 基于Excel对数据处理与分析的卓越表现，把Excel的功能，嵌入到Web应用中，将会对应用系统带来质的飞跃。但是，这样一款沉淀数十年，经过无数次更新迭代的软件通过代码来实现，其难度不言而喻。 研发出一款功能高度类似Excel的工具有多难？ 1.研发的难...
[实例]【EXCEL VBA】如何在excel里嵌入网页，动态显示网页 未完成
神创的博客
04-06 8991
参考：http://tieba.baidu.com/p/433671354?red_tag=y2393996544----------------------------------------------------------于是就找到了：上图的最后一个 = =-------------------------------------------------------------------...
c# 如何在窗体中嵌入用户控件
最新发布
05-11
在 C# 中，可以通过以下步骤在窗体中嵌入用户控件： 1. 创建一个用户控件，可以在 Visual Studio 中创建一个新的用户控件项目。 2. 在窗体中添加一个控件容器，例如 Panel。 3. 将用户控件添加到控件容器中，可以...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值