将表导出为excel，包括宏

问题描述：

出于统计原因，我想从数据集进行广泛的分析。我已经有了一个将数据导出到Excel的函数，但我有这种方式的原始数据; 500行，35列，有时文本堆...将表导出为excel，包括宏

是否有可能包含一个宏到一个函数，使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(); 
}

我的意思是宏观的，这样的图表会自动进行” “还有一些唱盘......

答

被盗从mrexcel.com（谷歌+ 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文件名：= ThisBroker ActiveWorkbook.Close 下一个x 杀（ “C：\ MrXl1.bas”）

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

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

用户打开了主（ “analysis.xls” ），然后依次添加Z：\ excel-data \ Current-data.xls中的所有值，只需根据需要用新数据替换Current-data.xls即可。

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

相关推荐

将表导出为excel，包括宏