将表导出为ex​​cel,包括宏

时间:2008-12-05 09:33:12

标签: javascript excel asp-classic

出于统计原因,我想从数据集中进行广泛的分析。我已经有一个将数据导出到Excel的函数,但我有这样的原始数据; 500行,35列,有时是一堆文字......

是否可以在函数中包含一个宏,以便可以对excelfile进行分析?

我正在使用ASP,Javascript,以及Excel 2003。 这是当前的功能(由我的一位前任撰写):

    function exporttoexcel()
    { //export to excel
        if (tableSortArray.length > 0)
        { 
          var t, arr;
          var tempArray=new Array();

          for(var i=0; i, i<tableSortArray.length; i++) {
              arr = tableSortArray[i].toString();
              arrr = (arr.split(","));
              if (i==0) { t = arrr[1]; }
              else { t += ','+arrr[1]; }
          }
          document.excel.t.value = t;
        }
        // I left out some mumbojumbo about sorting here
        document.excel.submit();
}

我的意思是宏,所以图表是“自动”制作的,还有一些转盘......

1 个答案:

答案 0 :(得分:1)

从mrexcel.com窃取(google + cut_paste =比打字更快):

' Delete any old stray copies of the module1
On Error Resume Next
Kill ("C:\MrXL1.bas")
On Error GoTo 0
' Export Module 1
ActiveWorkbook.VBProject.VBComponents("module1").Export ("c:\MrXL1.bas")
For x = 1 to 54   
ThisBroker = Sheets("BrokerList").range("A" & x).value    
     为了简洁,省略了计划的定制     表格(数组(“菜单”,“计划”))。复制           NBName = ActiveWorkbook.Name
  '新书名           '将模块1导入到这本新书中           Application.VBE.ActiveVBProject.VBComponents.Import(“c:\ MrXL1.bas”)           ActiveWorkbook.SaveAs Filename:= ThisBroker     ActiveWorkbook.Close       下一个x       杀死(“C:\ MrXl1.bas”)

或者你也可以设置一个引用“data”excel文件中数据的主excel文件(比如名为“analysis.xls”),例如在单元格中输入:

  

= 'Z:\ EXCEL数据[电流data.xls] Sheet 1中'!$ A $ 1

用户打开主服务器(“analysis.xls”),然后依次添加Z:\ excel-data \ Current-data.xls中的所有值,只需根据需要将Current-data.xls替换为新数据。