Javascript 将表格导出到excel，包括宏

出于统计原因，我希望从数据集中进行广泛分析。我已经有了一个将数据导出到Excel的函数，但我有这样的原始数据；500行35列成堆的文字有时

是否可以将宏包含到函数中，以便Excel文件可以进行分析

我正在使用ASP、Javascript和Excel 2003。 这是当前函数（由我的一位前任编写）：

函数exporttoexcel（）
{//导出到excel
如果（tableSortArray.length>0）
{ 
var t，arr；
var tempArray=新数组（）；
对于（var i=0；i，i从mrexcel.com被盗）（谷歌+剪切粘贴=比打字快）：

'为简洁起见，省略了计划的自定义
图纸（阵列（“菜单”、“平面”））。副本
NBName=ActiveWorkbook.Name

“新书名
'将模块1导入本新书
Application.VBE.ActiveVBProject.VBComponents.Import（“c:\MrXL1.bas”）
ActiveWorkbook.SaveAs文件名：=ThisBroker
活动工作簿。关闭
下一个x
Kill（“C:\MrXl1.bas”）

或者，您也可以只设置一个主excel文件（称为“analysis.xls”），该文件引用“数据”excel文件中的数据，例如在单元格中输入：

='Z:\excel数据[Current data.xls]表1'！$A$1

用户打开母版（“analysis.xls”），然后它依次添加Z:\excel data\Current-data.xls中的所有值，只需根据需要使用新数据替换Current-data.xls即可。
从mrexcel.com中窃取（google+cut\u-paste=比键入更快）：

'为简洁起见，省略了计划的自定义
图纸（阵列（“菜单”、“平面”））。副本
NBName=ActiveWorkbook.Name

“新书名
'将模块1导入本新书
Application.VBE.ActiveVBProject.VBComponents.Import（“c:\MrXL1.bas”）
ActiveWorkbook.SaveAs文件名：=ThisBroker
活动工作簿。关闭
下一个x
Kill（“C:\MrXl1.bas”）

或者，您也可以只设置一个主excel文件（称为“analysis.xls”），该文件引用“数据”excel文件中的数据，例如在单元格中输入：

='Z:\excel数据[Current data.xls]表1'！$A$1

用户打开主控形状（“analysis.xls”），它依次添加Z:\excel data\Current-data.xls中的所有值，只需根据需要使用新数据替换Current-data.xls即可

    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();
}

' 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