用JavaScript脚本生成xls,xml 文件

 

用JavaScript脚本生成XLS文件

functionCreateXLS(){

    if ( dssub1.RecordCount==0 ){

        alert("导出单据列表为空! ");

        return;

        }

       ShowWait("正在导出数据至Excel，,请稍候...");

       //vardwname = Trim(DsMain.Field('dwmch').Value);

       // 加载ActiveX控件，获取Excel句柄

       var   oXL   = null;

       try {

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

       }

       catch(e)

       {

          alert("创建Excel失败！");

          return;

       }

       //alert("正在导出数据至Excel，,请稍候...");

       // 创建一个Excel文件

       var   oWB   =   oXL.Workbooks.Add();

       // 创建一个Excel文件

       var   oSheet   =   oWB.ActiveSheet;

       var   table   =   document.all.Report;

       var   hang   =   dssub1.RecordCount;

       var   lie   =   dssub1.FieldCount;

       for   (i=0;i <hang;i++)

       {

          for   (j=0;j <lie;j++)

             {

               oSheet.Cells(i+1,j+1).value = dssub1.GetValueAt(i,j);

             }

       }

          //oXL.Visible   =   true;

          //oXL.UserControl   =   true;

          varflname = "\\发票_" + SKDBedit1.value +'至'+ SKDBedit2.value ;

          oWB.SaveAs (flname);

          alert("导出成功");

          oXL.Quit();

          oXL = null;

         // HideWait();

           // CloseBill();

         // 调用Cleanup（）进行垃圾回收

         idTmr = window.setInterval("Cleanup();",10);

    st = null;

    varsql = "";

    for (var n = 0; n < dssub1.RecordCount; n++) {

        sql += " update cwk set is_dc='是' where djbh='" + dssub1.GetValueAt(n, 'djbh') + "' ";

    }

    try {

        InsertSql(sql);

    } catch(e) {

        alert(e.message);

    }

           uf_Onload();

           dssub1.OpenEmpty();

}

用JavaScript脚本生成XML文件

function createXML(){        
    varobjstream = new ActiveXObject("ADODB.Stream");  // 创建 ADO-stream 对象

            objstream.Type = 2;     //指定或返回的数据类型  
            objstream.Open();   //打开对像
            objstream.charset = "utf-8"   //以UTF-8格式生成xml
            objstream.position = 0    //指定对像内数据的当前指针。
            
           varschar = '\r';  //增加换行
           //拼接内容
            var content = '<?xml version="1.0" encoding="UTF-8"?>';
            content += schar ;
            content += ' <Document xmlns:xsi=" style="font-family:'Tahoma','sans-serif';color:black;">" xsi:noNamespaceSchemaLocation="终端接口XML Schema-3.0.xsd" Version="3.0"> ' ;
            content += schar ;
            content += '药监文件内容' ;  
            content += schar ;
            content += '</Document>' ;
        objstream.Writetext(content); 

         //xml文件名
         var path = "e:\\xml.xml";
      
        objstream.SaveToFile(path)  // 要生成文件路径和文件名 
        objstream.close();    //关闭对像

}