Тема: {mdm}Zinc
Показать сообщение отдельно
Старый 06.06.2007, 08:52
alexcon314 вне форума Посмотреть профиль Отправить личное сообщение для alexcon314 Найти все сообщения от alexcon314
  № 92  
alexcon314
listener

модератор форума
Регистрация: Jun 2006
Сообщений: 3,260
Записей в блоге: 28
Отправить сообщение для alexcon314 с помощью ICQ
По умолчанию Экспорт в Excel

Простенький пример выгрузки данных из цинк-.ехе в MS Excel
Код:
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 - двухмерный массив с данными.