Экспорт в Excel
Простенький пример выгрузки данных из цинк в MS Excel
суть та же что и с Word, только в скрипте используется другой VBA-объект - Excel.Application
Код:
//каждую строку тела формируемого скрипта не забываем заканчивать
//символом переноса строки.
function Export() {
var vbs:String = "";
vbs += "Set objExcel = CreateObject(\"Excel.Application\")\r";
vbs += "objExcel.Visible = True\r";
vbs += "Set objDoc = objExcel.Workbooks.Add()\r";
vbs += "objDoc.Sheets(1).Activate\r";
mdm.FileSystem.saveFile(mdm.System.Paths.appData + "toExcel.vbs", vbs);
vbs = "";
var i = 0;
while (ds[i][0]) {
vbs = "";
vbs += "objDoc.Sheets(1).Range(\"A" + (i + 1) + "\").Value=\"" + ds[i][0] + "\"\r";
vbs += "objDoc.Sheets(1).Range(\"B" + (i + 1) + "\").Value=\"" + ds[i][1] + "\"\r";
vbs += "objDoc.Sheets(1).Range(\"C" + (i + 1) + "\").Value=\"" + ds[i][2] + "\"\r";
vbs += "objDoc.Sheets(1).Range(\"D" + (i + 1) + "\").Value=\"" + ds[i][3] + "\"\r";
vbs += "objDoc.Sheets(1).Range(\"F" + (i + 1) + "\").Value=\"" + ds[i][4] + "\"\r";
mdm.FileSystem.appendFile(mdm.System.Paths.appData + "toExcel.vbs", vbs);
i++;
}
mdm.System.exec(mdm.System.Paths.appData + "toExcel.vbs");
}
ds - двухмерный массив с данными.