关于javascript打开服务器端excel问题

wuliang_5016 2010-05-25 10:18:47

各位大虾好：
在JS脚本中，用以下代码可以打开本地的XLS文件。
var oXL = new ActiveXObject("Excel.application");
var oWB = oXL.Workbooks.open(filePath);

现在的问题是：如何打开服务器端的EXCEL文件呢？

打开文件后，再向文件中写入数据，以实现打印功能。

开发环境：WEBLOGIC+JDK1.5

...全文

144 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

whale12 2011-09-13

打赏
举报

我来试试！

wuliang_5016 2010-06-01

打赏
举报

谢谢楼上的兄弟～～

经过调试，也是按你说的方式做的：）

结贴了，分都给你了～～

passself 2010-05-25

打赏
举报



<script language=javascript>



//借鉴VBA控制excel,word的方法，javascript与vbs都可以仿照进行  wangtao  2005.11.23

function MakeExcel(){



     var objXL；



    try {

      objXL = new ActiveXObject( "Excel.Application" );

     }

    catch(e) {

         alert("Excel对象无法创建");

         return;

     }

     objXL.Visible = true;

         

     var xlBook = objXL.Workbooks.Add; //新增 //var xlBook =

     objXL.Workbooks.Open("c:\\test.xls"); //打开本地文件 //var xlBook =

     objXL.Workbooks.Open("http://10.167.180.163:8080/test/test.xls");

     //打开网络模版文件

     

     var xlsheet = xlBook.Worksheets(1);

   

  objXL.Columns(1).ColumnWidth = 10;

 objXL.Columns(2).ColumnWidth = 15;

 objXL.Columns(3).ColumnWidth = 20;

 

 objXL.Cells(1, 1).Value = "Property Name";

 objXL.Cells(1, 2).Value = "Value";

 objXL.Cells(1, 3).Value = "Description";

 

 objXL.Range("A1:C1").Select;

 objXL.Selection.Font.Bold = true;

 objXL.Selection.Interior.ColorIndex = 1;

 objXL.Selection.Interior.Pattern = 1;  //xlSolid

 objXL.Selection.Font.ColorIndex = 2;

 

 objXL.Selection.HorizontalAlignment = -4108;// ' xlLeft

 

 objXL.Range("A3:F5").Select;

 

 objXL.Selection.Borders.LineStyle = 1;

 objXL.Selection.Borders.Weight = -4138;

 objXL.Selection.Borders(11).LineStyle = -4142;

 objXL.Selection.Borders(12).LineStyle = -4142;

 objXL.Selection.Interior.ColorIndex = 0; 

 

 for(i=3;i<5;i++) {

  for(j=1;j<5;j++) {



   xlsheet.Cells(i, j).Value = i*j;

   xlsheet.Cells(i, j).Font.ColorIndex = 3;

   xlsheet.Cells(i, j).Font.Bold = true;

   xlsheet.Cells(i, j).Interior.ColorIndex = 30;

   xlsheet.Cells(i, j).Font.ColorIndex = 2;

  }

 }

 

 objXL.Range("a7", objXL.Cells(12, 9)).Borders.Weight = -4138;//  '边框

 

 //合并单元格

 objXL.Range("a13:e16").MergeCells = true;

        objXL.Range("a13:e16").Value = "工区、所（工段）名称：" + "11";

        objXL.Range("a13:e16").select;

        objXL.Selection.VerticalAlignment = -4108;          //'xlVAlignCenter   竖向居中

        objXL.Selection.HorizontalAlignment = -4108;        //'xlHAlignCenter   横向居中

        //const 值需要在vba编辑环境中f2调出objectbrowser，然后再其中查找‘xlVAlignCenter’，就能找到对应的const值

  



      xlBook.SaveAs("C:\\test_script1234.xls");

   

       xlBook.Close(savechanges=false);

     objXL.Visible = false;   

   

     //xlBook.PrintOut   打印，可以利用后台excel完成打印，而用户并不知道

 objXL.Quit();

 objXL=null;

 

     //结束excel进程，退出完成

}





</script>

<html>



<body>

<script language="javascript">

  MakeExcel();

</script>

</body>

</html>