Экспорт таблиц в Excel, включая макрос

Question

По статистическим причинам я хочу провести подробный анализ из набора данных. У меня уже есть функция, которая экспортирует данные в Excel, но у меня есть необработанные данные таким образом; 500 строк, 35 столбцов, иногда кучи текста ...

Можно ли включить макрос в функцию, чтобы файл Excel был готов для анализа?

Я использую 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();
}

Я имею в виду макрос, чтобы графики создавались "автоматически", а также некоторые проигрыватели ...

Answer 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    

'настройка плана для краткости опущена Sheets (Array («Меню», «План»)). Копировать NBName = ActiveWorkbook.Name
новое название книги Импорт модуля 1 в эту новую книгу Application.VBE.ActiveVBProject.VBComponents.Import ("c: \ MrXL1.bas") ActiveWorkbook.SaveAs Имя файла: = ThisBroker ActiveWorkbook.Close Следующий х Убить ("C: \ MrXl1.bas")

В качестве альтернативы вы также можете просто установить мастер-файл Excel (например, «analysis.xls»), который ссылается на данные в файле Excel «data», например, в ячейку введите:

= 'Z: \ Excel-данных [Current-data.xls] Лист1'! $ A $ 1

Пользователь открывает мастер ("analysis.xls") и, в свою очередь, добавляет все значения из Z: \ excel-data \ Current-data.xls, просто замените Current-data.xls новыми данными по мере необходимости.