Тема: Zinc FAQ
Показать сообщение отдельно
Старый 27.11.2007, 23:39
alexcon314 вне форума Посмотреть профиль Отправить личное сообщение для alexcon314 Найти все сообщения от alexcon314
  № 9  
Ответить с цитированием
alexcon314
listener

модератор форума
Регистрация: Jun 2006
Сообщений: 3,260
Записей в блоге: 28
Отправить сообщение для alexcon314 с помощью ICQ
Экспорт в 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 - двухмерный массив с данными.


Последний раз редактировалось alexcon314; 27.11.2007 в 23:51.